Excel sayfalari arasi gecis

[berat01]

Merhaba arkadaslar,
Bir ileri sayfayi acacak bir makro yazmak istiyorum.
Örnegin sayfa1 acikken calistirdigimda sayfa2 acilmali.

söyle bir program yazdim:

Sub ileri()
ActiveSheet.Next.Select
End Sub

Ancak sayfa3 aciksa daha ileri bir sayfa olmadigi icin hata veriyor.
Assagidaki gibi bir seyi nasil yazabilirim??

Sub ileri()
If(ileride sayfa varsa) Then '????
ActiveSheet.Next.Select
End If
End Sub

Yani kisacasi if e eklemem gereken bool operatörünü bilemedim.

Tesekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub ileri()
If ActiveSheet.index<sheets.count Then
ActiveSheet.Next.Select
End If
End Sub

 

[halit3]

Sub ileri()
On Error GoTo 110
AC = ActiveWorkbook.Sheets.Count
For i = 1 To AC
If Sheets(i).Name = ActiveSheet.Name Then GoTo 100
Next
GoTo 110
100 If i + 1 > AC Then i = 0
Sheets(i + 1).Select
110
MsgBox (ActiveSheet.Name & " Sayfasına Geldiniz.")
End Sub

alternatif kod

Sub geri()
On Error GoTo 110
AC = ActiveWorkbook.Sheets.Count
For i = 1 To AC
If Sheets(i).Name = ActiveSheet.Name Then GoTo 100
Next
GoTo 110
100 If i - 1 < 1 Then i = AC + 1
Sheets(i - 1).Select
110
MsgBox (ActiveSheet.Name & " Sayfasına Geldiniz.")
End Sub

 

[berat01]

Cok tesekkür ederim.