dOS COLORES DE TEXTO EN CELDA CON FORMULA

hola, IVAN !

... posibilidad de que una formula (en este caso concatenar tre celdas de un mismo registro)
en la celda de destino el mismo color y formato que tiene el texto en las celdas de origen [...]

-> [hasta donde se] no hay ninguna funcion que utilizada en formulas en la hoja de calculo...
'traslade' los formatos de las celdas 'de origen' :-(
ni siquiera aplicar o modificar otras propiedades en las celdas [como colores, fuentes, bordes, etc.] :-(

[a menos que te sirviera usar macros]... -?-

saludos,
hector.

Héctor Miguel wrote:

hola, IVAN !

> ... posibilidad de que una formula (en este caso concatenar tre celdas de

un mismo registro)

> en la celda de destino el mismo color y formato que tiene el texto en las

celdas de origen [...]

-> [hasta donde se] no hay ninguna funcion que utilizada en formulas en la

hoja de calculo...

'traslade' los formatos de las celdas 'de origen' :-(
ni siquiera aplicar o modificar otras propiedades en las celdas [como

colores, fuentes, bordes, etc.] :-(

[a menos que te sirviera usar macros]... -?-

saludos,
hector.

Muchas gracias, Hector. Supongo que tendre que intentar aprender algo de
VB, aunque solo sea por cabezoneria.

Hola

Dudo mucho que... incluso con programación consigas aplicar formatos
multiples dentro de una celda.

En todo caso, si lo que te interesa es la presentación, podrias utilizar
Word con cartas modelo, tomando como origen la hoja de excel y presentandola
en word, aplicando todos los formatos que deseas, de esta manera no
necesitarias meterte a programar... algo que de todas formas no te llevará
al objetivo deseado

Espero sea de utilidad

Saludos
Carlos Durán




"Héctor Miguel" escribió en el mensaje
news:%

hola, IVAN !

... posibilidad de que una formula (en este caso concatenar tre celdas de
un mismo registro)
en la celda de destino el mismo color y formato que tiene el texto en las
celdas de origen [...]

-> [hasta donde se] no hay ninguna funcion que utilizada en formulas en la
hoja de calculo...
'traslade' los formatos de las celdas 'de origen' :-(
ni siquiera aplicar o modificar otras propiedades en las celdas [como
colores, fuentes, bordes, etc.] :-(

[a menos que te sirviera usar macros]... -?-

saludos,
hector.

hola, IVAN !

... Supongo que tendre que intentar aprender algo de VB, aunque solo sea por cabezoneria.

no comentas para que o por que necesitas ese tipo de concatenacion que incluya los formatos 'originales' -?-
[en via de mientras]... haz una prueba con la siguiente macro... suponiendo que...
-> en 'D2' necesitas concatenar 'A2' - 'B2' - 'C2'' intercalando un espacio entre cada una...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub ConcatenarConFormato()
[d2] = [a2] & " " & [b2] & " " & [c2]
With [d2]
With .Characters(1, Len([a2])).Font
.ColorIndex = [a2].Font.ColorIndex
.Bold = [a2].Font.Bold
.Italic = [a2].Font.Italic
.Name = [a2].Font.Name
.Size = [a2].Font.Size
.Underline = [a2].Font.Underline
End With
With .Characters(Len([a2]) + 2, Len([b2])).Font
.ColorIndex = [b2].Font.ColorIndex
.Bold = [b2].Font.Bold
.Italic = [b2].Font.Italic
.Name = [b2].Font.Name
.Size = [b2].Font.Size
.Underline = [b2].Font.Underline
End With
With .Characters(Len([a2] & [b2]) + 3, Len([c2])).Font
.ColorIndex = [c2].Font.ColorIndex
.Bold = [c2].Font.Bold
.Italic = [c2].Font.Italic
.Name = [c2].Font.Name
.Size = [c2].Font.Size
.Underline = [c2].Font.Underline
End With
End With
End Sub

Héctor Miguel wrote:Hola de nuevo y muchas gracias por vuestras
respuestas, aunque no he tenido tiempo de intentar aplicarlas.
En cualquier caso os explico un poco de que va esto, aunque quizás os
parezca un poco ridículo.
Se trata de un inventario impreso para ir dando de baja artículos
manualmente entre recepción y recepción de pedidos. Ya se que existen
miles de programas específicos (de hecho estoy ahora con ello y
probablemente ya esta formula no me sirva para nada, pero me he picado),
que he usado de manera muy útil durante años, pero aplicando el formato
final manualmente.

Se trata de insertar palotes (ies mayúsculas en negrita) con dos espacios
en una celda en función de:

COLUMNA A= STOK EN TIENDA color rojo Ej: A1= I I I

COLUMNA B= STOK EN ALMACEN color oro Ej: B1= I

COLUMNA C= ART. RECIBIDOS ULTIMO PEDIDO color oro Ej: C1= I I I I

COLUMNA D= TOTAL STOK Ej: D1= I I I I – I I I I

Las columnas A, B y C se pueden eliminar usando directamente los valores
de origen ( vienen de usar la función REPETIR(“ I “; celda con valor de
tienda, alm., etc.)) y el resultado en D1 es igual, pero pensé que así
quizás seria más fácil practicar para conseguir el mismo formato.

Bueno, disculpad este rollo, y vuelvo a agradeceros vuestra atención. En
cuanto pueda ( y me atreva) intentare la macro, pues seria la primera.

Hasta pronto
IVAN

hola, IVAN !

> ... Supongo que tendre que intentar aprender algo de VB, aunque solo sea

por cabezoneria.

no comentas para que o por que necesitas ese tipo de concatenacion que

incluya los formatos 'originales' -?-

[en via de mientras]... haz una prueba con la siguiente macro... suponiendo

que...

-> en 'D2' necesitas concatenar 'A2' - 'B2' - 'C2'' intercalando un espacio

entre cada una...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub ConcatenarConFormato()
[d2] = [a2] & " " & [b2] & " " & [c2]
With [d2]
With .Characters(1, Len([a2])).Font
.ColorIndex = [a2].Font.ColorIndex
.Bold = [a2].Font.Bold
.Italic = [a2].Font.Italic
.Name = [a2].Font.Name
.Size = [a2].Font.Size
.Underline = [a2].Font.Underline
End With
With .Characters(Len([a2]) + 2, Len([b2])).Font
.ColorIndex = [b2].Font.ColorIndex
.Bold = [b2].Font.Bold
.Italic = [b2].Font.Italic
.Name = [b2].Font.Name
.Size = [b2].Font.Size
.Underline = [b2].Font.Underline
End With
With .Characters(Len([a2] & [b2]) + 3, Len([c2])).Font
.ColorIndex = [c2].Font.ColorIndex
.Bold = [c2].Font.Bold
.Italic = [c2].Font.Italic
.Name = [c2].Font.Name
.Size = [c2].Font.Size
.Underline = [c2].Font.Underline
End With
End With
End Sub