Sayfalar arası buttonla geçiş

[pelin5353]

Merhabalar,

Bir dosyam var. Bu dosyanın sayfaları

01.03.09
26.05.09
24.05.09

seklinde isimlendirilmis ve tamamen karisik sekilde. Tarihlerden olusuyor.

Userforma ve hersayfa içerisinde, aktif olan gunun bir onceki ve bir sonraki gunlerini button ile gorebilir miyiz.


Tesekkurler

 

[pelin5353]

Ornek dosya ektedir.

Tesekkurler

 

[heft]

İleri = ActiveSheet.Next.Select
Geri =ActiveSheet.Previous.Select

diye biliyorum

 

[pelin5353]

Maalesef ,,, olmadi

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub oncekigun()
On Error GoTo 10
onceki = Format(CDate(ActiveSheet.Name) - 1, "dd.mm.yy")
Sheets(onceki).Activate
Exit Sub
10 MsgBox "Önceki güne ait sayfa bulunamadı."
End Sub

Sub sonrakigun()
On Error GoTo 10
sonraki = Format(CDate(ActiveSheet.Name) + 1, "dd.mm.yy")
Sheets(sonraki).Activate
Exit Sub
10 MsgBox "Sonraki güne ait sayfa bulunamadı."
End Sub

 

[pelin5353]

Ellerinize saglik Levent Bey.

Cok tesekkur ederim.

Saygilarimla,