Excel'de belirli bir sayfayı veya tüm sayfaları en üst satıra nasıl kaydırabilirsiniz?

Belirli bir sayfayı veya çalışma kitabındaki tüm sayfaları en üste kaydırmak istiyorsanız, VBA kodu hızlı ve etkili bir çözüm sunar. Bu kılavuz, gezinme işlemini kolaylaştırmak ve verilerinizde odaklanmak için basit VBA betiklerini nasıl kullanacağınızı açıklar.

VBA kodu ile belirli bir sayfayı veya tüm sayfaları en üst satıra kaydırma

VBA kodu ile belirli bir sayfayı veya tüm sayfaları en üst satıra kaydırma

Excel'de belirli bir sayfayı veya tüm sayfaları en üst satıra kaydırmak için lütfen aşağıdaki adımları izleyin.

1. Kaydırmanız gereken çalışma sayfasında, lütfen Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodlarından herhangi birini Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Belirli bir çalışma sayfasını en üst satıra kaydırma

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

VBA kodu: Tüm çalışma sayfalarını en üst satıra kaydırma

Sub Select_A1_On_Activeworkbook()
    Dim xSheet As Worksheet
    For Each xSheet In ActiveWorkbook.Sheets
        xSheet.Activate
        ActiveSheet.Range("A1").Select
    Next
    ActiveWorkbook.Worksheets(1).Activate
End Sub

3. VBA kodunu Kod penceresine girdikten sonra, lütfen kodu çalıştırmak için F5 tuşuna basın.

Etkin çalışma sayfası veya geçerli çalışma kitabındaki tüm çalışma sayfaları hemen en üst satıra kaydırılacaktır.