Filtrar un listbox entre fechas y guardar las modificaciones
Sr. Dante, me permito hacerle esta pregunta y solicitarle un auxilio, y me oriente el conseguir el error.
Tengo una hoja de excel, ya tengo el listbox, funcionando, pero no concreto el filtrado entre fechas
F_INICIO y F_FINAL
Tengo las líneas para la actualización de registros pero no modifica, aun no doy con el error.
Agradeciendo su ayuda.
Heberto Ramos
Enlace de archivo comprimido
https://www.dropbox.com/s/axor7i7a1fer72t/Filtar%20datos%20entre%20fechas.7z?dl=0
1 respuesta
Envíame tu archivo por correo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Heberto Ramos”
Te anexo el código actualizado
Private Sub FILTRAR_Click()
'
Set h1 = Sheets("INDEX2")
Set h2 = Sheets("Temp")
'
h2.Cells.Clear
DATA_NOMINA.RowSource = ""
h1.Rows(1).Copy h2.Rows(1)
j = 2
i = 2
x = h1.Cells(i, "A").Value
Application.ScreenUpdating = False
Do While h1.Cells(i, "A").Value <> ""
If h1.Cells(i, "A").Value = 0 Then Exit Do
If h1.Cells(i, "D") = CDate(F_INICIO) And h1.Cells(i, "E") = CDate(F_FINAL) Then
h1.Rows(i).Copy
h2.Rows(j).PasteSpecial xlValues
j = j + 1
End If
i = i + 1
Loop
Application.ScreenUpdating = True
Application.CutCopyMode = False
'
DATA_NOMINA.ColumnHeads = True
rango = h2.Range("A2:M" & h2.Range("A" & Rows.Count).End(xlUp).Row).Address
DATA_NOMINA.RowSource = h2.Name & "!" & rango
'CIaBuscar As String
'Dim F_INICIO As Date
'Dim F_FINAL As Date
'CIaBuscar = DATA_NOMINA.ListIndex + 2
'
'CI = Sheets("INDEX2").Range("A" & CIaBuscar).Value =SUMA(SUMAR.SI($E$1:$E$25;{"<7";9;">120"}))
'EMPLEADO = Sheets("INDEX2").Range("B" & CIaBuscar).Value
'E_STATUS = Sheets("INDEX2").Range("C" & CIaBuscar).Value
'F_INI = Sheets("INDEX2").Range("D" & CIaBuscar).Value
'F_FIN = Sheets("INDEX2").Range("E" & CIaBuscar).Value
'AUSEN = Sheets("INDEX2").Range("F" & CIaBuscar).Value
'D_ADI = Sheets("INDEX2").Range("G" & CIaBuscar).Value
'H_STD = Sheets("INDEX2").Range("H" & CIaBuscar).Value
'H_STN = Sheets("INDEX2").Range("I" & CIaBuscar).Value
'B_NOCT = Sheets("INDEX2").Range("J" & CIaBuscar).Value
'D_IVSS = Sheets("INDEX2").Range("K" & CIaBuscar).Value
'OTRA_ASIG = Sheets("INDEX2").Range("L" & CIaBuscar).Value
'OTRA_DED = Sheets("INDEX2").Range("M" & CIaBuscar).Value
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias! Dante, funciona todo perfecto, replica todo lo que hace la hoja de excel, pero ahora en el userform, nunca se me hubiese ocurrió la hoja temporal..
Muy agradecido por tu ayuda...
Saludos y de nuevo, Muchas Gracias..!
