Combinar 4 hojas en un solo listbox

Para dante

Buena noche

Te molesto a ver si es posible esto:

Tengo 4 hojas (datos, datos2, datos3 y datos4) y lo que deseo es combinar las 4 listas en un solo listbox en el userform

En el userform tengo un optionbutton para que al darle click ahí se muestres las 4 listas de un solo y ordenadas alfabéticamente.

Y que se pueda realizar una búsqueda entre fechas como esta en el archivo que te envío.

1 respuesta

Respuesta
1

Te anexo la macro con los cambios

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Dim fec1 As Date, fec2 As Date
    Set hm = Sheets("datosm")
    '
    hm.Cells.Clear
    Sheets("datos").Rows(1).Copy hm.Rows(1)
    '
    fec1 = TextBox2
    fec2 = TextBox3
    If OptionButton1 Then
        hs = Array("datos", "datos2", "datos3", "datos4")
    Else
        hs = Array("datos")
    End If
    For h = LBound(hs) To UBound(hs)
        hoja = hs(h)
        For i = 2 To Sheets(hoja).Range("A" & Rows.Count).End(xlUp).Row
            For j = Sheets(hoja).Columns("G").Column To Sheets(hoja).Columns("W").Column Step 2
                If Sheets(hoja).Cells(i, j) >= fec1 And Sheets(hoja).Cells(i, j) <= fec2 Then
                    u = hm.Range("A" & Rows.Count).End(xlUp).Row + 1
                    Sheets(hoja).Rows(i).Copy hm.Rows(u)
                    hm.Cells(u, j).Interior.ColorIndex = 4
                End If
            Next
        Next
    Next
    '
    With hm.Cells
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    With hm.UsedRange
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
    '
    u = hm.Range("A" & Rows.Count).End(xlUp).Row
    With hm.Sort
        .SortFields.Clear
        .SortFields.Add Key:=hm.Range("A2:A" & u), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange hm.Range("A1:X" & u)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'mostramos el resultado del filtro avanzado en el textbox
    ListBox1.RowSource = Empty
    ListBox1.RowSource = hm.Name & "!A2:X" & u
End Sub

Saludos.Dante Amor

me gusta

pero lo que busco primero es que

En el userform al darle click en el optionbutton se muestres las 4 listas de un solo y ordenadas alfabéticamente.

la idea es que se muestren las 4 listas completas primero en el listbox (que se vean las 4 listas juntas y ordenadas en el listbox), y luego opcionalmente que se pueda buscar por entre fechas.

Podrías crear otra pregunta, esta pregunta la tomo para poner las 4 listas en el listbox cuando presionas el optionbutton; y en la pregunta metemos lo del filtro por fecha, recuerda que es una pregunta por cada petición.

Private Sub OptionButton1_Click()
'Por.Dante Amor
    Dim fec1 As Date, fec2 As Date
    Set hm = Sheets("datosm")
    '
    hm.Cells.Clear
    Sheets("datos").Rows(1).Copy hm.Rows(1)
    '
    hs = Array("datos", "datos2", "datos3", "datos4")
    For h = LBound(hs) To UBound(hs)
        hoja = hs(h)
        For i = 2 To Sheets(hoja).Range("A" & Rows.Count).End(xlUp).Row
            If Sheets(hoja).Cells(i, "A") <> "" Then
                u = hm.Range("A" & Rows.Count).End(xlUp).Row + 1
                Sheets(hoja).Rows(i).Copy hm.Rows(u)
            End If
        Next
    Next
    '
    With hm.Cells
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    With hm.UsedRange
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
    '
    u = hm.Range("A" & Rows.Count).End(xlUp).Row
    With hm.Sort
        .SortFields.Clear
        .SortFields.Add Key:=hm.Range("A2:A" & u), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange hm.Range("A1:X" & u)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'mostramos el resultado del filtro avanzado en el textbox
    ListBox1.RowSource = Empty
    ListBox1.RowSource = hm.Name & "!A2:X" & u
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para verificar columna por columna

Entonces seria asi Un solo filtro para todas las columnas, que busque en cada una si hay alguna fecha entre el rango especificado. Verificar columna por columna y si la fecha está en el periodo entonces que se pase al filtro. Y que se muestre en el...
1 respuesta

Marcar celdas de fechas que están entre una y otra fecha

Para Dante Hola Hace una días me proporcionaste una macro para buscar entre fechas. Sera que es posible que las fechas que están entre (ejem. 01/10/2014 a 24/10/2014) salgan marcadas con un color diferente (verde por ejemplo), la idea es que al...
1 respuesta

Filtrar datos para varias columnas

Para DANTE AMOR Hola Te agradezco por resolverme el anterior caso del filtro por fechas. Te quiero molestar una vez más Utilizando el mismo archivo quiero filtrar las otras columnas que están a la par de las fechas o sea las columnas (H J L N P R T V...
1 respuesta

Bordes con macro

Recurro a ustedes una vez mas. Tengo una simple macro que dibuja bordes negros en el exterior y grises en el interior ( un formato que uso muy habitualmente ) Funciona correctamente salvo en la ocasión en que solo tenga seleccionada una sola celda:...
1 respuesta

Como poner bordes a celdas con macro

Talvez alguien de ustedes puede ayudarme necesito una macro que me ayude a poner bordes a celdas, pero quiero que solo a las filas activas. Tengo una lista en una hoja llamada datos y utilizo un filtro para extraer cierta informacion de esa lista y...
1 respuesta

Macro que Crea PDF y Envía El PDF por Outlook

De la manera más amable solicito ayuda, ya he creado una macro que me permite hacer un archivo en PDF, lo que requiero es que el archivo que fue creado sea enviado vía por medio de Outlook. Adjunto código de la macro para crear el PDF. Sub...
1 respuesta

Macro para cambiar información en un "Tablero dinámico".

Hola Expertos, bueno días. Tengo en una hoja de excel, varios cuadros como este (imagen), lo que deseo hacer, en una hoja dejar un tablero y que mediante una macro, cada 15 segundos, vaya rotando la información que que estan contenidas en los...
1 respuesta

Bordes de caldas

Como puedo obtener el formato de bordes de las celdas de excel mediante VB, yo lo probé así: Cells(1, 1). Borders Pero cuando la celda no tiene borde me da valor negativo, cuando le pongo un marco me da 1 pero con otros estilos em da nulo... ¿Cuál es...
1 respuesta

DIBUJAR CELDAS con macros

Tengo una Base de Datos en la que estoy asignando valores por medio de un UserForm de la sig forma: ActiveCell = TextBox1 '(TextBox2, ComboBox1, etc, etc..) El UserForm llena toda una fila de mil columnas en la base de datos. Y me gustaría poner una...
1 respuesta