Llevar funciones a Macros.
Tengo la siguiente formula en Excel que aplico en toda una columna
=MID(I2,MIN(IF(ISNUMBER(FIND({1,2,3,4,5,6,7,8,9,0},I2)),FIND({1,2,3,4,5,6,7,8,9,0},I2))),5)
¿Cómo podria llevar esto a una macro? ¿Qué me recorra todas las filas del archivo y me calcule en cada una?
¿Tengo qué crear una variable por cada funcion a ejecutar?
1 Respuesta
Respuesta de James Bond
1
Usa esta macro te formula la columna k hasta donde termine la columna i, solo una cosa esta instruccion funcion siempre y cuando no tengas nada en la fila i1 si es asi la macro seria diferente
Sub formular()
filas = Range("i2").CurrentRegion.Rows.Count
Range("k2").Resize(filas, 1).Formula = "=MID(I2,MIN(IF(ISNUMBER(FIND({1,2,3,4,5,6,7,8,9,0},I2)),FIND({1,2,3,4,5,6,7,8,9,0},I2))),5)"
End Sub
