Sayfaların Seçilmesini Sağlama
24 Haziran 2021
650
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 | |
|---|---|
| Bitiş Modunu Açma | End |
| Baskı Önizleme | Ctrl F2 |
| Bir Ekran Sola Git | Alt PgUp |
| Bitişik Olmayan Hücrelerde Sola Gitme | Ctrl Alt ← |
| Ad Yöneticisi Penceresinin Açılması | Alt F X |