Macro Excel para concatenar emails (B1...Bn) en la celda (A1) separados por ;

La macro debe recorrer toda la columna B con emails y CONCATENAR en la celda A1 separados por ;

                          A                                                                               B

1      [email protected]; [email protected]........                        [email protected]

2                                                                                               [email protected]

3                                                                                               [email protected]

4                                                                                              [email protected]

5                                                                                              [email protected]

6                                                                                              [email protected]

7                                                                                              [email protected]

8                                                                                            [email protected]

...

2 Respuestas

Respuesta
2

Ejecuta la siguiente macro en tu hoja

Sub Concatenar()
'Por.Dante Amor
    For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
        cadena = cadena & ";" & Cells(i, "B")
    Next
    [A1] = Mid(cadena, 2)
End Sub
Respuesta
1

Esto te debería servir.

Sub Concatena_mails()

Set MyRing = Range("B1").CurrentRegion.Cells
For Each MyCell In MyRing
Concatenate = MyCell & "; " & Concatenate
Next

Range("A1").Value = Mid(Concatenate, 1, Len(Concatenate) - 2)

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
2 respuestas

Alguien tendría un ejemplo de citas para clínicas, ¿En access 2007?

Me gustaría tener un ejemplo de access, base de datos de una clínica para citas.
3 respuestas

How do I find a good construction contractor for a home renovation project?

Interested in the uk area. Building a home will be a great investment and dream of their life for most of the people. It is really important to choose the best building contractor for this work. Choosing the right, trustworthy professional contractor...
19 respuestas

¿Alguno tiene un programa de tpv hecho por access 2007

Quiero que me desarrollen una base de datos en Microsoft Access 2007 para un sistema TPV (Terminal Punto de Venta) orientado a un comercio minorista. El sistema debe ser muy completo, funcional y adaptable, permitiendo que yo pueda modificar...
3 respuestas

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
1 respuesta

Crear registro en formulario con datos de otro formulario

Tengo un pequeño problema: Tengo una tabla de Clientes con un formulario a través del cual introduzco nuevos clientes. Además tengo otra tabla de contactos con otro formulario asociado. En el formulario contactos voy introduciendo datos de posibles...
9 respuestas

Contar celdas que contengan ciertos caracteres

Espero puedan ayudarme, tengo un listado horizontal de 9 celdas, en las cuales contienen 6 tipos de identificación. A,C,D,1,2 y V Al final de esas columnas, necesito contar por ejemplo solo las A, C y 1. Ya lo intente, pero no puedo lograrlo, ¿Me...
1 respuesta

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
2 respuestas

¿Cómo convertir valores de una celda en sucesivas filas?

Habitualmente trabajo con Access, pero desde una oficina me han pasado un archivo de Excel donde en cada fila de una hoja se indican en la primera columna el número de caja y en la celda siguiente (segunda columna) todos los números de expediente que...
1 respuesta

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
11 respuestas