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 Respuesta
Respuesta de Dante Amor
2
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]
