Ver originales (Francés)

Reemplazar las celdas que contienen #DIV/0!

aaa -  
ccm81 Mensajes publicados 11033 Estado Miembro -
Hola,

Me gustaría reemplazar todas las celdas que contengan ya sea #DIV/0! o #N/A o FALSO por 0,
con la ayuda de una macro VBA.

Gracias de antemano

Configuración: Windows XP / Internet Explorer 8.0

3 respuestas

  1.
    ccm81 Mensajes publicados 11033 Estado Miembro 2 434
     
    hola

    ¿estás seguro de querer hacer eso con una macro?

    si es así quizá esto 

    Public Sub InitErr() For Each c In Selection If IsError(c.Value) Then c.Value = 0 Else If c.Value = False Then c.Value = 0 End If End If Next c End Sub

    buenas noticias
    0
    1. aaa
       
      ¿Puedo hacer esto sin macros???

      Gracias de antemano
      0
  2. ccm81 Mensajes publicados 11033 Estado Miembro 2 434
     
    o si solo quieres tratar los errores DIV/0 y #NA 

    Public Sub InitErr() For Each c In Selection If IsError(c.Value) Then errval = c.Value If errval = CVErr(xlErrDiv0) Or errval = CVErr(xlErrNA) Then c.Value = 0 End If Else If c.Value = False Then c.Value = 0 End If End If Next c End Sub

    buena continuación
    0
  3. ccm81 Mensajes publicados 11033 Estado Miembro 2 434
     
    sí, pero
    te hace falta una columna adicional
    si asumimos que las celdas involucradas están en A5:Axx
    B5=SI(ES.ERROR(A5);0;SI(NO(A5);0;A5))
    para arrastrar hacia abajo
    luego seleccionar B5:Bxx
    Copiar/pegar especial/Valores en A5:Axx

    en cuanto a la macro
    Alt-F11
    Inserción/módulo
    Copiar/pegar el código de la macro
    Volver a la hoja
    Herramientas/Macro/macros
    Seleccionar la macro
    Opciones/Atajo de teclado ctrl+i por ejemplo/OK
    Uso
    seleccionar el rango a tratar/ctrl+i

    buena suerte
    0