açılır kutu ile tarih yazdırma

[brako]

açılır kutudan ay ve yıl seçerek o aya ait tarihleri listeye yazdırabilirmiyim. ekteki dosyanın imza föyü- önyüz sayfası için.

 

[ÖmerBey]

İlgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("H7:I7"), Target) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
aylar = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
tarih = DateSerial(Range("I7"), WorksheetFunction.Match(Range("H7"), aylar, 0), 1)
a = 0
Range("B11:B26,F11:F26").ClearContents
For Each hcr In Range("B11:B26,F11:F26")
    If Month(tarih) = Month(tarih + a) Then
        hcr.Value = tarih + a
        a = a + 1
    End If
Next
End Sub

 

[brako]

..................