Aquí publicaré las correcciones que me indiquen. Gracias.
Autor: Armando Franco
Armando Franco tiene amplia experiencia en las áreas de sistemas, compras y proyectos. Cuenta con una Maestría en Administración de Tecnologías de Información, y las certificaciones Certified Purchasing Manager, Microsoft Office 2010 Specialist, Expert y Master.
ALL, DISTINCT, VALUES, CONCATENATEX
Aquí les voy a publicar el complemento del manual, pero necesitaba incluir la página.
Macro para abrir y cerrar todos los archivos de un directorio
Con esta macro pueden abrir todos los archivos de un directorio, procesarlos y cerrarlos.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
Sub RevisaDirectorio() Dim ruta As String Dim siguienteArchivo As String Dim libro As Workbook Dim máscara As String ruta = InputBox("¿Qué directorio proceso?") ruta = ThisWorkbook.Sheets("Portada").Range("RutaDirectorio") If Dir(ruta, vbDirectory) = "" Then MsgBox "El directorio no existe." Else ' Si el usuario no le dejó la diagonal inversa al final al directorio, se la agrega. If Right(ruta, 1) <> "\" Then ruta = ruta & "\" ' Aquí le agrega la extensión de los archivos que quiere revisar. máscara = "*.xls*" ' Obtiene el primer archivo que está en esa ruta con esa máscara. siguienteArchivo = Dir(ruta & máscara) ' Cuando ya no encuentra el archivo, regresa "" Do While siguienteArchivo <> "" Set libro = Workbooks.Open(ruta & siguienteArchivo) ' Aquí es donde pueden indicarle qué hacer con el archivo. ' Yo nada más aviso que abrí el archivo. MsgBox "Abrí el archivo " & ActiveWorkbook.Name ' Si no dejo de copiar, pregunta que si quiero conservar el portapapeles antes de cerrar el archivo. Application.CutCopyMode = xlCopy ' Le digo que lo cierre sin grabarlo. libro.Close (False) ' Toma el siguiente archivo. Para eso, la función Dir() no lleva parámetros esta vez. siguienteArchivo = Dir() ' libera el apuntador al libro Set libro = Nothing Loop End If End Sub |
Calendario en Power Query
Esto se puede pegar en Power Query, en una consulta en blanco, y se genera un calendario desde el primero de enero de 2014 hasta el día de hoy. Si quieres otra fecha inicial, modifica donde dice: #date(2019, 1, 1)…
Código para buscar un registro con un combo en Access
El código siguiente aparece en la liga que aquí les paso: Soporte Pero como yo siempre busco lo mismo, lo voy a escribir aquí:
|
1 |
<br/><code class="">Private Sub Combo0_AfterUpdate()<br/> ' Find the record that matches the control.<br/> Dim rs As Object<br/><br/> Set rs = Me.Recordset.Clone<br/> rs.FindFirst "[ProductID] = " & Str(Nz(Me![Combo20], 0))<br/> If Not rs.EOF Then Me.Bookmark = rs.Bookmark<br/>End Sub |
Tips para coordinar un servicio con vecinos
Este es un tema ajeno a los que normalmente cubro en el blog, pero después de ver algunas situaciones que se han presentado con vecinos bien intencionados que se ofrecen a coordinar un servicio por el bien común, ya sea…
Cómo preparar un archivo para hacer una tabla dinámica
Aquí les dejo este video. Incluye cómo se puede rellenar hacia abajo los datos que aparecen solamente una vez. Lo hice con Excel en español: Y también con Excel en inglés:
Cómo forzar la fecha de Excel a aparecer en inglés o español
Para cambiar el idioma de las fechas, se pueden usar estos prefijos en el formato de la fecha en Excel, al que se llega dando click a una celda, seleccionando formato de celda, y eligiendo Personalizado en la pestaña de número.…
Cómo mapear un disco de red a un fólder local.
Al estar trabajando con Access, a veces es necesario simular un disco de red en una computadora que no tiene acceso a dicha red. Se puede hacer de esta manera, suponiendo que quiero agregar un directorio \\MIDIRECTORIO\COMPARTIDO a) Editar el…
Cómo hacer un VLOOKUP / BUSCARV para traer nombre completo de los alumnos.
En Excel no se puede hacer que VLOOKUP / BUSCARV regrese en una celda el contenido de varias celdas. Lo que sí se puede hacer, es que Excel junte los valores de las celdas que quiero que me regrese (en…
Top