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

Preguntas similare

Leer las respuestas

#1 srtaele
04/05/2008 - 18:06 | Informe spam
Buenas tardes, botellas

1. Selecciona el dato de la celda a copiar de la Hoja1
2. Copialo con Ctrl+C o menú Edición - Copiar
3. Selecciona las hojas 1 y 2 haciendo clic en su pestaña mientras
mantienes la tecla ctrl pulsada
4. Pega el dato con Ctrl+V

Para modificar un dato en todas las hojas, recuerda siempre
agruparlas, haciendo clic con el botón derecho sobre la pestaña de
cualquier hoja y seleccionando la opción Seleccionar todas las hojas.

Gracias


On 4 mayo, 15:48, "botellas" wrote:
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
Respuesta Responder a este mensaje
#2 botellas
04/05/2008 - 21:33 | Informe spam
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.
gracias
"srtaele" escribió en el mensaje
news:
Buenas tardes, botellas

1. Selecciona el dato de la celda a copiar de la Hoja1
2. Copialo con Ctrl+C o menú Edición - Copiar
3. Selecciona las hojas 1 y 2 haciendo clic en su pestaña mientras
mantienes la tecla ctrl pulsada
4. Pega el dato con Ctrl+V

Para modificar un dato en todas las hojas, recuerda siempre
agruparlas, haciendo clic con el botón derecho sobre la pestaña de
cualquier hoja y seleccionando la opción Seleccionar todas las hojas.

Gracias


On 4 mayo, 15:48, "botellas" wrote:
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
Respuesta Responder a este mensaje
#3 Ivan
04/05/2008 - 22:07 | Informe spam
hola,

creo que una forma sencilla sin usar codigo es la que te comenta la
Srta. L: seleccionar las hojas que te interese antes de modificar la
celda D3 (y, OJO, deseleccionarlas antes de editar ninguna otra

otra forma podria ser por codigo con algo asi:

copia pega el siguiente codigo en el modulo del libro (Thisworkbook,
=> para abrirlo, estando en excel, pej. puedes hacer click secundario
sobre el icono de excel que hay justo a la izquierda del menu Archivo
(no el de la barra de titulo) y seleccionar ver codigo)

solo asegurate de que no estas usando ya el evento SheetChange en
dicho modulo, y de poner correctamente tanto la celda a modificar en
la variable celda y los nombres de las hojas en el array Hojas. Tal y
como esta funciona para los datos que dabas en tu 1er mensaje

' *****pega desde aqui ****************
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim celda As String, hj As Worksheet, hojas
celda = "D3"
hojas = Array("Hoja1", "Hoja2", "Hoja3")
Select Case Sh.Name
Case "Hoja1", "Hoja2", "Hoja3"
If Target.Address(0, 0) = celda Then
For Each hj In ThisWorkbook.Worksheets(hojas)
Application.EnableEvents = False
hj.Range(celda).Value = Target.Value
Application.EnableEvents = True
Next
End If
Case Else
End Select
End Sub

' ********pega hasta aqui ***********

espero te ayude

un saludo
Ivan
Respuesta Responder a este mensaje
#4 Ivan
04/05/2008 - 23:24 | Informe spam
disculpame,

pero hay una cosa que no me acaba de gustar en el otro codigo (no
tiene sentido usar una variable para las hojas y luego asignar el
literal en el select case)

si quieres prueba este otro, en el que solo debes tener en cuenta

a) asignar a la constante 'celda' la referencia de la celda (con
mayusculas y entre comillas)

b) y a la constante 'hjs' los nombres de las hojas separados con
[solo] un espacio y con otro espacio al inicio y al final. Estos
espacios son para evitar posibles equivocaciones si tuvieras varios
nombres de hoja con una misma raiz. pej "Hoja1" y "Hoja11", y
quisieras que los cambios no se ejecutasen en alguna de ellas

c) la funcion split solo esta disponible [creo recordar que] desde la
version 2000. Si lo necesitas para una version anterior, comentas y se
puede implementar facilmente una funcion Split, facilitada en su dia
por HM

bueno este es el nuevo codigo (elimina borra el anterior)

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Const celda As String = "D3"
Const hjs As String = " Hoja1 Hoja2 Hoja3 "
Dim n As Integer, hojas() As String
If InStr(hjs, " " & Sh.Name & " ") > 0 And _
Target.Address(0, 0) = celda Then
hojas() = Split(Trim(hjs))
For n = LBound(hojas) To UBound(hojas)
Application.EnableEvents = False
ThisWorkbook.Worksheets(hojas(n)) _
.Range(celda).Value = Target.Value
Application.EnableEvents = True
Next
End If
End Sub

espero te ayude, aunque seguro que alguien te la simplifica o te da
una solucion mas simple

un saludo
Ivan
Respuesta Responder a este mensaje
#5 Héctor Miguel
05/05/2008 - 08:49 | Informe spam
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.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida