Macro reemplazar #N/A por 0 en todas las hojas
Estimados expertos:
Por favor su gran ayuda tengo un archivo que jala datos de una tabla dinámica. En algunas celdas al no encontrar data alguna da como resultado #N/A lo que quiero hacer es con una macro reemplazar #N/A por valor 0 ó - pero en todas las hojas.
Tengo una macro que solo reemplaza a la primera hoja y cuando encuentra el valor #N/A deja en blanco la celda.
La referencia para todas la hojas son las mismas la variable seria el nombre de las hojas (en total son 15)
Sheets("DIRIGIDAS PROVINCIA").Select
Dim Celda As Range
For Each Celda In Range("C4:AE98") ' Referencia
If IsError(Celda.Value) Then Celda.ClearContents
Next Celda
Gracias!
Alberto Meza
1 respuesta
Integrale un loop mas...
Dim Celda As Range
Dim hoja as worksheet
FOR EACH hoja in WorkSheets ' aquí empieza el nuevo loop
Hoja.Select
For Each Celda In Range("C4:AE98") ' Referencia
If IsError(Celda.Value) Then Celda.ClearContents
Next Celda
NEXT hoja ' aquí termina
Gracias experto por la pronta respuesta. Otra pregunta:
Una vez que la cedas los pone en blanco, como hago para reemplazarlas por cero o -
Yo preferiría en ese caso... convertir directamente los valores a 0... y no limpiarlas previamente
En vez de ejecutar la macro que te envíe... cambia primero este instrucción
If IsError(Celda.Value) Then Celda.ClearContents
por
= If IsError(Celda.Value) Then Celda.value = 0
Y allí cuando ejecutes cambiara el valor de error por 0
Saludos,
Jaime
PD: Finaliza la pregunta en el foro
