Hücre değerine göre makronun çalışması

[dedenet]

Elimde, içinde 150 numara olan 1650 satırlık geniş bir liste var.
Bu liste üzerinde istediğim numaraya anında gidebilmek istiyorum
Mesela 95. numaradayken 25. numaraya hemen gitmek istiyorum.

E1 hücresine kaç numaraya gitmek istediğimi yazacağım.
Ekranda hemen o numaraya gidecek. Her numaranın altında 11 satır var.
1 numara 2.satırda
2 numara 13.satırda
3 numara 24.satırda
....
82 numara 893.satırda

Yani E1 hücresine yazdığım değerin 11 katının 9 eksiği satır numarasını veriyor.

Yapmak istediğim, E1 hücresine 82 yazdığımda direk 893.satırı göstermesini istiyorum

Aşağıdaki kodu yazdım kod ancak çalışmadı.
Kullandığım liste ektedir. Bu konuda yardım istiyorum.
Teşekkürler..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then

ActiveWindow.ScrollRow = [$E$1] * 11 - 9

End If
End Sub

 

[yanginci34]

Buyrun. not: 30000 satıra kadar çalışır.

 

[dedenet]

Teşekkür ederim. Ancak nasıl yaptığınızı anlatabilir misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E1]) Is Nothing Then Exit Sub
For i = 2 To 30000
If Target.Value = Cells(i, 2).Value Then
Cells(i, 2).Select
End If

Burada i değerini E1 den nasıl alıyor.
Ayrıca E1 ile i sayısı arasında bağlantı nedir?