Raporlama

[buseen]

Selam userform1 de raporlama alırken 12 ay ismine göre rapor nasıl alabilirim.

 

[buseen]

Değerli Üstadlar bir bakabilirmiyiz ?

 

[buseen]

Değerli Üstadlar bir bakabilirmiyiz ?
__________________
Sadece Ay ismi olacak.Ocak.Şubat.Mart .... diye

 

[janveljan]

Selam userform1 de raporlama alırken 12 ay ismine göre rapor nasıl alabilirim.

Formun kodlarını aşağıdaki gibi düzenledim.

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > ComboBox2.ListIndex Then
MsgBox "İlk ay, ikinci aydan büyük olamaz"
Exit Sub
End If

sayac = 0
For i = 2 To [A65536].End(xlUp).Row
    ay = -1
    For j = 0 To 11
        If Cells(i, "A") = MonthName(j + 1) Then ay = j
    Next
    
    If ay >= ComboBox1.ListIndex And ay <= ComboBox2.ListIndex Then
        ListBox1.AddItem Cells(i, "A")
        ListBox1.List(sayac, 1) = Cells(i, "B")
        ListBox1.List(sayac, 2) = Cells(i, "C")
        ListBox1.List(sayac, 3) = Cells(i, "D")
        ListBox1.List(sayac, 4) = Cells(i, "E")
        sayac = sayac + 1
    End If
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnWidths = "70;90;100;45;80"
ListBox1.ColumnCount = 8
For i = 1 To 12
ComboBox1.AddItem MonthName(i)
ComboBox2.AddItem MonthName(i)
Next
End Sub