AYLIK RAPOR

[alpay1]

Sayın leventm beyin bir çalışmasında aşağıdaki şekilde aylara göre listeleme yapılıyor.

Public arananay
Private Sub ComboBox1_Change()
arananay = ComboBox1.Value
End Sub

Private Sub CommandButton2_Click()
Range("b6:p100").ClearContents
For A = 6 To Cells(65536, 19).End(xlUp).Row
If Month(Cells(A, 20).Value) = Month(1 & "." & ComboBox1.Value) Then
c = c + 1
For b = 20 To 31
Cells(c + 5, 2) = c
Cells(c + 5, b - 17) = Cells(A, b).Value
Next
End If
Next
UserForm1.Hide
End Sub

Acaba bu listelemeyi benim dosyama uyarlayabilirmiyiz?
Listelemeyi "rapor" sayfasına yapacağız.
Teşekkürler.