Alexander Rodriguez Villamizar

Dante Amor respondió: Te anexo la macro Private Sub UserForm_Activate() 'Por.Dante Amor Set h1 = Sheets("Enviar") Set h2 = Sheets("temp") h2.Cells.Clear ' Label3.Caption = "ENVIANDO CORREOS" ruta = h1.Range("A4") If ruta = "" Then MsgBox "Ingresa la carpeta": Exit Sub If...

Dante Amor respondió: Cambié el msgbox por un listbox en esta parte: ListBox1. AddItem correo ListBox1. List(ListBox1. ListCount - 1, 1) = cedula De esa forma puedes saber por correo, cuáles cédulas no tienen archivo y no se enviaron. La macro completa: Private Sub...

Dante Amor respondió: Pon tu macro para enviar correos Y una imagen de cómo estarían tus datos

Dante Amor respondió: En una celda quieres poner la carpeta C:\pdf? ¿Y en otras celdas quieres poner los números de archivo a buscar? Supongamos que tienes tu hoja así: Entonces en la celda A2 pon el nombre de tu carpeta De las celdas B2 hacia abajo pon los números que...

Dante Amor respondió: Supongo que tienes esta macro. Le hice un cambio para que te pinte la celda de rojo si el archivo no existe Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("H1").Column For i = 2 To Range("B" &...