Necesito cargar los combobox para previamente cargar el listbox
Necesito cargar los combobox para previamente mostrar en el listbox.
¿Cómo yebo los datos de la hoja "BaseDeDatos" hacia los combobox?
Fecha monitoreo Columna F de la fila 3 en adelante.
Lo ideal de la fecha que sea desde y hasta, de menor a mayor o de mayor a menor.
Prioridad Intervención Columna L de la fila 3 en adelante
Nombre quien Registro Columna G de la fila 3 en adelante.
Te acabo de enviar el archivo..
Columna F en el combobox1 (Fecha desde) de menor a mayor seria lo ideal
Columba F en el combobox2(Fecha hasta)
Columna L en el combobox3
Columna G en el combobox4
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Selecciondo esos combobox que liste en el listbox. los siguientes datos..
Fecha Monitoreo - Descripcion Equipo - N° Aviso - Prioridad - Diagnostico
Solo esos datos necesito que me muestre en el listbox al dejar seleccionado los combobox...
Te anexo la parte para cargar fechas y datos en los 4 combos
Dim h
'
Private Sub UserForm_Activate()
Set h = Sheets("BaseDeDatos")
For i = 3 To h.Range("F" & Rows.Count).End(xlUp).Row
If IsDate(h.Cells(i, "F")) Then
Call Agregar_Fec(ComboBox1, h.Cells(i, "F"))
Call Agregar_Fec(ComboBox2, h.Cells(i, "F"))
End If
Call Agregar(ComboBox3, h.Cells(i, "L"))
Call Agregar(ComboBox4, h.Cells(i, "G"))
Next
End Sub
'
Sub Agregar_Fec(combo As ComboBox, dato As String)
'Por Dante Amor
'Cargar fechas en los combos
Dim fec1 As Date
Dim fec2 As Date
fec2 = CDate(dato)
For i = 0 To combo.ListCount - 1
fec1 = CDate(combo.List(i))
If fec1 = fec2 Then Exit Sub
If fec1 > fec2 Then combo.AddItem fec2, i: Exit Sub
Next
combo.AddItem fec2 'Es mayor lo agrega al final
End Sub
'
Sub Agregar(combo As ComboBox, dato As String)
'Por Dante Amor
'Cargar datos en los combos
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 Subsal u dos
Perfecto, pero al seleccionar la fecha por ejemplo. Me cargan los otros combobox todos los datos que están en esa celda especifica, digo esto que al colocar esa fecha seleccionada lo idea seria que me cargue en los combobox lo que solo se ingreso en esa fecha ese día, no se si me explico
Eso sería ideal, pero no lo habías comentado. Y eso requiere de más código.
