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.

1 respuesta

Respuesta
2

Para ver cómo están los datos, envíame tu último archivo y me dices qué columna va en cuál combo

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 Sub

sal 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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas