celdas iguales

Hola ¿Antodemons?:
1. Su pongamos que en la celda A1 tienes el numero que quieres que se cambie
automaticamente en la celda A2, entonces en la celda A2 debes introducir
=+A1.
2. No se si se puede hacer.

Saludos,

Feliciano.
escribió en el mensaje
news:

Hola a todos.

Tengo en excel una serie de hojas en un mismo documento; y por una
parte:
Tengo dos celdas en las que va un numero (en ambas el mismo).

1: querria que con cambiar el numero en la primera celda, tambien se
cambie en la segunda, y de esta forma solo cambiarlo en un sitio en
vez de en los dos.
2: que ese mismo numero fuera cambiando para cada hoja que cree, es
decir que cuando habra una hoja nueva apareciera el numero siguiente
al que tengo puesto.

No se si me entendeis.

Gracias de antemano.

hola Antonio??

no estoy muy seguro de varios puntos, pero a la espera de algo mejor o mas sencillo puedes probar esto (y para los
siguientes supuestos):

1.->>>querria que con cambiar el numero en la primera celda, tambien se

cambie en la segunda

suponiendo que la celda donde esta el dato original es "A1" y quieres que se copie en "A2", para las hojas ya creadas
esta la opcion de Feliciano, que creo es la mas sencilla->

poner en "A2" esto ¡, o simplemente ponerte en "A2", escribir = y seleccionar "A1" y darle al intro

tambien lo puedes hacer con eventos de hoja, pero no parece que te merezca la pena en este caso. De todas formas esta
seria una opcion con los eventos:


'en el modulo de cada hoja ya creada pegas esto. Por si no sabes cual es el modulo de la hoja, puedes hacer lo siguiente
: en la pestaña de la hoja (empezndo por la 1ª/nº mas bajo) click secundario, eliges ver codigo y en la hoja (en blanco
o casi seguramente) copias pegas lo siguiente debajo de lo que pueda haber (ojo por si estas usando ya el evento Change
<fijate que la 1ª linea del codigo no este ya en uso en el modulo>, pues la cosa cambiaria). Luego vuelve a excel (con
alt+F11 por ejemplo) y repite la operacion con las hojas que quieras en oredn creciente, y ten en cuenta que las hojas
deberan ir en orden, osea la ultima creada iria la ultima y la 1ª la 1ª

'pega desde aqui
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [a2] = [a1]
End Sub
' hasta aqui

NOTA: los cambios se efectuan al 'salir' de la celda (tab o intrio , pej)

2.- no tenngo muy claro si con esto:

que ese mismo numero fuera cambiando para cada hoja que cree, es

decir que cuando habra una hoja nueva apareciera el numero siguiente
al que tengo puesto.

te refieres a crear/insertar una nueva hoja, o te refieres a abrir/activar una hoja ya existente, pero he supuesto que
es a lo 1º. En este caso tambien podrias tener (al menos) dos opciones,

opcion1.- que seria la de las formulas pero automatizado con macros y que a su vez se divide en dos

op 1.a) que la nueva hoja (que, con tu permiso colocamos la ultima, si no es asi comentas) y siguiendo con el ej. de
"a1" y "a2", tome en "a1" el valor de "a1" + 1 de la hoja anterior en el momento de la creacion, pero se desvincule

op 1.b) que se mantenga vinculada (si cambiara "a1" de la hoja anterior (y por ende de cualquier hoja anterior) se
actualizaria al valor de esta +1

en ambas opciones "a2" se iguala a "a1" via formula

en este caso debes pegar el codigo en el modulo del libro (ThisWorkbook) que puedes abrir yendo al icono de excel que
hay a la izquierda del menu archivo, click secundario sobre el icono y seguir los pasos que con la hoja. Ahora, cada vez
que crees una nueva hoja en ese libro, te la movera al final y hara lo necesario en cada caso para lo que parece pides..

OJO: en el codigo estan incluidas las dos opciones pero uno esta puesto como comentario (lleva una comilla sencilla
delante) con lo que no se ejecuta, si prefieres la otra opcon, quitale la comilla que lleva delante y POnle una a la
otra instruccion (delante, al principio de linea) OJO acuerdate de jar solo una activa.

'pega desde aqui
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move after:=Worksheets(Worksheets.Count)
' opcion1a): si quieres cambiar a la otra pon una comilla delante de la linea siguiente
Sh.[a1] = Worksheets(Worksheets.Count - 1).[A1] + 1
' opcion 1b) si quieres probarla quita la comilla que lleva delante la siguiente linea
' Sh.[a1].Formula = "=" & Worksheets(Worksheets.Count - 1).Name & "!A1+1"
Sh.[a2].Formula = "¡"
End Sub
'--hasta aqui

Opcion 2.- se trataria de la opcion de usar el evanto change, pero insertar el codigo del evento en cada hoja nueva al
crearla Igual que la anterior tienes que pegarlo en el modulo del libro (ThisWorkbook), sigue los pasos indicados antes

'pega desde aqui
Private Sub Workbook_NewSheet(ByVal Sh As Object)
With ThisWorkbook.VBProject.VBComponents(Sh.CodeName).CodeModule
.InsertLines 3, "Private Sub Worksheet_Change(ByVal Target As Range)"
.InsertLines 4, "If Target.Address = """ & "$A$1""" & "Then [a2] = [a1]"
.InsertLines 5, "End Sub"
End With
' a prtir de aqui, para 'A1' igual que la otra opcion. Puedes elegir
Sh.Move after:=Worksheets(Worksheets.Count)
' opcion1a): si quieres cambiar a la otra pon una comilla delante de la linea siguiente
Sh.[a1] = Worksheets(Worksheets.Count - 1).[A1] + 1
' opcion 1b) si quieres probarla quita la comilla que lleva delante la siguiente linea
' Sh.[a1].Formula = "=" & Worksheets(Worksheets.Count - 1).Name & "!A1+1"
End Sub
'--pega hasta aqui

bueno, parece complicado pero no lo es tanto, y en cualquier caso, si el volumen no es muy grande quizas la mejor forma
sea imtroducir las formulas manualmente

espero te ayude y si quieres comentas

un saludo
Ivan