Buenas Foro.

En un rango de celdas variable en columna A tengo rutas y nombres de archivos para adjuntar a un correo.

Con

.Attachments.Add

adjunto un archivo y mi pregunta es como podria adjuntar los que tengo en el rango A con algun bucle o algo?

Hola

No das los suficientes detalles, pero creo que esto te ayudará:

Enlace

Saludos

  En 19/7/2022 at 14:55 , Abraham Valencia dijo:

Hola

No das los suficientes detalles, pero creo que esto te ayudará:

Enlace

Saludos

Hola Abraham,, gracias por contestar.

Por lo que veo en tu blog, lo que hace bucle es mandar muchos correos, pero lo que yo pretendo es adjuntar un numero indeterminado  de adjuntos en un mismo correo. La ruta y nombre  de los adjuntos están desde la celda A1, A2...

Por ejemplo:

For Each Archivo In Range("A1:A7")
   .Attachments.Add Archivo.Value, 1
Next

 

  En 20/7/2022 at 7:40 , Antoni dijo:

Por ejemplo:

For Each Archivo In Range("A1:A7")
   .Attachments.Add Archivo.Value, 1
Next

 

Buenas Antoni.

He adaptado tu codigo a esto:

For Each archivo In Range("A1:A " & Application.WorksheetFunction.CountA(Hoja4.[A:A]))
   .Attachments.Add archivo.Value, 1
Next

For Each archivo In Range("A1:A " & Application.WorksheetFunction.CountA(Hoja4.[A:A]))
   .Attachments.Add archivo.Value, 1
Next

Me da el error: No se encontró el elemento seleccionado, con la linea amarilla en For each...

Sobra un espacio en Range("A1:A ", prueba así:

For Each archivo In Hoja4.Range("A1:A" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row)
   .Attachments.Add archivo.Value, 1
Next

 

  En 20/7/2022 at 9:54 , Antoni dijo:

Sobra un espacio en Range("A1:A ", prueba así:

For Each archivo In Hoja4.Range("A1:A" & Hoja4.Range("A" & Rows.Count).End(xlUp).Row)
   .Attachments.Add archivo.Value, 1
Next

 

A sus pies maestro, una vez mas y agradecido ?