Deztaca - Academia online para destacar en tu trabajo

Clases

1: Instrucción Select...Case para múltiples condiciones

2: Introducción a los Bucles en VBA: Bucle For...Next

3: Bucle For Each...Next para recorrer objetos de una colección

4: Bucle Do...While. Ejecutar mientras se cumple una condición

5: Bucle Do...Until . Ejecutar hasta que se cumpla una condición

6: Implementar un Controlador de errores

7: Procedimientos Sub públicos, privados y cómo ejecutarlos

8: Práctica: Agrupar tablas de varias hojas en una sola

9: Macro optimizada: Agrupar tablas de varias hojas en una sola

10: Funciones definidas por el usuario (UDF)

11: Funciones VBA para manejo de textos

12: Funciones VBA para manejo de Fecha y Hora

13: Funciones VBA de conversión, formato y evaluación

14: Usar Fórmulas y funciones de Excel desde VBA

15: Introducción a los Eventos en VBA y Eventos de libro

16: Introducción a los Eventos en VBA y Eventos de hoja

17: Eventos de Aplicación y eventos no asociados a objetos

Caso práctico: Modificar fórmulas existentes

Participaciones

Inicia sesión para dejar tu duda, comentario y/o respuesta

Iniciar sesión Inscribirme

VíctorManuelSantosMaldonado635 hace 6 días

Considero que la macro, al encontrar la primera celda vacía, se dará por terminada ya que si no hay fórmula se va a Exit Sub. ¿Es correcta mi aprteciación?

JuliaBravo490 hace 6 días

Hola, Víctor Manuel. Muy buena observación.

Tu apreciación es casi correcta, pero con una precisión:
La macro no se detiene al encontrar la primera celda vacía, sino al encontrar una celda sin fórmula.
Cuando eso pasa, Exit Sub detiene toda la macro, no solo esa celda.

Para que la macro siga revisando todas las celdas, lo mejor sería :


For Each Celda In Selection
    If Celda.HasFormula Then
        Longitud = Len(Celda.Formula)
        Fx = Right(Celda.Formula, Longitud - 1)
        Fx2 = "=IFERROR(" & Fx & "," & Chr(34) & "No aplica" & Chr(34) & ")"
    
        Celda.Formula = Fx2
    End If
Next Celda

Así ignora las celdas sin fórmula y sigue trabajando con el resto.

¡Muy bien por cuestionarlo! Así se aprende mucho más a fondo.

SusanaUztariz245 hace 1 mes

No veo el porque usar chr(34) y no concatenar directamente "No Aplica", igual al final concatenando directamente con el último paréntesis.
Saludos

JuliaBravo490 hace 1 mes

Hola, Susana.

Por favor, ¿podrías dejarnos saber cuál es la opción que propones? Si puedes, comparte el código para que podamos probarlo.