Editar columnas simulando la tecla "F2"

09/05/2008 - 02:14 por Murphy | Informe spam
Tengo una columna de mas de 1500 filas que contienen formulas y que se
encuentran en formato de Texto, por lo que tengo que editar 1 por 1,
cambiando el formato a General primero, luego presionar F2 y Enter
para que cada celda arroje el resultado de la formula que es el que
espero.

Como puedo hacer con una macro que recorra el total de celdas ocupadas
en esa columna y que edite cada celda simulando lo que arriba expongo.
Intente grabar la macro, pero como pueden ver no tiene ningun caso
pues de igual modo tendria que hacerlo 1 por 1.

Sub edita()
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = _
"=IF('ROJ-POC-FER-65769341'!R[1]C[-1]=0,""S/C"",'ROJ-POC-
FER-65769341'!R[1]C[-1])"
Range("K2").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = _
"=IF('ROJ-POC-FER-65769341'!RC=0,""S/C"",'ROJ-POC-
FER-65769341'!RC)"
Range("K3").Select
End Sub
 

Leer las respuestas

#1 Héctor Miguel
09/05/2008 - 03:34 | Informe spam
hola, 'anonimo/a' !

Tengo una columna de mas de 1500 filas que contienen formulas y que se encuentran en formato de Texto
por lo que tengo que editar 1 por 1, cambiando el formato a General primero, luego presionar F2 y Enter
para que cada celda arroje el resultado de la formula que es el que espero.
Como puedo hacer con una macro que recorra el total de celdas ocupadas en esa columna
y que edite cada celda simulando lo que arriba expongo...



pon en tu macro las siguientes instrucciones:

1) suponiendo que primero seleccionas el rango que necesitas convertir...

With Selection
.Style = "normal"
.Formula = .Formula
End With

2) si no quieres seleccionar primero el rango, pero conoces exactamente cual es...

With Range("c1:c1500")
.Style = "normal"
.Formula = .Formula
End With

saludos,
hector.

Preguntas similares