Hola necesito una macro que realice los siguiente:
tengo en la columna A diferentes datos por ejemplo:
123456
234567
MNJA00
S774400
333333
455689
necesito que en toda la columna busque en todas las celdas y en las celdas que contenga solo seis numeros se añada una S delante de los números quedaria así: si tengo 123456 con la macro se queda S123456
Gracias
En B1 puede poner esta función:
=SI(Y(ESNUMERO(A1);LARGO(A1)=6);"S"&A1;A1)
Y arrastra esta fórmula por toda la columna B. Tendrás en B lo que necesitas.
Si lo prefieres hacer con macro (yo casi siempre prefiero una fórmula a una macro), entonces te tienes que hacer un bucle que recorra la columna A y que realice las mismas comprobaciones que la función que te he puesto. Algo así como:
cells(1,1).activate
do while activecell.value <> ""
if (isNumeric(activecell.value)) and (len(activecell.value)=6) then
activecell.value = "S" & activecell.value
end if
activecell.offset(1,0).activate
loop
(He escrito el código aquí, no está comprobado)
Un saludo
hola funciona muy bien,
muchas gracias por tu ayuda y tiempo.
un saludo