repetir datos en la hoja 1 hoja 2 y hoja 3

04/05/2008 - 15:48 por botellas | Informe spam

Saludos.

Tengo un libro con tres hojas y quisiera que los datos de la celda D3
de la hoja 1 se me repitiera lo mismo en la misma celda (D3) de la HOJA 2 y
de la HOJA 3 y lo mismo si modifico la celda D3 de la HOJA2 O de la hoja3 a
la HOJA 1

mas o menos que las tres tuvieran el mismo dato en la celda D3 de las
tres hojas solo modificando en una de las tres hojas

si no lo he hecho bien adjuntaria hoja para verlo bien .

mil gracias anticipadas

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 botellas

05/05/2008 - 10:14 | Informe spam

muchisimas gracias a los dos eso mismo era lo que queria la que mejor me
funiona de los codigos expuestos es ela de ivan esta :Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address <> "$D$3" Then Exit Sub
Select Case LCase(Sh.Name)
Case "hoja1", "hoja2", "hoja3"
With ActiveSheet
Application.ScreenUpdating = False
Worksheets(Array("hoja1", "hoja2", "hoja3")).Select: .Activate
Application.EnableEvents = False
With ActiveCell: .Select: .FormulaR1C1 = .FormulaR1C1: End With
Application.EnableEvents = True
.Select
End With
End Select
End Sub
como es para poner datos numericos de telefonemas es la idonea.
mil gracias
"Héctor Miguel" escribió en el mensaje
news:

hola, 'anonimo/a' !

ok gracias. pero no hay otra forma sin usar el copiar pegar. sino lo
mismo que ponga en la hoja 1,se grave en las otras dos...

prueba con el siguiente codigo en el modulo de tu libro (ThisWorkbook)...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Target.Address <> "$D$3" Then Exit Sub
Select Case LCase(Sh.Name)
Case "hoja1", "hoja2", "hoja3"
With ActiveSheet
Application.ScreenUpdating = False
Worksheets(Array("hoja1", "hoja2", "hoja3")).Select: .Activate
Application.EnableEvents = False
With ActiveCell: .Select: .FormulaR1C1 = .FormulaR1C1: End With
Application.EnableEvents = True
.Select
End With
End Select
End Sub

saludos,
hector.