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 listbox, y se pase a otra hoja.
Probemos.
Para:
DANTE AMOR.
1 Respuesta
Respuesta de Dante Amor
1
Pon la siguiente macro en el botón
Private Sub CommandButton1_Click()
'Por.Dante Amor
Dim fec1 As Date, fec2 As Date
Set h1 = Sheets("datos")
Set h2 = Sheets("datosm")
'
h2.Cells.Clear
h1.Rows(1).Copy h2.Rows(1)
'
fec1 = TextBox2
fec2 = TextBox3
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
For j = Columns("G").Column To Columns("W").Column Step 2
If Cells(i, j) >= fec1 And Cells(i, j) <= fec2 Then
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(i).Copy h2.Rows(u)
End If
Next
Next
'
With Sheets("datosm").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 Sheets("datosm").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
'
'mostramos el resultado del filtro avanzado en el textbox
ListBox1.RowSource = Empty
ListBox1.RowSource = h2.Name & "!A2:X400"
End SubSaludos.Dante Amor
Haré unas pruebas y luego te cuento
Avísame cualquier duda.
Recuerda valorar.
