Reemplazar valores diferentes de...

Yo tengo una duda parecida. Como puedo reemplazar todos los valores ""
por un mismo valor (999999) en mi caso.

Los valores los tengo agrupados en solo tres columnas i hay un numero
limitado de datos.

Muchas gràcias!

Hola:
Hay un paquete de utilidades gratuitas que se llama ASAP Utilities. LO
pueden bajar de
http://www.asap-utilities.com/
Ahi podran encontrar las herramientas que ambos estan buscando y mas.
Es gratis, libre de virus y sin "banners" comerciales

Saludos
Francisco

Claudi ha escrito:

Yo tengo una duda parecida. Como puedo reemplazar todos los valores ""
por un mismo valor (999999) en mi caso.

Los valores los tengo agrupados en solo tres columnas i hay un numero
limitado de datos.

Muchas gràcias!

Hola pasarin. Prueba con:

Sub prueba()
Dim celda As Range
For Each celda In Selection
If Not (IsNumeric(celda)) Then celda.ClearContents
Next celda
End Sub

Antes de llamar la macro selecciona el rango de celdas a modificar.

Saludos desde Tenerife.

"pasarin" escribió en el mensaje
news:

Hola, ¿como se podría hacer para que "Edición-Reemplezar todos" me permita
reemplazar por un determinado valor todos los valores que NO son como el
que pongo? , mejor aún, que me reemplace todos los valores que no sean un
número por "". Si no es posible por el menú normal, ¿teneis un trocito de
código que lo haga para pegarlo en una macro?

Gracias y saludos.

Hola Claudi. Prueba con:

Sub prueba()
Dim celda As Range
For Each celda In Selection
If celda = "" Then celda.Value = 999999
Next celda
End Sub

Pero también puedes hacerlo con: Menú>EdiciónAReemplazar... el cuadro
Buscar, lo dejas vacio, y en Reemplazar con, escribes 999999.

Saludos desde Tenerife.
*****************************
"Claudi" escribió en el mensaje
news:

Yo tengo una duda parecida. Como puedo reemplazar todos los valores ""
por un mismo valor (999999) en mi caso.

Los valores los tengo agrupados en solo tres columnas i hay un numero
limitado de datos.

Muchas gràcias!