Foros de daboweb
GENERAL, ayuda informatica, trucos, problemas, internet, messenger, software, programas, solidaridad, P2P => Foro general - Internet - Trucos - Redes - Ayuda informatica - Software - Programas => Mensaje iniciado por: luis15155 en 10 de Mayo de 2007, 07:12:54 pm
-
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
-
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:
concatenar(A1;", ";A2;", ";A3;" y ";A4)Resultado
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... :destroyer:
-
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.
-
Crea tu propia función para unir los textos, por ejemplo, algo así:
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:
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
-
Ante semejante respuesta, poco queda por añadir.
Salu2 a los 2.
-
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
-
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