Dante Amor

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, _...

Te anexo el código ' 'valida nombre de archivo For Each libro In Workbooks If libro.Name = "YAFO_EBIT_AMORTIZACIONES.xlsm" Then MsgBox "El libro ya está abierto" Exit Sub End If Next ' 'continúa con tu macro ' . 'S aludos. Dante Amor. Recuerda...

Te anexo la macro. Para ejecutar la macro necesitas 3 hojas. La hoja con las muestras, la hoja con la plantilla y una tercera hoja donde vas a poner el rango de números. Cambia los nombres de las hojas en estas líneas de la macro: Set h1 =...

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",...

¿Quieres crear una hoja nueva por cada dato que aparece en la columna "F" desde F5 hasta el final de los datos? Quieres copiar g5, g12, ¿g13 y en dónde los quieres pegar? ¿Puedes poner todas las celdas que quieres copiar y exactamente en dónde...