takvim

[microaim]

değerli arkadaşlar;
forumdan bulduğum bir takvimi çalışmama uydurmaya çalıştım.takvimin tarihi başka bir sayfadan geliyor.worksheet_change olayı kullanıldığı için takvim sayfasına gelmeden değişiklikler olmuyor.detaylı açıklamam ektedir.teşekkür ederim.

ayrıca takvim sayfasında satırlara tarihlerin yazılması yeterli.sütunlara yazılmasa da olabilir.bunun için ne yapabiliriz?

 

[Levent Menteşoğlu]

Takvim sayfasındaki kodu silin ve sayfa1'in kod sayfasına aşağıdaki kodu kopyalayarak deneyin.

Private Sub Worksheet_Calculate()
 Application.EnableEvents = False
       Dim TARİH As Date
    Set s1 = Sheets("takvim")
    s1.Range("A3:A34").ClearContents
    s1.Range("B1:AF1").ClearContents
    TARİH = s1.[A2]
    AY = Month(TARİH)
    TARİH = DateSerial(Year(TARİH), Month(TARİH), 1)
    SATIR = 3
    SÜTUN = 2
    For X = 1 To 31
    If Weekday(TARİH, vbMonday) = 6 Then TARİH = TARİH + 2
    If Weekday(TARİH, vbMonday) = 7 Then TARİH = TARİH + 1
    If Month(TARİH) = AY Then
    s1.Cells(SATIR, 1) = TARİH
    s1.Cells(1, SÜTUN) = TARİH
    s1.Cells(2, SÜTUN) = Format(TARİH, "dddd")
    SATIR = SATIR + 1
    SÜTUN = SÜTUN + 1
    TARİH = TARİH + 1
    End If: Next
Application.EnableEvents = True
End Sub

 

[microaim]

hocam ne kadar teşekkür etsem azdır.