Dante Amor

H o l a: Vamos a realizarlo con una macro, utilizando en la macro el filtro avanzado. Según tu imagen, deducimos que tus datos están en la hoja1 y los encabezados empiezan en la celda B3. Ahora en la hoja2, pon lo siguiente: En la hoja2 en la celda...

H o l a: No entendí. Puedes explicar el ejemplo completo con una imagen. ¿Quieres copiar el valor A2 en varias celdas? ¿En cuáles celdas? ¿Luego quieres copiar el valor A3 en varias celdas? ¿En cuáles celdas? Si primero copias A2 en D1 y luego copias...

H o l a: Para copiar las celdas visibles, se tiene que poner la propiedad xlceltypevisible: Sub CopiarRango() 'Por.Dante Amor Sheets("Hoja1").Range("A4:H4").SpecialCells(xlCellTypeVisible).Copy Sheets("Hoja2").Range("A4") End Sub En el ejemplo que te...

H o l a: Te anexo la macro. Pon la macro en un nuevo libro. Guarda el libro como excel habilitado para macros, y ponlo en cualquier carpeta diferente a la carpeta donde tienes todos tus archivos. Ejecuta la macro, selecciona la carpeta donde tienes...

H o l a: Estuve revisando la documentación sobre la carga de los encabezados y al parecer solamente se puede con la propiedad RowSource. Lo intenté con el sql que pusiste pero sin éxito. Te el código para que puedas cargar los encabezados:...

H o l a: En el foro han realizado varias solicitudes de enviar correos masivos, es por eso que he creado una aplicación para enviar correos de forma masiva. Con la aplicación puedes enviar correos a varias destinatarios, con diferentes asuntos, con...

H o l a: Te anexo la macro, cambia en la macro "Hoja1" y "A5" por la hoja y la celda en donde tienes la fecha. Sub GuardarCopia() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" Set h1 = Sheets("Hoja1") celda = "A5" ' nombre = Format(h1.Range(celda),...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub res = MsgBox("Quieres el borrar el último dato ingresado", vbQuestion & vbYesNo, "") If...

H o l a: Pon lo siguiente en un módulo: Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' modListPrinters ' By Chip Pearson, [email protected] www.cpearson.com ' Created 22-Sept-2012 ' This provides a function named...

Para ese caso tienes que cargarlo de manera independiente puede ser que alguna de las columnas tenga más información que otra. Private Sub UserForm_Activate() 'Por.Dante Amor Set h = Sheets("Constantes") For i = 1 To h.Range("K" &...