Abraham Valencia

[Hola Intenta con algo así: Sheets(Array("Hoja1", "Hoja45", "Hoja46")).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\Carpeta\xxxxxx.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _...

[Hola En tu macro "ConnectSqlServer" debes repetir el procedimiento usado para lo de la tabla "Usuarios" solo que usando tu variable "strQuery2". Ah, obvio que también tienes que indicarle en dónde van los datos. Abraham Valencia

[Hola Yo le agregaría un Goup By a.Usuario Order By a.Usuario Pivot a.Producto Algo así Abraham Valencia PD: Cambiaría el Select también, pero sin ver tu tabla es difícil darte mejores consejos

[Hola Los Listbox de Excel son distintos a los de Access, a pesar de sus varias similitudes. En el caso de Excel, su propiedad "RowSource" solo acepta rangos de celdas y no es posible adaptarle algo como un Recordset. Las opciones son usar List o...

[Hola Si en el label del Userform tiene cierto texto, y luego lo cambias tal cual muestras, dicho cambio solo será visible en tiempo de ejecución, no es que dicho texto nuevo se vaya a guardar y/o quedar tal cual en el Label. Abraham Valencia

[Hola En realidad el nivel máximo de anidaciones es de 64, no he contado pero quizá ya lo pasaste. Es bastante complicado darte una alternativa dado el nivel de dificultad para entender esa fórmula; quizá si haces una tabla de valores y rangos...

[Hola ¿Qué error te da? ¿Cambiaste de PC, de versión de Windows o de versión de Office? No olvides que necesariamente tienes que tener en la celda "J8" un nombre válido de archivo o te dará error. Abraham Valencia

[Hola ¿Tienes archivos con macros, en la "nube", y sus macros dices que funcionan? ¿Estás seguro que están en la "nube"? ¿Podrías compartir dichos enlaces? ¿No será que los compartes por una "nube" y los descargan y por eso funcionan sus macros? Las...

[Hola No das detalles de lo que tienes, pero te dejo esto como para que te des idea: Dim miimagen As Variant miimagen = Application.GetOpenFilename If miimagen = False Then MsgBox "Cancelaste" Exit Sub End If Image1.Picture = LoadPicture(miimagen)...

[Hola Tal cual lo mencionas no es posible con fórmulas. Tendrías que usar macros o ingresar las fechas directamente y no usando "Hoy" u otras funciones. Abraham Valencia