Le acabo de hablar por correo.

Le cuento, tengo mi formulario, en listar necesito que filtre por el COMBOBOX, al dejar seleccionado en el combobox la "FECHA" se filtre el LISTBOX.

Le envie un correo con el formulario.

1

1 Respuesta

4.478.150 pts. Sancho, si los perros ladran ...

H o l a Eduardo,

Envíame un nuevo correo, en el asunto pon tu nombre de usuario "Eduardo Palma"

Me envías el archivo y me explicas con algún ejemplo lo que necesitas.

Le respondi a su correo como me lo pidio. Gracias

También en el código se cargan las fechas únicas en los combos

'
Private Sub UserForm_Activate()
    For i = 3 To Range("E" & Rows.Count).End(xlUp).Row
        Call Agregar(ComboBox1, Cells(i, "E").Value)
        Call Agregar(ComboBox2, Cells(i, "E").Value)
    Next
End Sub
'
Sub Agregar(combo As ComboBox, dato As String)
'por.DAM agrega los item únicos y en orden alfabético
    For i = 0 To combo.ListCount - 1
        Select Case StrComp(combo.List(i), dato, vbTextCompare)
            Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
            Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
        End Select
    Next
    combo.AddItem dato 'Es mayor lo agrega al final
End Sub

También ajusté el formato de hora en la carga de horas en el list

Private Sub CommandButton1_Click()
'Por.Dante Amor
    ListBox1.Clear
    If ComboBox1.Value = "" Then
        MsgBox "Captura una fecha desde"
        Exit Sub
    End If
    fec1 = CDate(ComboBox1.Value)
    If ComboBox2 = "" Then
        fec2 = fec1
    Else
        fec2 = CDate(ComboBox2.Value)
    End If
    '
    For i = 3 To Range("E" & Rows.Count).End(xlUp).Row
        If Cells(i, "E").Value >= fec1 And Cells(i, "E") <= fec2 Then
            ListBox1.AddItem Cells(i, "A")
            ListBox1. List(ListBox1.ListCount - 1, 1) = Cells(i, "B")
            ListBox1. List(ListBox1.ListCount - 1, 2) = Cells(i, "C")
            ListBox1. List(ListBox1.ListCount - 1, 3) = Cells(i, "D")
            ListBox1. List(ListBox1.ListCount - 1, 4) = Cells(i, "E")
            ListBox1. List(ListBox1.ListCount - 1, 5) = Format(Cells(i, "F"), "hh:mm")
            ListBox1. List(ListBox1.ListCount - 1, 6) = Format(Cells(i, "G"), "hh:mm")
            ListBox1. List(ListBox1.ListCount - 1, 7) = Cells(i, "H")
        End If
    Next
End Sub

.

.[R ecuerda cambiar la valoración a la respuesta]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas