MACRO QUE PREGUNTE FECHA

[ikani27]

Estimados,
Buenas
Necesito de su ayuda, en el archivo adjunto tengo un macro “nuevotesteo” y necesito que cuando la corra antes me pregunte desde que fecha y me deje poner la fecha (formato DD/MM/AAAA) y luego en base al dato que ponga que filtre la columna S de la pestaña “base Datos”, si se pone la 0 que no filtre nada
Gracias de antemano, intente pero me quede trabado
Slds
 

DDJJ IBRUTOS - NO BORRAR actualizado WIP NO USAR.rar

[AlexanderS]

Hola @ikani27 intenta con este código:

Sub filtra_Fecha()
Dim fecha

fecha = InputBox("Ingrese la fecha en formato ""DD/MM/AAAA""", "Filtrar Fecha")
If Not IsDate(fecha) Then Sheets("BASE DATOS").Range("L7:S7").AutoFilter Field:=8: Exit Sub

Sheets("BASE DATOS").Range("L7:S7").AutoFilter Field:=8, Criteria1:="=" & fecha, Operator:=xlAnd

End Sub

Comentas, saludos.

[AlexanderS]

@ikani27 Por favor indica si se resolvió tu consulta.

Saludos. 

[AlexanderS]

Tema abandonado.