Calender

[Ayhan Ercan]

nasıl bir kod yazmalıyım ki, calender de seçili olan "ay" için excel çalışma sayfası eklesin.

calendar da "ay"ı değiştirdiğim zaman o aydaki sayfayı seçsin. o sayfa yok ise oluştursun..

 

[Ayhan Ercan]

selam arkadaşlar. sanırım sorum anlaşılmadı.

userformuma bir calender nesnesi ekledim.
calendar nesnesinin günlük tarihi gösterebilmesi için gerekli kodu yazdım.
benim istediğim, calendar nesnesinde görünen tarih için (sadece "ay" hanesi) çalışma sayfasını seçsin.

yani çalışma kitabimda 12 sayfa olduğunu varsayalım. her ay için bir sayfa. sayfa isimleride ocak2008 şubat2008 mart2008 diye devam ediyor olsun.
benim istediğim eğer calender nesnesi 27.03.2008 gösteriyorsa (Mart ay&#305 sayfasını seçsin. eğer mart2008 sayfası yok ise o sayfayı oluştursun.
umarım bu sefe anlatabilmişimdir. şimdiden teşekkür ederim.

Bu işlemi bir command butonuna da ekleyebilirim

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Dim str_ay As String, str_yil As String, syf As String
Dim sf As Worksheet
If Calendar1.Value = Empty Then Exit Sub
str_ay = Format(Calendar1.Value, "mmmm")
str_yil = Format(Calendar1.Value, "yyyy")
syf = str_ay & str_yil
For Each sf In Worksheets
    If sf.Name = syf Then GoTo var
Next
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = syf
MsgBox syf & " İsimli sayfa eklendi..!!", vbOKOnly + vbInformation, Application.UserName
var:
Sheets(syf).Select

 

[Ayhan Ercan]

Sayın Evren Gizlen Ustam.

çok teşekkür ederim, eliğine sağlık tam arzu ettiğim şekilde olmuş. helal et hakkını....

 

[Orion1]

Sayın Evren Gizlen Ustam.

çok teşekkür ederim, eliğine sağlık tam arzu ettiğim şekilde olmuş. helal et hakkını....

Rica ederim.
İyi çalışmalar.