Imprimir datos excel según fecha
Para Dante Amor.
Buenas tardes:
Una vez mas recurro a su generosidad y excelente dominio de macros, para solicitarle su ayuda con el siguiente tema:
Tengo un archivo en el que alimento una base de datos mediante el uso de formularios, lo que necesito es imprimir la información capturada de acuerdo a un rango de fecha, o a un numero de radiación que esta en la misma base de datos, el consecutivo de radiación esta en la columna A, y la fecha en la columna E, la idea es poder imprimir la información de lo que se alimenta diariamente, sin que para la siguiente impresión se repita lo que ya fue impreso.
Al correo le envío el archivo en el que estoy trabajando.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Private Sub CommandButton1_Click()
'Por.Dante Amor
Dim fini As Date, ffin As Date
fini = Format(CDate(TextBox1), "mm/dd/yyyy")
ffin = Format(CDate(TextBox2), "mm/dd/yyyy")
Hoja2.Range("A1").AutoFilter
u = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
Hoja2.Range("A1:K" & u).AutoFilter Field:=5, Criteria1:= _
">=" & fini, Operator:=xlAnd, Criteria2:="<=" & ffin
Hoja2.Range("A1:K" & u).AutoFilter Field:=11, Criteria1:="="
Hoja2.PrintOut Copies:=1, Collate:=True
u = Hoja2.Range("A" & Rows.Count).End(xlUp).Row
If u > 1 Then
Hoja2.Range("K2:K" & u).SpecialCells(xlCellTypeVisible).Value = "X"
End If
Unload Imprimir
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
