Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
View in the app
A better way to browse. Learn more.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
buenas, tengo un filtro que me funciona muy bien, pero tengo una pega, quiero insertar la fecha mediente un calendario que tengo en un userform no tengo problemas para insertar la fecha, pero el filtro no funciona pues como que parece que se vuela esta linea:
Application.SendKeys (">=")[/CODE]para llamar al calendario uso esto
Range("C8") = Calendar.Value
Range("C2") = Calendar.Value[/CODE]
este es el codigo del filro
Z = Hoja2.Range("I500000").End(xlUp).Row
If Not Intersect(Target, Range("C2:E2")) Is Nothing Then
Hoja2.Range("A5:I" & Z).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("C1:E2"), CopyToRange:=Range("A10:I10"), Unique:=False
End If
Range("E900000").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "C2" Then
If Range("C2").Value = "" Then
Application.SendKeys (">=")
End If
End If
If Target.Address(False, False) = "D2" Then
If Range("D2").Value = "" Then
Application.SendKeys ("<=")
End If
End If
If Target.Address(False, False) = "C3" Then
Call Filtro_fechas("C2", ">")
End If
If Target.Address(False, False) = "D3" Then
Call Filtro_fechas("D2", "<")
End If[/CODE]
que me sugieren? se puede hacer?