Queda constancia del movimiento de celdas?

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

Igual la pregunta es demasiado estupida, pero...
Cuando se ejecuta ese proceso? He copiado esa funcion en un modulo, de un
libro nuevo, y...no ocurre nada, tengo que definir algo mas?
Aun asi...muchas gracias.
Un saludo.
Iago.

Iago,

Creo q L.A.M. se ha olvidado de decirte pensando q es obvio q tienes q
sustituir Hoja1 y Hoja2 en el codigo con Sheet("nombredetuprimerahoja") y
Sheet("nombredetusegundahoja") respectivamente. Ejemplo:

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

Saludos,
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

Otra alternativa seria declarar Hoja1 y Hoja2 como variables. Ejemplo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Hoja1 As Worksheet, Hoja2 As Worksheet
Set Hoja1=Sheet("Hoja1"): Set Hoja2=Sheet("Hoja2")

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


"KL" <lapink2000(at)hotmail.com (former )> wrote in
message news:u7MhnY$

Iago,

Creo q L.A.M. se ha olvidado de decirte pensando q es obvio q tienes q
sustituir Hoja1 y Hoja2 en el codigo con Sheet("nombredetuprimerahoja") y
Sheet("nombredetusegundahoja") respectivamente. Ejemplo:

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

Saludos,
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

Iago,

No se q me pasa, quizas no debiera correr tanto. No hagas caso a mis dos
postings anteriores: el primero tiene un error de sintaxis en el codigo y
tiene q leer Sheets("Hoja1") Sheets("Hoja2") y no Sheet("Hoja1")
Sheet("Hoja2") y el segundo se me fue sin terminar de chequear el codigo.
Aqui esta lo q queria ofrecerte. Este codigo lo tienes q copiar en el modulo
de la Hoja1 (o la q se vaya a evaluar).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Hoja1 As Worksheet, Hoja2 As Worksheet
Set Hoja1 = Worksheets("Hoja1")
Set Hoja2 = Worksheets("Hoja2")

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

Saludos,
KL

"KL" <lapink2000(at)hotmail.com (former )> wrote in
message news:u7MhnY$

Iago,

Creo q L.A.M. se ha olvidado de decirte pensando q es obvio q tienes q
sustituir Hoja1 y Hoja2 en el codigo con Sheet("nombredetuprimerahoja") y
Sheet("nombredetusegundahoja") respectivamente. Ejemplo:

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

Saludos,
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