Poner datos en filas
tengo en una celda A1 varios emails concatenados con ; y quiero que cada emails vaya en una fila (no en columna). Como puedo hacerlo.
Un saludo.
Gracias
1 Respuesta
Te mando mi solución. Posiciónate encima de la celda A1 y después ejecuta esta macro:
Sub ejemplo() 'por luismondelo fila = 1 tope = Len(ActiveCell) For x = 1 To tope + 1 extrae = Mid(ActiveCell, x, 1) If extrae = ";" Or extrae = "" Then Cells(fila, 2).Value = lista fila = fila + 1 lista = "" GoTo salto End If lista = lista & extrae salto: Next End Sub
recuerda finalizar la consulta
perdona pero soy novata y no se como se ejecuta una macro si me lo pudiera explicar. lo agradecería.
un saludo
En tu excel pulsa ALT F11 y se abrirá el editor de macros.
Ahora en el menú superior pulsa en insertar-----módulo y aparecerá un módulo nuevo con la pantalla en blanco en la zona derecha. En esa zona blanco pega literalmente la macro que te he enviado.
Ahora vuelve a excel y posiciónate en la celda A1 donde están todos los mail juntos y pulsa ALT F8 se abrirá el listado de macros existentes, elige la macro llamada ejemplo y ejecútala
