Macro que elimine contenido de celda si no es igual a fecha DD/MM/AAAA

Buen día;

Solicito de su apoyo ya que requiero hacer una macro que borre el contenido de las celdas de la columna H que no sean fechas en formato DD/MM/AAA.

Teniendo algo asi

Jorge Lopez Baja 01/02/2014

Juan Torres Alta Año 2012

Luis Hernán Alta Año 2010

Ana Lopez Reing 02/02/2013

Y debiendo quedar asi

Jorge Lopez Baja 01/02/2014
Juan Torres Alta
Luis Hernán Alta
Ana Lopez Reing 02/02/2013

Agradezco su apoyo.

Saludos.

1 respuesta

Respuesta
1

Prueba esta:

Sub fecha()
'Por.DAM
For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
    If Not IsDate(Cells(i, "C")) Then Cells(i, "C") = ""
Next
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas