Buenas tardes amig@s.

Tengo un código en un listbox el cual me busca en una columna comparando con la fecha actual y si coincide me lo muestra en el listbox...

Private Sub UserForm_Initialize()

Call DisenoFormularios.FormDesign

Dim Uf As Long 'PARA DETERMINAR LA ULTIMA FILA DE LA TABLA...
Dim X As Long 'PARA REALIZAR EL BUCLE...

Sheets("DEPOSITOS").Activate
Uf = Worksheets("DEPOSITOS").Range("E" & Cells.Rows.Count).End(xlUp).Row
'MOSTRAMOS EL NOMBRE DE LA HOJA...
'ListadoCaducaDepositos.AddItem ActiveSheet.Name
'RECORREMOS CON UN BUCLE DESDE LA 5 FILA HASTA LA ULTIMA...
For X = 5 To Uf
    'COMPARAMOS LA CELDA X DE LA COLUMNA 5 CON LA FECHA ACTUAL...
    If Cells(X, 5) = Date Then
        'VERIFICAMOS QUE EL FORMATO DE LA CELDA X ES DE FECHA XX/XX/XXXX...
        If IsDate(Cells(X, 5)) Then
            'Y SI LA CELDA X DE LA COLUMNA 5 Y LA FECHA ACTUAL SON IGUALES...
            If Cells(X, 5) = Date Then
            'CARGAMOS LAS QUE COINCIDAN EN EL LISTADO...
                ListadoCaducaDepositos.AddItem Cells(X, 5) _
                & " - CLIENTE: " & Cells(X, 18) & " - TELEFONO: " & Cells(X, 24)
            End If
        End If
    End If
Next X

End Sub

... el problema que me encuentro es que he modificado la parte que carga los resultados en el listbox, para mostrar en el listbox 3 columnas...

Private Sub UserForm_Initialize()

Call DisenoFormularios.FormDesign

Dim Uf As Long 'DEPOSITOS - PARA DETERMINAR LA ULTIMA FILA DE LA TABLA...
Dim X As Long 'DEPOSITOS - PARA REALIZAR EL BUCLE...

Sheets("DEPOSITOS").Activate
Uf = Worksheets("DEPOSITOS").Range("E" & Cells.Rows.Count).End(xlUp).Row
'MOSTRAMOS EL NOMBRE DE LA HOJA...
'ListadoCaducaDepositos.AddItem ActiveSheet.Name
'RECORREMOS CON UN BUCLE DESDE LA 5 FILA HASTA LA ULTIMA...
For X = 5 To Uf
    'COMPARAMOS LA CELDA X DE LA COLUMNA 5 CON LA FECHA ACTUAL...
    If Cells(X, 5) = Date Then
        'VERIFICAMOS QUE EL FORMATO DE LA CELDA X ES DE FECHA XX/XX/XXXX...
        If IsDate(Cells(X, 5)) Then
            'Y SI LA CELDA X DE LA COLUMNA 5 Y LA FECHA ACTUAL SON IGUALES...
            If Cells(X, 5) = Date Then
            'CARGAMOS LAS QUE COINCIDAN EN EL LISTADO...
                ListadoCaducaDepositos.AddItem
                ListadoCaducaDepositos.List(0, 0) = Cells(X, 6)
                ListadoCaducaDepositos.List(0, 1) = Cells(X, 7)
                If Cells(X, 2) = "1M" Then
                ListadoCaducaDepositos.List(0, 2) = "HAN PASADO 30 DIAS (APLICAR HASTA 50% DESCUENTO)"
                Else
                ListadoCaducaDepositos.List(0, 2) = "HAN PASADO 60 DIAS (APLICAR PRECIO LIBRE)"
                End If
            End If
        End If
    End If
Next X

End Sub

... pero solo me muestra la última fila que coincide.

 

Espero me podais ayudar.

Gracias.

Sin un archivo con el que poder probar lo que cuentas, me parece que no va a ser posible ayudarte.

Tema abandonado.