Macro para enviar en un mismo email los datos de las empresas que existan en cada fila de las celdas columnas "A" y "B"
Mi pregunta es la misma que la que puse en la pregunta: "Macro de excel para enviar email con archivos de una carpeta enviando sólo los archivos que empiecen por el texto de una columna", en la que me enviaste una macro que funciona genial. Pero me he dado cuenta de que hay veces que se deben de enviar dos comienzos de código diferente y no sólo con datos de la columna "A", ¿si los datos se obtuviesen de las columnas "A" y "B", en lugar de la "A" sólo, enviando en un mismo email datos de 2 empresas en la misma fila como por ejemplo en la columna "A" la empresa IB y en la columna B en su misma fila la empresa "UX" con una empresa en la celda A2 y otra en la B2 por ejemplo, como se haría la macro?
De lo que se trata es de que habrá filas que tengan más de una empresa, como por ejemplo la IB en la columna "A" y la UX en la columna "B" que irán en el mismo email, u otras que no tienen que llamarse IB o UX que también se podrán poner en las columnas "A" y "B" enviandose en el mismo email las del código que sea que estén en la misma fila de esas dos columnas "A" y "B". Espero haberme explicado.
Ahora te entendí menos.
Y no respondiste mi duda:
¿Quieres decir que vas a enviar todos los archivos que empiezan con IB y también los que empiezan con UX?
Si, porque en la celda de esa misma fila hay en la columna "A" una empresa con el código IB, y en la columna "B" de esa misma fila una empresa con el código UX. Los códigos podrían variar, no tienen porqué ser IB y UX. Gracias.
Si, porque en la celda de esa misma fila hay en la columna "A" una empresa con el código IB, y en la columna "B" de esa misma fila una empresa con el código UX. Los códigos podrían variar, no tienen porqué ser IB y UX. Gracias.
H o l a:
Te sugiero lo siguiente, en la columna A, puedes poner una o más empresas de la siguiente manera:
Para una empresa:
IB
Para 2 empresas:
IB, UX
Solamente tienes que poner en la columna A las empresas que quieras separadas por comas.
Te anexo la macro:
Sub correo()
'Por.Dante Amor
col = Range("H1").Column
ruta = ThisWorkbook.Path & "\"
n = col
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
'
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Range("B" & i) 'Destinatarios
dam.CC = Range("C" & i) 'Con copia
dam.Bcc = Range("D" & i) 'Con copia oculta
dam.Subject = Range("E" & i) '"Asunto"
dam.body = Range("F" & i) '"Cuerpo del mensaje"
'
ars = Split(Cells(i, "A"), ",")
For j = LBound(ars) To UBound(ars)
Set arch = Nothing
arch = Dir(ruta & Trim(ars(j)) & "*.xls*")
Do While arch <> ""
dam.Attachments.Add ruta & arch
arch = Dir()
Loop
Next
'dam.send 'El correo se envía en automático
dam.display 'El correo se muestra
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub