Autor: Armando Franco
Macro para actualizar (refrescar) Power Query y Power Pivot en Excel.
Aquí les dejo este código que sirve para actualizar Power Query y Power Pivot ordenadamente en Excel. Funciona con consultas (queries) hechas en inglés o en español. Y de pilón, aquí está cómo pedir un nombre de archivo en Excel. …
Macro para actualizar (refrescar) Power Query y Power Pivot en Excel. Leer más »
Fe de Erratas Manual de Auval de Microsoft Power BI
Aquí publicaré las correcciones que me indiquen. Gracias. Fernando Gómez me hizo ver un error. En la sección de «El archivo de capacitación», dice: Vamos a crear un archivo nuevo, en el que usaremos el archivo Capacitaciones para reporte. El …
Fe de Erratas Manual de Auval de Microsoft Power BI Leer más »
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 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 forzar la fecha de Excel a aparecer en inglés o español Leer más »