Jump to content
Jose BN

ANSWERED Macro revisar que no existan celdas en blancos y copiar a otra hoja

Recommended Posts

Hola,

 

Amig@s del foro quisiera solicitarles la colaboración con lo siguiente, tengo un libro en el cual intento copiar datos de una hoja a otra, hasta aquí parecen ir bien las cosas pero quisiera agregar una condición al copiado para que previo a ejecutar este copy revise el rango definido en a hoja origen llamada "Diario" y si detecta celdas vacías genere el aviso de la celda que esta en blanco y no proceda a copiar hasta que todas las celdas se encuentren completas, si esto se cumple copie los datos a la hoja BD.

Como ya lo dijo el buen amigo Haplox: "Seguro que de la bola de cristal de los gurus sale algo... Gracias de antemano"

 

Saludos

J

 

CONSULTA FORO.xlsm

Share this post


Link to post
Share on other sites

Hola!

 

Antes de está línea del SUB llamado "COPIAR"

Worksheets(HojaMatriz).Range(RangoDatos).Copy

Pon este bloque de código:

    Dim EnBlanco As Range
    If WorksheetFunction.CountBlank(Worksheets(HojaMatriz).Range(RangoDatos)) > 0 Then
        Set EnBlanco = Worksheets(HojaMatriz).Range(RangoDatos).SpecialCells(xlCellTypeBlanks)
        MsgBox "No se puede copiar porque estas celdas están en blanco:" & Chr(13) & EnBlanco.Address(False, False), 16
        Exit Sub
    End If

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

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.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png