Hücre Adresine gitme

[scorpix]

Merhaba arkadaşlar.

Çalışmalarımda kullandığım bir kodu sizinle paylaşmak istedim.

Kodun amacı herhangi bir hücreye başka bir hücre adresi girildiğinde seçimi o hücreye taşımaktır.

Daha etkili şekilde bir kodlama yapacak arkadaşların önerilerini bekliyorum.

Umarım işinize yarar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
i = ActiveCell.Value
Range(i).Select
End Sub

bu kodu her excel çalışma kitabına kopyalıyorum bunu açılan her excel sayfasında çalışır hale getirmek için ne yapmam gerekiyor. kullandığım office versiyonu 2010

teşekkürler

 

[Ziynettin]

Merhaba,
Her sayfada çalışması için,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
i = ActiveCell.Value
Range(i).Select
End Sub

 

[scorpix]

teşekkürler tasmed ama ben yanlış yazmışım istediğimi.
benim isteğim her çalışma kitabında olması.. daha onceki versiyonalarda PERSONAL.XLS in içine atmamız yetiodu