Filtrar Fecha por mes según condición excel vba
[Hola Dante buenas tardes
Deseo realizar el filtrado por mes, en un combobox tengo los meses, pero solo debe filtrar aquellos que están pendientes.
1 Respuesta
Respuesta de Dante Amor
1
[Hola Dante buen día
El resultado sería en OTRA hoja llamada "Reporte" calculando los días atrasados y luego arrojaría al listbox1.
Crearé una nueva petición para las columnas en blanco, que por cod credito complete nombres , telef, dirección.
'
Te anexo el código
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("CRON-CLI")
Set h2 = Sheets("reporte")
'
ListBox1.RowSource = ""
If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then
MsgBox "Selecciona el mes"
Exit Sub
End If
h2.Rows("4:" & Rows.Count).ClearContents
j = 4
For i = 4 To h1.Range("D" & Rows.Count).End(xlUp).Row
If ComboBox1.ListIndex = 0 Then mes = Month(h1.Cells(i, "D")) Else mes = ComboBox1.ListIndex
If Month(h1.Cells(i, "D")) = mes And h1.Cells(i, "H") = "PENDIENTE" Then
h2.Cells(j, "A") = h1.Cells(i, "C")
h2.Cells(j, "B") = h1.Cells(i, "B")
h2.Cells(j, "F") = h1.Cells(i, "D")
h2.Cells(j, "H") = h1.Cells(i, "G")
h2.Cells(j, "I") = h1.Cells(i, "H")
j = j + 1
End If
Next
rango = h2.Range("A4:I" & h2.Range("F" & Rows.Count).End(xlUp).Row).Address
ListBox1.RowSource = h2.Name & "!" & rango
End Subsal u dos
