GENERAL, ayuda informatica, trucos, problemas, internet, messenger, software, programas, solidaridad, P2P > Foro general - Internet - Trucos - Redes - Ayuda informatica - Software - Programas

Problema Excel - concatenar..!!!

(1/2) > >>

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: ---concatenar(A1;", ";A2;", ";A3;" y ";A4)
--- Fin del código ---
Resultado

--- Código: ---1, 2, 3 y 4
--- Fin del código ---

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... :destroyer:

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: ---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

--- Fin del código ---

La función con el ejemplo que citas:


--- Código: ---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

--- Fin del código ---

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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente