Makro ile sayfalar arası geçiş

[recepkull]

Arkadaşlar iki tane makro yazmak istiyorum biri bir sonraki sayfaya gidecek diğeri bir önceki sayfaya gidecek. Bu konuda yardımınıza ihtiyacım var.

 

[turist]

Sonraki Sayfaya Gitmek için:
ActiveSheet.Next.Select

Önceki Sayfaya Gitmek için:
ActiveSheet.Previous.Select

 

[recepkull]

Sub İleri()


ActiveSheet.Next.Select
End Sub

Hocam bu kodda eğer ileride başka sayfa yoksa uyarı mesajı çıkartabilir miyiz ?

 

[turist]

Sub ileri()



On Error Resume Next
    ActiveSheet.Next.Select
End Sub
Sub geri()




On Error Resume Next
    ActiveSheet.Previous.Select
End Sub

şeklinde kullanırsanız hata olduğunda makro sonlanır, hata mesajı da vermez.

 

[recepkull]

Teşekkür ederim.

 

[turist]

Sağ olun.