Private Sub UserForm_Initialize()
ComboBox1.AddItem "Ocak"
ComboBox1.AddItem "Şubat"
ComboBox1.AddItem "Mart"
ComboBox1.AddItem "Nisan"
ComboBox1.AddItem "Mayıs"
ComboBox1.AddItem "Haziran"
ComboBox1.AddItem "Temmuz"
ComboBox1.AddItem "ağustos"
ComboBox1.AddItem "Eylül"
ComboBox1.AddItem "Ekim"
ComboBox1.AddItem "Kasım"
ComboBox1.AddItem "Aralık"
ListBox1.ColumnCount = 4
'ListBox1.RowSource = "Ocak!a3:c" & Sheets("Ocak").[A500].End(xlUp).Row 'boş hücreleri listeden siler
For i = 2 To 13 'sayfalar arası döngü
For t = 3 To 10 'satırlar arası döngü
With ListBox1
If Sheets(i).Cells(t, 1) <> "" Then
.AddItem
.List(.ListCount - 1, 0) = Sheets(i).Cells(t, 1)
.List(.ListCount - 1, 1) = Sheets(i).Cells(t, 2)
.List(.ListCount - 1, 2) = Sheets(i).Cells(t, 3)
.List(.ListCount - 1, 3) = Sheets(i).Cells(t, 4)
End If
End With
Next
Next
End Sub