Aylara Göre Günleri Getirme

[iplikci_80]

Arkadaşlar çalışmanın kod sayfasında sayfaları sağa doğru kopyaladıkça aylara göre isimlerini ve sayfa üst bilgisini değiştirip hücreleri boşaltan kodlar mevcut olup yapmak istediğim şey aylara göre günleri getirmek istiyorum.

 

[askm]

Sub sekerSayfa()
kodunda end subdan önce Call ASKM_Gun_Ekle ekleyin. modülün en altına da aşağıdaki kodu yazın.

Sub ASKM_Gun_Ekle()
Dim Yil As Variant
Dim Ay As Byte
Dim Gun As Byte
ActiveSheet.Range("B4:B34").ClearContents
Yil = Year(Range("B1"))
Ay = Month(Range("B1"))
For g = 1 To Day(DateSerial(Yil, Ay + 1, 0))
    Cells(g + 3, 2) = Format(DateSerial(Yil, Ay, g), "dddd")
Next g
End Sub

 

[iplikci_80]

Sayın Askm ilginize teşekkür ederim.

 

[askm]

Rica ederim. Kolay gelsin.