Encontré este código que se me hizo buenísimo. Pego una imagen en PowerPoint, la formateo como me gusta y si quiero saber exactamente esos datos que aparecen en la ventana inmediata, le doy click al objeto y corro esta macro.
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 »
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 »
Aquí les voy a publicar el complemento del manual, pero necesitaba incluir la página.
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 |
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) …
Calendario en Power Query Leer más »
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 |
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 …
Tips para coordinar un servicio con vecinos Leer más »
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:
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 »