Dante Amor

Te anexo la macro Sub Enviar_Correo_Por_Yahoo() 'Act.Por Dante Amor correo = "[email protected]" Password = "password" rango = "A1:G26" arch = Range("K4").Value & ".pdf" para = Range("K1").Value asunto = Range("K2").Value cuerpo = Range("K3").Value...

Te anexo la macro con unos ajustes. Sub Enviar_Correo_Por_Yahoo() 'Act.Por Dante Amor correo = "[email protected]" Password = "password" rango = "A1:G26" arch = Range("K4").Value & ".pdf" para = Range("K1").Value asunto = Range("K2").Value cuerpo =...

Te anexo la macro Sub Macro5() ' Por Dante Amor ' ' Envía rango por correo ' 'VALIDACIONES If Range("K4").Value = "" Then MsgBox "Falta el nombre de archivo" Exit Sub End If If Range("K1").Value = "" Then MsgBox "Falta el destinatario" Exit Sub End...

¿Y qué dice el mensaje de error? Qué dato tienes en las celdas D8, D9, D10 y L10 En esta línea tienes una coma (, ) tal vez debe ser un guión: Nom4 = "," También dime qué nombre tiene el archivo en tu directorio

Puedes hacerlo en word, en el menú Correspondencia, Etiquetas. En la ventana de Sobres y etiquetas, presiona el botón Opciones, después presiona el botón Nueva etiqueta, en la ventana de Detalles, captura los valores según la imagen: Presiona...

Te anexo la macro. Guarda la hoja activa como archivo de excel y le poner nombre el mismo que tiene la hoja Sub Macro1() ' Por Dante Amor ' Guarda hoja activa como arhivo de excel ' Application.ScreenUpdating = False Application.DisplayAlerts = False...

Te anexo la macro actualizada para imprimir y guardar como pdf Sub IMPRIMIR() ruta = ThisWorkbook.Path & "\" arch = "archivo" Inicio = Range("M6").Value Fin = Range("Q6").Value For i = Inicio To Fin Range("O4").FormulaR1C1 = i ActiveSheet.PrintOut...

Existen en el foro varias respuestas sobre el tema, por ejemplo: Macro que convierta la hoja activa en pdf y la envíe por correo desde Excel Crear botón para convertir hoja en PDF y enviar por email Macro para guardar en PDF cerrar pdf y enviar por...

En la ficha de hojas, presiona click derecho del mouse sobre la hoja que quieras eliminar, en el menú que te aparece, selecciona la opción Eliminar Después en el mensaje que dice: "Para eliminar definitivamente los datos, presione Eliminar" Presiona...

Cambia en tu macro esta línea ObjWord. Activate Por estas: 'copia la imagen de la hoja3 Sheets("Hoja3"). DrawingObjects("1 imagen"). Copy ObjWord. Activate objWord.Selection.PasteAndFormat Type:=wdFormatOriginalFormatting Lo que hace es copiar la...