Autofilter
Publicado por haver (149 intervenciones) el 21/02/2007 22:34:01
Amigos tengo un problema tengo un codigo que hace un autofilter en la columna C pero cuando termino de copiar la informacion quiero que se quite el autofilter, en depuracion paso a paso con la condicion si lo quita pero cuando lo ejecuto no funciona este es el codigo
Sheets("REQ").Select
Selection.AutoFilter Field:=3, Criteria1:=txtfecha.Value
Range("C:C").Copy Destination:=Workbooks(destino).Sheets(3).Range("A1")
Range("Q:Q").Copy Destination:=Workbooks(destino).Sheets(3).Range("B1")
Range("W:W").Copy Destination:=Workbooks(destino).Sheets(3).Range("C1")
Range("L:L").Copy Destination:=Workbooks(destino).Sheets(3).Range("F1")
AutoFilter = False
'puse esta condicion extra pero tampoco funciona
If AutoFilter = True Then
AutoFilter = False
End If
Sheets("REQ").Select
Selection.AutoFilter Field:=3, Criteria1:=txtfecha.Value
Range("C:C").Copy Destination:=Workbooks(destino).Sheets(3).Range("A1")
Range("Q:Q").Copy Destination:=Workbooks(destino).Sheets(3).Range("B1")
Range("W:W").Copy Destination:=Workbooks(destino).Sheets(3).Range("C1")
Range("L:L").Copy Destination:=Workbooks(destino).Sheets(3).Range("F1")
AutoFilter = False
'puse esta condicion extra pero tampoco funciona
If AutoFilter = True Then
AutoFilter = False
End If
Valora esta pregunta


0