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
[CODE]ElseIf Quien = 6 Then
Range("C8") = Calendar.Value
Range("C2") = Calendar.Value[/CODE]
este es el codigo del filro
[CODE]Private Sub Worksheet_Change(ByVal Target As Range)
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
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?