Sub BuaY()
Sheets("sozbitim").Activate
ListBox3.ColumnCount = 5
ListBox3.ColumnWidths = "80;80;80;40;60"
For i = 2 To Sheets("Sozbitim").Cells(101, "b").End(xlUp).Row
If CDate(Cells(i, "b").Value) > Date And CDate(Cells(i, "B").Value) <= DateSerial(Year(Now), Month(Now) + 1, 30) Then
ListBox3.AddItem
ListBox3.List(s, 0) = Format(Sheets("Sozbitim").Cells(i, "B"), "dd.mm.yyyy")
ListBox3.List(s, 1) = Format(Sheets("Sozbitim").Cells(i, "C"), "#,##0.00")
ListBox3.List(s, 2) = Format(Sheets("Sozbitim").Cells(i, "E"), "###########")
ListBox3.List(s, 3) = Format(Sheets("Sozbitim").Cells(i, "G"), "#######")
ListBox3.List(s, 4) = Format(Sheets("Sozbitim").Cells(i, "H"), "#######")
s = s + 1
End If
Next i
Sheets("Ana ekran").Activate
Application.ScreenUpdating = True
End Sub
Bu kodları yapıştırıp deneyin. Bu arada sozbitim sayfasında tarihin düzgün sıralandığına dikkat edin.Eğer degilse sırala fonksiyonu için bütün veriyi seçin ve baştaki sözleşme bitim tarihine göre sıralatın. Bugünden itibaren 30 günlük dökümü 3cü listeboxta görmeniz gerek.
Bir başka konu, tarihi xx.xx.xxxx formatında yazın ve hatalı xx,xx,xxxx veya xx..xx.xxxx formatta olan varmı gözle kontrol edip düzeltin.Hatalı tarih formatında olanı görmez.
Bu hafta sonu dosyanıza eklemeler yapmayı düşünüyorum, arada kontrol edin lütfen.
Çok teşekkür ederim. düzgün olarak çalıştı. Takibimde yenilikleriniz. Şimdiden teşekkür ederim.
