Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
-- Alt taraftan ilgili sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
-- Bu işlemi belgenizdeki tüm sayfalar için tekrarlayın.
.
Kod:
[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
If ActiveCell = "" Then
If ActiveWorkbook.Sheets.Count = ActiveSheet.Index Then
Sheets(1).Activate
Else
Sheets(ActiveSheet.Index + 1).Activate
End If
End If
[B]End Sub[/B]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.