Sayfaların Seçilmesini Sağlama
24 Haziran 2021
467
Sayfaların Seçilmesini Sağlama isimli kodu kullanarak Excel sayfalarında geçişin nasıl kolayca yapılacağını öğrenip, çalışmalarınıza uyarlayabilirsiniz.
Sub SayfaSeçSonraki()
On Error Resume Next
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(1).Select
Else
On Error Resume Next
Worksheets(ActiveSheet.Index + 1).Select
End If
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Üstteki kodu çalıştırdığınızda sırayla tüm sayfalara geçiş yapmış olursunuz. Bu işlemi klavyeden tuşlarla yapmak isterseniz, Sonraki Sayfaya Gitmek ve Önceki Sayfaya Gitmek isimli kısayollarımızı inceleyebilirsiniz.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Bir Ekran Sağa Git | Alt PgDn |
| Ortası Çizgili Yazdırma | Ctrl 5 |
| Hücrede Yatay Ortalama Yapmak | Alt Ş OO |
| Üstü Çizgili Yazdırma | Ctrl 5 |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |