Encadenar datos con prefijo y sufijo
Buenas tardes y gracias de antemano.
Soy bastante novato en Excel (2007), y me encuentro con que tengo un problema que solventar cuanto antes.
Es éste:Dispongo de una tabla con unos identificativos (1 al 50, en principio, en las
columnas
O,P,Q,R,S y sucesivas), que pueden estar o no en todas ellas, es decir,
las celdas pueden alternar entre aquellas con o sin datos.
Pues bien, sin que sean modificadas, hay que anteponerles un prefijo (AUX-), y un sufijo (-EM01) a cada una de ellas, y una vez los tengan añadidos, deben componer una
cadena
en el orden creciente desde el Identificativo 1 al Identificativo 50,
estando en la cadena separados por una coma entre ellos, y esta cadena
debe aparecer en la
celda que corresponda a su fila, de la columna N.
Nota: Por aclarar mi pregunta he añadido esta imagen
http://www.subeimagenes.com/img/problema-concatenaci%C3%B3n-553169.html
en la que le indico las posiciones de las celdas (sólo indico 5 identificativos
pero pueden ser hasta 50). Indico la columna en la que debe aparecer la
cadena con la información.
Gracias mil.
2 respuestas
Claro que sí, pero antes, darte las gracias por tu rápida respuesta.
Te adjunto la imagen con las cadenas resultantes de las dos primeras líneas. Indicarte que podrían ser hasta 50 columnas con indicativos (por si hubiera alguna limitación con la longitud de la cadena...).
La imagen es ésta <a>http://www.subeimagenes.com/img/problema-concatenacion-cadenas-553404.html</a>
Las dos primeras cadenas serían:
CADENA EN "N2" --> AUX-121QQW2E-EM01,AUX-12QQW2W-EM01,AUX-125885-EM01,AUX-1458552-EM01,AUX-ASD32334E-EM01,AUX-2334R5-EM01
CADENA EN "N3" --> AUX-1022114PGR-EM01,AUX-D112WSW-EM01,AUX-EWS45565-EM01,AUX-25125-EM01,AUX-12222-EM01,AUX-3DWWE3E4-EM01,AUX-56TTG5-EM01,AUX-12QWWSA-EM01
Gracias.
Si necesitas el fichero o cualquier otra cosa no dudes en pedírmela.
Saludos, Santi.
Te anexo una macro y cómo la puedes ejecutar.
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: encadenar
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub encadenar()
'por.dam
For i = 2 To ActiveCell.SpecialCells(xlLastCell).Row
cadena = ""
For j = Columns("O").Column To Cells(i, Columns.Count).End(xlToLeft).Column
If Cells(i, j) <> "" Then _
cadena = cadena & "AUX-" & Cells(i, j) & "-EM01,"
Next
If cadena <> "" Then _
Cells(i, "N") = Left(cadena, Len(cadena) - 1)
Next
End SubSaludos.Dam
Si es lo que necesitas.
Todo se puede programar :)
Debes utilizar fundamentalmente la función concatenar. Para que la fórmula no sea muy grande utilizaría para cada celda una celda de transición.
Es decir en la fila 10 por ejemplo haces la transición de la fila 2.
En la fila 10 usas la formula en la celda O10 la formula =concatenar("AUX", O2,"EM01")
Ya tienes transformada la celda O2, asi haces con todas las celdas, utilizando las filas de la 10 en adelante
Después en la fila 2, celda N2 usas =concatenar(O2, P2, Q2... hasta la letra que sea)
Espero haberte ayudado. No olvides valorar la respuesta