Dante Amor

H o l a: Asigna la macro CambiaColor a todos los objetos Sub CambiarColor() 'Por.Dante Amor If TypeName(Application.Caller) = "String" Then nombre = Application.Caller ActiveSheet.DrawingObjects(nombre).Interior.ColorIndex = 5 'colorindex 0 a 56 End...

H o l a : Te anexo las macros con la versión para enviar correos masivos con firma e imagen. Las siguientes macros van en los eventos de la hoja1 Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor On Error Resume Next If Target.Count...

Te anexo unas opciones. Estuve buscando la manera más simple: Sub Copiar() 'Por.Dante Amor Dim arreglo() Set celdas = Range("C3:C6") ReDim arreglo(celdas.Count) n = 0 For Each celda In celdas arreglo(n) = celda.Value n = n + 1 Next col =...

H o l a: Te anexo la macro para que la pongas en los eventos de tu hoja. Lo que hace es, cada que modificas la celda C3, pone el valor de H6 en la siguiente columna disponible de la fila, empezando en la columna K. Private Sub Worksheet_Change(ByVal...

Te anexo la macro, cambia el nombre de la hoja y los textbox por tus datos. Private Sub CommandButton1_Click() 'Por.Dante Amor Set h = Sheets("datos") u = h.Range("A" & Rows.Count).End(xlUp).Row + 1 dias = Array("Lunes", "Martes", "Miércoles",...

H o l a : Podrías explicar con cuál de los datos que pones en las celdas B4 a G4, se puede saber en cuál libro se tienen que pegar los datos. Lo correcto sería que en alguno de esos datos pongas por ejemplo, en la celda B4, "Libro15", Entonces la...

H o l a : En un correo nuevo envíame tu archivo con el formulario y me explicas con comentarios lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Henry Wall” y el título de esta pregunta.

H o l a: Ejecuta la siguiente macro en el archivo que quieres dividir los datos. Cambia en la macro "Hoja1" por el nombre de la hoja que contiene los datos. Cuando ejecutes la macro te pedirá el número de archivos. Sub GenerarArchivos() 'Por.Dante...

Te anexo la macro. Pon el listado en la "Hoja1", columna "A", iniciando en la fila 2. Sub ListadoConHipervinculo() 'Por.Dante Amor col = "A" Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") For i = 2 To h1.Range(col &...

H o l a : Te anexo la macro actualizada, al principio la macro borra todas las imágenes para insertar las nuevas. Sub insertafoto() 'Act.Por.Dante Amor Carpeta = "C:\Users\JuanC\Desktop\picsformacro\" On Error Resume Next...