Luis_P

Jesús no me ofendes como te crees eso, no te lo tomes personal, no recibo archivos de nadie, por tema de seguridad de mi equipo, nada más. Mira entiendo que en el combo cada registro esta compuesto por cadenas de texto de esta forma | gerardo hdz...

¿Lo quieres como función o macro?

Debes pasarle el valor del día contenido en la celda al dtpiker en el evento de inicialización del form. Así: Private Sub UserForm_Initialize() DTPicker1.Value = [A1] End Sub En este caso al iniciar el form toma el valor contenido en la celda A1, (...

Bueno en ese caso 1 cosa antes: ¿Todos los objetos cambian al mismo color?

¿Cómo deseas copiarlos? ¿En forma secuencial?

¿Te interesa guardar solo las celdas de la fila B o necesitas A y B de la hoja 2?

Prueba así: Sub ImprimirDatosA() Application.ScreenUpdating = False Dim i As Integer '4c7569735f50 For i = 4 To 6 Sheets(i).Visible = True If Len(Sheets(i).Range("A2")) > 0 Then Sheets(i).PrintOut Sheets(i).Visible = False Next...

En excel (2007), cuentas con la función =indirecto() que devuelve el contenido de cierta celda tomando como argumento la referencia de la celda en forma de texto, pero no sirve para rangos, solo para celdas independientes. Así como lo planteas,...

Ok. ¿Y desde que celda a que celda figura tu formato de pedidos? ¿O deseas copiar toda la hoja?

Suponiendo que el nombre de usuario esta en la cela A10, seria Range("B2:I8").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & [A10] & "\Desktop\nombre de archvio.pdf", Quality:= _ xlQualityStandard,...