Hücre Değerini Alma

[oguzka]

Merhabalar;

Sorunum şu ki, aktif olan değil bir önceki aktif olan hücrenin değerini (veya yerini) almak istiyorum. Örneğin: A1 hücresine herhangi birşey yazdım ve enter tuşuna bastım (veya ok tuşlarıyla B1 hücresine geçiş yaptım) Worksheet_change olayına aktivecell in değerini aldığımda A1'in değil daha sonra geçiş yaptığım hücrenin değerini alıyor. A1 den çıkıp herhangi bir hücreye gittiğimde A1'in değerini kullanmam gerekiyor. Worksheet'in farklı olaylarına yazmama rağmen ve birçok çözüm denememe rağmen başarılı olamadım. Yardım edebilirmisiniz?

 

[Levent Menteşoğlu]

Merhabalar;

Sorunum şu ki, aktif olan değil bir önceki aktif olan hücrenin değerini (veya yerini) almak istiyorum. Örneğin: A1 hücresine herhangi birşey yazdım ve enter tuşuna bastım (veya ok tuşlarıyla B1 hücresine geçiş yaptım) Worksheet_change olayına aktivecell in değerini aldığımda A1'in değil daha sonra geçiş yaptığım hücrenin değerini alıyor. A1 den çıkıp herhangi bir hücreye gittiğimde A1'in değerini kullanmam gerekiyor. Worksheet'in farklı olaylarına yazmama rağmen ve birçok çözüm denememe rağmen başarılı olamadım. Yardım edebilirmisiniz?

Her seferinde bir önceki aktif hücrenin verisini mi görmek istiyorsunuz.

 

[oguzka]

Evet Levent Bey. Tam olarak o şekilde. A1 hücresine birşey yazıyorum. Enter tuşuna basıyorum. Bu işlemden sonra A1 hücresindeki değeri kullanmam lazım. Ancak worksheet_change olayına makro yazdığımda ve activecell'in değerini aldığımda A1 hücresinden çıktığım için B1 hücresinin değerini alıyor.

 

[uzmanamele]

Evet Levent Bey. Tam olarak o şekilde. A1 hücresine birşey yazıyorum. Enter tuşuna basıyorum. Bu işlemden sonra A1 hücresindeki değeri kullanmam lazım. Ancak worksheet_change olayına makro yazdığımda ve activecell'in değerini aldığımda A1 hücresinden çıktığım için B1 hücresinin değerini alıyor.

Merhaba
Bunu deneyiniz.

Public deg As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
deg = Target.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox deg
End Sub

 

[oguzka]

Teşekkür ederim abi. Ben sadece change veya selectionchange olaylarına yazmıştım. Demek ki ikisini de kullanınca doğru sonuca ulaşılıyormuş.