Dante Amor

Te cambio la macro, revisa el resultado Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets("ENTRADAS") h1.Unprotect Password = "1717171" ' u = h1.Range("A" & Rows.Count).End(xlUp).Row If h1.AutoFilterMode...

Supongo que quieres pegar las columnas en el orden seleccionado, para eso ocupa la siguiente macro: Sub copiar_Columnas() 'Por.Dante Amor Application.ScreenUpdating = False cols = Array("BF", "F", "D", "AZ", "BA", "S", "BT", "BW", "BX", "C", "V",...

Cambié el msgbox por un listbox en esta parte: ListBox1. AddItem correo ListBox1. List(ListBox1. ListCount - 1, 1) = cedula De esa forma puedes saber por correo, cuáles cédulas no tienen archivo y no se enviaron. La macro completa: Private Sub...

Pon tu macro para enviar correos Y una imagen de cómo estarían tus datos

Supongo que tienes un userform También supongo que en los textbox capturas algo como esto 11/05/2015 (11 de abril de 2015). Si es así, utiliza el siguiente código: Private Sub CommandButton1_Click() 'Por.Dante Amor If Not IsDate(TextBox1) Or TextBox1...

Pero qué quieres hacer. Ejecutar una macro o copiar una celdas Si quieres copiar una celdas, dime qué celdas quieres copiar y en dónde las quieres pegar; la quieres pegar en la misma hoja. Supongo que lo quieres hacer para todas las hojas, excepto...

Te anexo la macro para copiar solamente el área de impresión Sub Copiar_Hojas() 'por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Application.SheetsInNewWorkbook = 3 Set l2 = Workbooks.Add...

Te anexo la macro Sub Copiar_Hojas() 'por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("INGRESOS", "SEGURIDAD", "VENEZOLANA")).Copy For Each h In Sheets h.Cells.Copy h.Range("A1").PasteSpecial xlValues...

Te ayudo con la parte donde las figuras se sobreponen. Para que no se sobrepongan las figuras, primero debes borrar la figura anterior. Para borrar una figura le debes poner un nombre fijo. Por ejemplo, suponiendo que tienes algo similar a esto, para...

¿En cuál línea te aparece el error? Es en esta: Unload descripcion Al parecer "descripcion" es un control: un textbox o un combobox y quieres descargarlo; por eso te envía el mensaje de error: "No se puede cargar o descargar este objeto" Puedes...