Tema: Problema Excel - concatenar..!!!

[luis15155]

Tengo un problema... tengo varios datos en varias celdas, estas las quiero concatenar pero el problema q cuando concateno una celda cuyo formato sea: personalizada del tipo 000 (cosa q si digito el numero 1 automaticamente en la celda se muestra " 001 ") al pasar a la otra celda se pierde este formato y solo se muestra asi : " 1 "
como puedo hacer para q al concatenar no se pierda el formato original...
Help me gracias

[Davidou]

Has probado a copiar ese formato en la celda "destino"?? O tienes celdas con diferentes formatos que quieres concatenar? Si es así, prueba con formato texto en todas y unirlas sin más.
Saludos.
(formato definido por usuario o personalizada)
A1 001
A2 002
A3 003
A4 004
 
Fórmula:

Código: [Seleccionar]

concatenar(A1;", ";A2;", ";A3;" y ";A4)Resultado

Código: [Seleccionar]

1, 2, 3 y 4
Pero ojo, si concatenas, te dejara la celda como Estándar, no como personalizada. Porque a todo esto, qué es lo que esperas ver al final exactamente? Eso ayudaría...

[luis15155]

Muchas gracias por la respuesta pero como mencionaste... las celdas q quiero unir son de diferente formato por decir: quieo unir un numero con untexto y ademas una fecha para q quede algo asi:

1.- factura pagada el: 02/04/07

donde cada color me representa el valor de las celdas y en otros casos tengo q unir con este simbolo: "|" pero al hacerlo se pierde el formato...

Saludos Luis.

[Mr_X]

Crea tu propia función para unir los textos, por ejemplo, algo así:

Código: [Seleccionar]

Public Function UnirCeldasConFormato(ByVal texto, ParamArray Más()) As String
Dim sTemp, sTemp1
Dim i As Integer
sTemp = Format(texto, "0000")
For i = 0 To UBound(Más())
sTemp1 = Format(Más(i), "0000")
sTemp = sTemp + sTemp1
Next i
UnirCeldasConFormato = sTemp
End Function

La función con el ejemplo que citas:

Código: [Seleccionar]

Public Function UnirCeldasConFormato2(ByVal orden, texto, fecha) As String
Dim sTemp, sTemp0, sTemp1, sTemp2
sTemp0 = Format(orden, "0.-")
sTemp1 = Format(texto, "@")
sTemp2 = Format(fecha, "Short Date")
sTemp = sTemp0 + " " + sTemp1 + " " + sTemp2
UnirCeldasConFormato2 = sTemp
End Function


[Davidou]

Ante semejante respuesta, poco queda por añadir.
Salu2 a los 2.

[luis15155]

Hola amigos como estan mi duda es la siguiente:

bueno tengo varias columnas con datos y todos estos los contaeno de la siguiente manera:

=a1&"|"&b1&"|"&c1&"|"&d1&"|"&.....&"|"&g1&"|"

y el error es el siguiente que para las columnas de formato tipo: "fecha" al llevarlos a la nueva celda sale asi: 39221 y deberia de ser asi: 19/05/07... ahora un amigo mio se dio cuenta de que al colocar ala fecha el simbolo: " ' " delante de cada una; asi: '19/05/07, lo concatena como queremos, ahora no hemos podido agregar ese simbolo a la mas de 1000 filas tipo fecha que tenemos... alguna forma de agregar este simbolo a toda esa columna??????

Muchas gracias... Luis

[destroyer]

No te sirvieron las respuestas que te dieron a este mismo tema??

http://www.daboweb.com/foros/index.php/topic,31141.0.html


Sería interesante responder a las ayudas recibidas, con el fin de conocer si fueron efectivas o no y que en el futuro sirvan para otros usuarios, al fin y al cabo, de eso se trata.

Junto este tema a tu anterior cuestion y seguimos allí para facilitar las ayudas..

Un saludo