Eliminar valores numéricos no fórmulas

Tengo una base de datos con valores numéricos y con fórmulas, quisiera correr una macro que eliminara unicamente los valores numéricos y dejara intactas las fórmulas
Gracias

1 Respuesta

Respuesta
1
Esta rutina te servirá. Ajustá el rango máx.
Sub quitavalores()
'macro desarrollada por Elsamatilde
For Each celdita In ActiveSheet.Range("A1:AZ1000")
If celdita.HasFormula = False and IsNumeric(celdita) = True Then celdita.Value = ""
Next celdita
End Sub
Lo que hace es evaluar si tiene fórmula o no, borrando solo las que contienen números.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas