Dante Amor

H o l a: Envíame tu archivo con un ejemplo. Recuerda poner tu nombre de usuario en el asunto.

H o l a: ¿Tu formulario es un userform o tienes los controles directamente en la hoja?

H o l a: Te anexo la macro actualizada, en la macro van unos comentarios. Sub poner_imagen() 'Act.Por.Dante Amor 'Ponemos las celdas celdas = Array("D5", "I5", "N5", "S5") 'copiamos la imagen ActiveSheet.Shapes.Range(Array("Picture 71")).Select...

H o l a: Te anexo la macro actualizada Sub EnviarCorreo() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False des = Range("A1") Set h2 = ThisWorkbook ruta = h2.Path & "\" ' ruta2 = "C:\trabajo\" Nombre = h2.Name...

H o l a: Te anexo la macro Sub formular() 'Por.Dante Amor col = Columns("AA").Column For i = Columns("D").Column To Columns("Z").Column celda = Cells(9, Columns(i).Column).Address(False, False) Cells(40, col).FormulaR1C1 = _...

H o l a: ¿Quieres decir que vas a enviar todos los archivos que empiezan con IB y también los que empiezan con UX? Sal u dos

H o l a: No mencionaste en cuál columna de la hoja RENDI_DOC, en la macro le puse la columna "A", si es otra columna, cambia en la macro en la siguiente línea la "A" por la letra de la columna: If Not Intersect(Target, Columns("A")) Is Nothing Then...

H o l a: Si el día a copiar tienes un número, por ejemplo 1 En la macro estás preguntando por el "1" (esto es texto) Select Case DiaACopiar Case "1" Entonces si compara 1 con "1" no son iguales, por lo tanto, no asigna una celda destino. cambia en la...

H o l a: Puedes enviarme un archivo y me marcas en amarillo qué datos se tienen que enviar al nuevo archivo. Me envías el nuevo archivo de ejemplo en dónde copiaste las celdas en amarillo. Sal u dos

H o l a: Te anexo un ejemplo para agregar la firma del correo: Sub enviar_correo_con_firma() 'Por.Dante Amor Set dam = CreateObject("outlook.application").createitem(0) dam.Display dam.To = Sheets("Hoja1").Range("D2") dam.CC =...