Ayuda necesito agregar cadenas de texto a otra cadenas en VBA Excel
Buen día expertos estoy realizando una base de datos de personal de una empresa, pero me tope con un problema, la situación está así, en la columna A está el nombre de la persona, en la B está su correo electrónico, en la C el área al que pertenecen. Esta lista la utilizaré para enviar correo electrónico por áreas, regularmente ocupo Hotmail por lo cual me basta con separar los correos electrónicos con una coma (,) y al pegarlos en el campo de destinatario Hotmail lo reconoce. Mi idea es la siguiente:
Recorrer todos los contactos con un Bucle For.. Next.
mas o menos así:
For i = 1 to 100
if cells(i,3).value = textbox1.value (<< este será el textbox donde escribiré el área) then
aquí es donde necesito un procedimiento que vaya agregando en un Textbox2 los correos electrónicos seguidos de una coma, de tal manera que al final quede mas o menos el textbox2: [email protected], [email protected], [email protected], ..... para despues poder copiarlos con otro procedimiento que ya tengo hecho y pegarlo en la página de hotmail.
End if
Next i
Espero me puedan apoyar con la resolución de este problema, de antemano mis mas sinceros agradecimientos, que tengas una excelente tarde. Saludos
1 respuesta
Te anexo la macro
Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
For i = 1 To Range("C" & Rows.Count).End(xlUp).Row 'ultima fila
If Cells(i, 3).Value = TextBox1.Value Then
TextBox2 = TextBox2 & Cells(i, "B") & ","
End If
Next
End SubLe agregué esto Range("C" & Rows.Count).End(xlUp).Row, para encontrar la última fila de la columna C
Saludos. Dante Amor
No olvides valorar la respuesta.
Wow amigo, en serio gracias, de haber puesto un poco más de coco lo hubiera podido hacer jajaja. Muchas gracias por tu ayuda es perfectamente lo que buscaba.
Desde Oaxaca, México, te envío un saludo.
