Ilgili Sayfaya Takvim Ile gitmek

[pelin5353]

Merhabalar,

Ekteki dosyada yer alan takvim araciligi ile ilgili sayfaya gitmek istiyorum. Tabi sayfalarin geri kalanini ben sonra ekleyecegim..Yardimlariniz icin tesekkurler!!

 

[pelin5353]

Pardon Dosya Ekte..

 

[Levent Menteşoğlu]

Aşağıdaki kodu takvim nesnesine yazın.

Private Sub Calendar1_Click()
deg = Format(Calendar1, "dd.mm.yy")
Sheets(deg).Select
End Sub

 

[pelin5353]

Sayin Levent Bey,

Yine Cok Tesekkur Ederim...Cok Sagolun..

 

[pelin5353]

Sayin Leventm,
Asagida yer alan makro ile sayfalari isimlendiriyorum. Manuel olarak sayfalara 01.01.07 yazdigimda takvim sayfalari taniyor. Ama makro ile hucrede yer alan tarih sayfaya uygulandiginda takvim sayfalari bulamiyor. Makro ::

Sub Button1_Click()
On Error GoTo Hata:
For i = 2 To Cells(500, 1).End(3).Row - 1
Sheets(i).Name = Cells(i, 1).Value
Next i
MsgBox "Bitti"
Hata:
Exit Sub
End Sub

 

[Levent Menteşoğlu]

Sheets(i).Name = Cells(i, 1).Value

Yukarıdaki satırı aşağıdaki ile değiştirin.

Sheets(i).Name = format(cdate(Cells(i, 1).Value),"dd.mm.yy")

 

[pelin5353]

Sayin Leventm. Tesekkur ederim..Cok Sagolun..