Saltar al contenido

MACRO QUE PREGUNTE FECHA

publicado

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

Featured Replies

publicado

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.

  • 2 weeks later...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.