Queda constancia del movimiento de celdas?

Sorry KL pero es q nunca habia escrito una funcion para las hojas, q por
cierto, para mi es todo un descubrimientola de cosas q voy a liar!!!
jejeje

Pues nada comentarte, que el codigo de LAM funciona si lo coloco en el
modulo de la hoja, y no en uno nuevo como habia hecho yo.

Aunque tu ultimo codigo tambien funciona correcto.
Muchas gracias a los dos...

Un saludo.
Iago.

"L. A. M." <luism0(arroba)yahoo.es> wrote in message
news:

Prueba este codigo que te detecta si en la Hoja1 se cambio la posicion de
la celda. Cuando el cursor llega a una nueva celda, guarda la posicion de
esta celda y al moverse nuevamente, compara la nueva posicion.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Hoja1.Range("c1") <> ActiveCell.AddressLocal Then
MsgBox "Se movio de la celda " & Hoja2.Range("c1") & " a la celda " &
ActiveCell.AddressLocal
End If
Hoja2.Range("c1") = ActiveCell.AddressLocal
End Sub


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/

"Iago" escribió en el mensaje
news:%

Hola, uso un programa de dibujo, SolidEdge V16, que puede recoger
variables de Excel.

La cuestion es..que si muevo una celda de excel, SolidEdge como es
logico, no se da cuenta del cambio, y da error.

Sabeis si podria crearse una pequeña aplicacion, que actualizara estos
enlaces??
Supongo que Excel cuando mueves una celda que lleva formulas etc,
simplemente reescribe la formula, y no deja constancia en ningun sitio de
ese movimiento...

En fin, para el que tenga tiempo libre..

Muchas gracias.

Un saludo.
Iago.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.797 / Virus Database: 541 - Release Date: 11/15/2004

L.A.M.,

Ya me he dado cuenta de q en mis postings mas abajo estaba yo equivocado y
es q no sabia q se podia usar los nombres de hojas directamente (cuantas
cosas me q uedan por aprender!). Inicialmente al probar tu codigo me dio
error "falta objeto" y saque apresuradamente la conclusion de q habia q
sustituir Hoja1 con Sheets("Hoja1"). Despues de experimentar con el codigo
unos minutos entendi q el problema estaba en q tu macro era para la version
castellana y yo tengo la inglesa. Asi q al cambiar Hoja1 por Sheet1
funciono.

Un saludo,
KL

"L. A. M." <luism0(arroba)yahoo.es> wrote in message
news:

Prueba este codigo que te detecta si en la Hoja1 se cambio la posicion de
la celda. Cuando el cursor llega a una nueva celda, guarda la posicion de
esta celda y al moverse nuevamente, compara la nueva posicion.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Hoja1.Range("c1") <> ActiveCell.AddressLocal Then
MsgBox "Se movio de la celda " & Hoja2.Range("c1") & " a la celda " &
ActiveCell.AddressLocal
End If
Hoja2.Range("c1") = ActiveCell.AddressLocal
End Sub


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/

"Iago" escribió en el mensaje
news:%

Hola, uso un programa de dibujo, SolidEdge V16, que puede recoger
variables de Excel.

La cuestion es..que si muevo una celda de excel, SolidEdge como es
logico, no se da cuenta del cambio, y da error.

Sabeis si podria crearse una pequeña aplicacion, que actualizara estos
enlaces??
Supongo que Excel cuando mueves una celda que lleva formulas etc,
simplemente reescribe la formula, y no deja constancia en ningun sitio de
ese movimiento...

En fin, para el que tenga tiempo libre..

Muchas gracias.

Un saludo.
Iago.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.797 / Virus Database: 541 - Release Date: 11/15/2004