Dante Amor

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 & "\" Nombre = h2.Name...

H o l a: Te anexo un ejemplo, estoy poniendo el cuerpo del correo en la variable cuerpo, después pongo la variable en Htmlbody, y por último agrego nuevamente dam.htmlbody, de esa forma te pone un cuerpo y tu firma que tengas en outlook. Sub...

H o l a: Te anexo la macro con los cambios para enviar el pdf por correo. Cambia en la macro B2 por la celda que contiene el correo del destinatario; cambia B3 por la celda que contiene el nombre. Sub carga_de_datos() Sheets("Hoja4").Select...

H o l a: ¿De dónde a dónde quieres copiar los archivos? ¿En dónde tienes la lista de los nombres? ¿En una hoja? ¿En cuál columna? ¿En cuál fila empiezan?

H o l a: Reviso cómo lo puedo resolver en el formulario y te envío la respuesta. Sal u dos

H o l a: Te anexo la macro, le agregué el código para que te aparezca el navegador de carpetas, selecciona la carpeta y presiona Acepta, la macro leerá únicamente los archivos que contenga el número de serie de la celda D5 Sub LeerNotePad2()...

H o l a: Te anexo el código. Pon tu archivo con la macro en la misma carpeta donde estarán los 8 notepad y ejecuta la macro. La macro leerá todos los archivos txt y solamente considerará los que terminen en A, B, C, D, F, G o H Sub LeerNotePad2()...

H o l a: Te anexo las macros Sub AbrirInternet() 'Por.Dante Amor Loading "www.google.com.gt", False Loading "www.yahoo.com", True Loading "www.yahoo.com", True End Sub ' Sub Loading(pagina, salir) 'Por.Dante Amor Dim ie As Object ' Set ie =...

H o l a: Intentaste con estas opciones: Prueba con abrir y reparar, abrir como copia y abrir como de sólo lectura.

H o l a: Envíame tu archivo con la explicación, en una hoja me pones la gráfica con un año. En otra hoja me pones la gráfica con 2 años. Si puedes poner una tercera hoja con 3 años, de esa forma podré entender lo que necesitas. Mi correo...