Filtrar datos con rango de fecha usando user form
"Para Dante". He logrado hacer un formulario que me permite asignar fechas con calendarios desplegables para generar una consulta que me genere datos por rango de fechas. ¿Cómo puedo programar para que me arroje los datos que necesito acorde a los criterios de fecha que ingreso?
1. La hoja de datos se llama Informe transferencias y contiene un resumen de movimientos.
2. La hoja donde cree el userform se llama transferencias por fecha (Click en Consultar), allí me debe arrojar toda la información ya filtrada por el rango de fechas.
Adjunto archivo al correo para facilitar la solución.
1 Respuesta
H o l a:
No está el enlace del archivo.
Podrías enviarme el archivo, ahí me explicas con ejemplos.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Diego Herrera Franco” y el título de esta pregunta.
Buenas tardes. El archivo ya fue enviado al correo mencionado.
Saludos
Te anexo la macro para el formulario
Private Sub CommandButton2_Click()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("INFORME TRANSFERENCIAS")
Set h2 = Sheets("TRANSFERENCIA POR FECHA")
h2.Range("G4") = DTPicker1.Value
h2.Range("H4") = DTPicker2.Value
j = 7
h2.UsedRange.Offset(4, 0).Clear
For i = 3 To h1.Range("G" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "G") >= DTPicker1 And h1.Cells(i, "G") <= DTPicker2 Then
h2.Cells(j, "G") = h1.Cells(i, "G")
h2.Cells(j, "B") = h1.Cells(i, "B")
h2.Cells(j, "C") = h1.Cells(i, "C")
h2.Cells(j, "E") = h1.Cells(i, "E")
h2.Cells(j, "F") = h1.Cells(i, "F")
h2.Cells(j, "J") = h1.Cells(i, "J")
h2.Cells(j, "H") = h1.Cells(i, "H")
h2.Cells(j, "I") = h1.Cells(i, "I")
h2.Cells(j, "K") = h1.Cells(i, "O")
h2.Cells(j, "L") = h1.Cells(i, "X")
h2.Cells(j, "M") = h1.Cells(i, "AB")
h2.Cells(j, "N") = h1.Cells(i, "AF")
h2.Cells(j, "O") = h1.Cells(i, "AH")
h2.Cells(j, "P") = h1.Cells(i, "AJ")
h2.Cells(j, "Q") = h1.Cells(i, "AO")
h2.Cells(j, "R") = h1.Cells(i, "AS")
h2.Cells(j, "S") = h1.Cells(i, "AX")
h2.Cells(j, "D") = h1.Cells(i, "D")
j = j + 1
End If
Next
Call bordes
h2.Columns("G").NumberFormat = "m/d/yyyy"
Application.ScreenUpdating = True
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
