Dongu ile ayın günlerini yazırma

[ASMET67]

Merhaba.
Macro ile Combodan seçilen aya ait tarihleri döngü ile nasıl sayfaya yazdırabilirim.
Örneğin : Ocak ayı seçildiğinde 1 ocaktan bağlayıp 31 ocağa kadar şubat şeçildiğinde 1 şubattan 28 şubata kadar döngü nasıl kurabilirim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

[COLOR=green]'ay adlarını combobox'a al[/COLOR]
Private Sub UserForm_Initialize()
 
    Dim i As Byte
 
    For i = 1 To 12
        ComboBox1.AddItem Format(CDate("1." & i), "mmmm")
    Next i
 
End Sub
 
[COLOR=green]'seçilen ayın günlerini sayfaya yazdır[/COLOR]
Private Sub ComboBox1_Change()
 
    Dim son As Byte, i As Byte
 
    son = Day(DateSerial(Year(Date), ComboBox1.ListIndex + 2, 0))
 
    Range("A1:A31").ClearContents
 
    For i = 1 To son
        Cells(i, "A") = CDate(i & "." & ComboBox1.Value)
    Next i
 
End Sub

.