Kaydırma çubuğu hk.

[recepkull]

Arkadaşlar sayfamda A1:CAA100 hücre aralığında veriler mevcut. Anlayacağınız üzere sayfa baya sağa doğru uzuyor. Şimdi benim burada yapmak istediğim sayfaya girdiğimde kaydırma çubuğunun son bıraktığım yerde değilde en solda olmasını istiyorum. Bu konuda yardımınıza ihtiyacım var.

 

[Ömer BARAN]

Merhaba.

Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak VBA ekranında
sağdaki boş alana aşağıdaki kod blokunu ekleyerek deneyiniz.

Private Sub Worksheet_Activate()
    Cells(ActiveCell.Row, "A").Select
End Sub

 

[recepkull]

Çok teşekkür ederim baran hocam

 

[Ömer BARAN]

Estağfurullah, kolay gelsin.

 

[recepkull]

Hocam sizden ilham alarak şöyle bir şey düşündüm. Aşağıdaki kod da aynı işlevi görür değil mi ?

Private Sub Worksheet_Activate()
    ActiveWindow.SmallScroll ToRight:=-1000
End Sub

 

[Orion1]

Makro kaydet ile bulabilirsiniz.

 

[Ömer BARAN]

Aşağıdaki gibi yazarsanız daha şık durur bence.

Application.Goto Cells(Activecell.Row, "A"), Scroll = False

 

[recepkull]

Bilgiler için teşekkür ederim yavaş yavaş çözmeye başlıyorum bu işi