link oluşturulan hücreyi ekranda istenilen yere çağımak.

[marmaristeen]

merhabalar,

benim şöyle bir sorum olacak...elimde bir dosya var aşağı doğru 100 er satır aralıklarla bilgiler girdim toplam 400 veri girdim yani 40.000 satırda veri olacak...şimdi benim yapmak istediğim başka bir sayfada bu 400 veri için bir index oluşturdum ve herbirine birer link oluşturdum ve linkleri çalıştırdım ancak diyelimki a11901 hücresine oluşturduğum linke tıkladığımda o hücre sayfanın en altında görüntüleniyor ve ben altında yazdıklarımı okuyamıyorum linklediğim hücrenin,çalışma sayfası alanında en üstte gözükmesini istiyorum.... yardımcı olabilecek varsa sevinirim şimdiden teşekkürler....

 

[Ferhat Pazarçevirdi]

Linkleri yazdığınız sayfanın, kod modülüne aşağıdaki kodu kopyalayın.

NOT : Kod bölümüne geçmek için, sayfa sekmeleri üzerinde sağ mouse tuşuna basın ve "Kod Görüntüleyi" tıklayın. Karşınıza çıkan beyaz sayfaya bu kodları kopyalayın.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    With Target
        ActiveWindow.ScrollRow = _
                Sheets(Mid(.SubAddress, 1, InStr(1, .SubAddress, "!", vbTextCompare) - 1)). _
                      Range(.SubAddress).Row
    End With
End Sub