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

1 respuesta

Respuesta
1

¿Y qué tienes en el combo? Tienes números de mes o nombres de los meses

Y en dónde quieres el resultado del filtrado, ¿en la misma hoja?

[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 Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas