Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

no se como hacer

12/04/2005 - 21:32 por Hermano2 | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :