Macro VBA para Excel

[caruizj]

Buenos días,

Soy nuevo en esto de VBA que me parece totalmente distinto a lo que suelo ver de programación.

Necesito una macro que haga lo siguiente:

Recorrar todas las celdas de todas las columnas dada una Hoja donde dicha columna tenga al menos 1 celda con datos.

Comprobar celda a celda con datos si tiene el formato 01,03,1989 y cambiarlo por 01.03.1989.


LO POCO QUE HE CONSEGUIDO:

Pasar las comas a puntos lo he conseguido, pero no me lo hace bien. Cuando escribo la coma del teclado (QWERTY) si me funciona. Cuando uso el . del teclado númerico que me lo convierte en coma decimal excel no me funciona.


Lo que he usado es:

Código vb:

Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
 

El for para recorrerlo no sé como hacer en VBA la condición final.

¿Alguien me puede echar una mano?

[caruizj]

Ya he conseguido hacerlo mediante formulas de excel. Para pasar a macro en VBA lo que es la formula se escribe tal cual o tiene otra nomenclatura.

Teniendo en la celda 03,01,1992

SI =LARGO(B3) = 10

SI =LARGO(B3)-LARGO(SUSTITUIR(B3;",";"")) = 2

SI =HALLAR(",";B3;1) = 3

SI =HALLAR(",";B3;4) = 6


ENTONCES = (SUSTITUIR(B3;",";"."))

Y la celda quedaría con 03.01.1992

PASAR SIGUIENTE CELDA


Un saludo!