Saltar al contenido

Evitar ejecutar Macro según valor de celda

publicado

Hola buenas tardes amigos de Ayuda Excel. Por favor si me pueden ayudar con este procedimiento que no logro hacer. gracias

La macro que está en el botón debe evitar insertar una fila nueva si el valor de la última celda en la columna G es igual a cero (0). Y un MSGBOX que indique al usuario que debe llenar la información primero.

EJEMPLO AYUDA EXCEL.xlsm

Featured Replies

publicado

Te dejo la solución @Leonardo Briceño , pero deberías pensar porqué has puesto esto, pues no tiene sentido (For x=1 To 1 :huh:)

For x = 1 To 1
    Range("A4:G4").Copy
    ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Insert xlDown
       
    Application.CutCopyMode = False
 Next

 

Copia de EJEMPLO AYUDA EXCEL-1.xlsm

publicado
  • Autor

Gracias @Haplox funciona tal como lo deseaba?

Si de tu comentario, fue una macro que me dio Antoni para otro caso, lo quise adaptar a esta nueva situación, le hice unos cambios pero me faltaba lograr en lo que tu ayudaste. Con la macro de Antoni necesitaba insertar 5 filas y como aquí solo es una pues cambié a 1, jejejeje. Poco a poco voy aprendiendo?

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.