Fallo en macro de filtrar fecha
Mi función flitrar fecha no me separa ni me flitrar los datos según el orden que quiero.,
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
[Hola
te paso la macro
Private Sub CommandButton1_Click()
'**Por Adriel
'
Set h1 = Sheets("Hoja1")
'
If h1.AutoFilterMode Then h1.AutoFilterMode = False
date_ini = Format(TextBox1, "mm/dd/yyyy")
date_fin = Format(TextBox2, "mm/dd/yyyy")
'
u = h1.Range("A" & Rows.Count).End(xlUp).Row
'
h1.Range("$A$1:$E$" & u).AutoFilter Field:=3, _
Criteria1:=">=" & date_ini, _
Operator:=xlAnd, _
Criteria2:="<=" & date_fin
End Subvalora la respuesta para finalizar saludos!
tu macro no me funciona men. .. ahah que hare==
[hola
hice algunos cambios
Private Sub CommandButton1_Click()
'**Por Adriel
'
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
date_ini = Format(TextBox1, "mm/dd/yyyy")
date_fin = Format(TextBox2, "mm/dd/yyyy")
'
u = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
'
ActiveSheet.Range("$A$1:$E$" & u).AutoFilter Field:=3, _
Criteria1:=">=" & date_ini, _
Operator:=xlAnd, _
Criteria2:="<=" & date_fin
End Sub
