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 !

Mostrar la cita
[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 :