Jump to content
Sign in to follow this  
Leonardo Briceño

ANSWERED Evitar ejecutar Macro según valor de celda

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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😉

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • disculpe @Mauricio_ODN pero al  momento de copiar  no copiar de forma escalonada  se salta adjunto uno que es similar  pero me gustaria que pudiera copiar en la hojas1, hoja2, hoja,  del libro de destino saludos  Importar Datos desde Varios Libros.rar
    • Estimado JSDJSD Saludos He estado tratando de verificar si se puede usar esta parte del codigo que tienes pero con este cambio para vitar la Hoja2 a ver si se pueda ejecutar directamente desde la Hoja1, pero encuentro dificultad,...Seria que eso no se debe hacer??? Algunas veces más consigo realizar estas aplicaciones de modo intuitivo o por deducción antes que por conocimiento cabal.. Te pongo el codigo y una imágen Del botón importar ufila1 = wbLibroOrigen.Sheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row For cont = 2 To ufila1 ufila = wbLibroDestino.Sheets("H_importacion").Cells(Rows.Count, 2).End(xlUp).Row With wbLibroDestino.Sheets("H_importacion") 'ORIGEN DESTINO wbLibroOrigen.Sheets("Hoja1").Cells(cont, 1).SpecialCells(12).Copy .Cells(ufila + 1, 1) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 2).SpecialCells(12).Copy .Cells(ufila + 1, 2) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 3).SpecialCells(12).Copy .Cells(ufila + 1, 3) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 5).SpecialCells(12).Copy .Cells(ufila + 1, 4) wbLibroOrigen.Sheets("Hoja1").Cells(cont, 7).SpecialCells(12).Copy .Cells(ufila + 1, 5) End With Next Al ejecutar me resulta error, aunque si obtengo la importación de lo seleccionado pero no de las columna selectas como se esperaría según el código Por su puesto que si no se pude hacer me quedo con lo ya conseguido hasta ahora   Mil disculpas por esta adición de consulta
    • Para ti también, que todo vaya bien con tu familia
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy