no se como hacer

12/04/2005 - 21:32 por Hermano2 | Informe spam

tengo el Office 2000 profecional, mi duda es (y que contesten como hacerlo
paso por paso, ya que soy nuevito) tengo una oracion "PERIODO: ENERO
VENCIMIENTO: 15/01/05" la cual ENERO y 15/01/05 esta en rojo, toda la oracion
negrita y con tamaño de fuente en 12, y quiero que en varias partes se copie
lo mismo tal cual como esta, para asi cuando tenga que cambiarle los meses y
dias cambie de un solo lugar y eso haga que cambie en todos... pongamosle que
esta en N15, yo le pongo =N15, pero solo se copia el texto, no copia ni el
tamaño, ni negrita, y mucho menos ENERO y 15/01/05 que tienen que tener color
rojo... como hago para que copie con las espesificaciones antes dadas????
expliquenme paso por paso que debo hacer

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

13/04/2005 - 06:16 | Informe spam

hola, Hermano2 !

... tengo una oracion "PERIODO: ENERO VENCIMIENTO: 15/01/05"
... ENERO y 15/01/05 esta en rojo, toda la oracion negrita y... fuente en 12
... que en varias partes se copie... tal cual... esta
... asi cuando tenga que... cambie de un solo lugar y eso haga que cambie en todos
... expliquenme paso por paso que debo hacer...

[creo que] la forma mas 'rapida' y sencilla es usando los eventos por cambios en 'la hoja'
te expongo un ejemplo al final... si cualquier duda... comentas?
saludos,
hector.
=[p.e.] suponiendo que la oracion esta en la celda 'A1' de 'cierta' hoja...
y que requieres que se copie 'tal cual' a las celdas 'C10', 'B15', 'E20' y 'D35'
y tambien a la celda 'A1' de todas las demas hojas de calculo en el libro...
-> haz un click-derecho sobre la pestaña con el nombre de 'esa' hoja
-> selecciona la opcion de 'ver codigo' y copia las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Copy Range("c10,b15,e20,d35")
Dim Hoja As Worksheet
For Each Hoja In Worksheets
If Hoja.Name <> Me.Name Then Target.Copy Hoja.[a1]
Next
End Sub

Responder a este mensaje

#2 Lisandro

13/04/2005 - 16:38 | Informe spam

Hola Hector!
Excelente!! estaba en la espera de tu opinion al respeto.

Saludos,
Lisandro

hola, Hermano2 !

... tengo una oracion "PERIODO: ENERO VENCIMIENTO:

15/01/05"

... ENERO y 15/01/05 esta en rojo, toda la oracion

negrita y... fuente en 12

... que en varias partes se copie... tal cual... esta
... asi cuando tenga que... cambie de un solo lugar y

eso haga que cambie en todos

... expliquenme paso por paso que debo hacer...

[creo que] la forma mas 'rapida' y sencilla es usando los

eventos por cambios en 'la hoja'

te expongo un ejemplo al final... si cualquier duda...

comentas?

saludos,
hector.
=>[p.e.] suponiendo que la oracion esta en la celda 'A1'

de 'cierta' hoja...

y que requieres que se copie 'tal cual' a las

celdas 'C10', 'B15', 'E20' y 'D35'

y tambien a la celda 'A1' de todas las demas

hojas de calculo en el libro...

-> haz un click-derecho sobre la pestaña con el nombre

de 'esa' hoja

-> selecciona la opcion de 'ver codigo' y copia las

siguientes lineas...

en el modulo de codigo de 'esa' hoja ==>Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Copy Range("c10,b15,e20,d35")
Dim Hoja As Worksheet
For Each Hoja In Worksheets
If Hoja.Name <> Me.Name Then Target.Copy Hoja.[a1]
Next
End Sub

.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida