Dante Amor

Supongo que tienes esta macro. Le hice un cambio para que te pinte la celda de rojo si el archivo no existe Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("H1").Column For i = 2 To Range("B" &...

Te anexo la macro para exportar a pdf, cambia en la macro "nombre.pdf" por el nombre de archivo que desees Sub Exportar_a_Pdf() ' Por.Dante Amor ruta = ThisWorkbook.Path & "\" arch = "nombre.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _...

Puedes utilizar esto Application.statusbar = "Espere un momento" Te pone un mensaje en la parte inferior izquierda de excel. Al finalizar tu macro pon lo esto para quitar el mensaje: Application.statusbar = False Otra alternativa es abrir un userform...

Pon la macro para revisarla y ajustarla

En tu ejemplo de la fila 15 y 17 En el <número4> en al fila 15 tienes: 3662001 Y en la fila 17 tienes: 3662003 Entonces ya no son iguales, sin embargo, tu comentario es borrar la fila 17, es un error, o podrías explicarme si comparo todo esto: "...

Te anexo la macro para copiar el bloque donde empieza la palabra "RESUMEN". Sub Copiar_Datos() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets(2) h1.Rows("3:" & Rows.Count).ClearContents ' Application.ScreenUpdating = False With...

Prueba con lo siguiente para enviar la hoja que tienes seleccionada activesheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & nombre & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _...

H o l a: Te anexo la macro con los ajustes para que funcione con la versión de office365 Sub CopiarCeldasComoImagen() 'Por.Dante Amor ' 'Application.ScreenUpdating = False Set h1 = Sheets("Hoja2") Set h2 = Sheets.Add ruta = ThisWorkbook.Path & "\"...

Pon la siguiente macro en el libro que va a recibir los datos, llamemos a este libro "base" Cuando ejecutes la macro, se abre el explorador de archivo para que selecciones el archivo de excel que contiene los datos, llamemos a este libro "resumen",...

No entendí bien si quieres proteger el libro o una hoja. Si quieres proteger el libro al cerrar el archivo, pon la siguiente macro en los eventos de Thisworkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Protect "abc",...