Koşula göre listbox'a veri alma

[bornovalı1]

Merhabalar;
Sizlerden aldığım yardımlarla ve sitedeki kodlardan faydalanarak onbeş gün kalınca listboxa veriyi alabilen bir kod uyarlamaya çalıştım. Daha önceden yardım
edilerek yaptığım kodu
http://www.excel.web.tr/f50/hatyrlatma-vadeye-5-gun-kalanlary-t95045.html
buradaki şekilde göre uyarlayamaya çalıştım ama işin içinden çıkamadım.
Dosya genel sayfasında açılıyor bilgiler ise araç bilgileri sayfasında ben dosyayı açtığımda userform ekrana çıksın ve detayları orada yazsın istiyorum.
Yardımcı olursanız çok teşekkür ederim.

 

[bornovalı1]

Kodu istediğim satırları tarayacak şekilde uyarlamayı başardım.
Bu seferde farklı bir noktada takıldım.
Bu kod BİLGİLER sayfasında iken manuel olarak çalışıyor. Ama benim istediğim dosya ilk açılışta GENEL sayfasında açılıyor Userform genel sayfasında iken çalışsın ve açılışta otomatik çalışsın yardımcı olursanız sevinirim


Uyarladığım kod bu şekilde ;

Private Sub UserForm_Initialize()

Dim i As Long, Satır As Long
Me.Caption = "HATIRLATMALAR"
ListBox1.ColumnWidths = "70;80"
For i = 3 To 15
If Cells(5, i) <= Date + 15 Then
ListBox1.ColumnCount = 3
With ListBox1
.AddItem
.List(Satır, 0) = Cells(1, i)
.List(Satır, 1) = Format(Cells(5, i), "dd.mm.yyyy")
.List(Satır, 2) = Cells(6, i)
Satır = Satır + 1
End With
End If

If Cells(7, i) <= Date + 15 Then
ListBox1.ColumnCount = 3
With ListBox1
.AddItem
.List(Satır, 0) = Cells(1, i)
.List(Satır, 1) = Format(Cells(7, i), "dd.mm.yyyy")
.List(Satır, 2) = Cells(8, i)
Satır = Satır + 1
End With
End If

If Cells(17, i) <= Date Then
ListBox1.ColumnCount = 3
With ListBox1
.AddItem
.List(Satır, 0) = Cells(1, i)
.List(Satır, 1) = Format(Cells(17, i), "dd.mm.yyyy")
.List(Satır, 2) = "K2 BELGESİ SÜRESİ DOLDU"
Satır = Satır + 1
End With
End If

If Cells(23, i) = "SERVİS KM'Sİ GEÇTİ" Then
ListBox1.ColumnCount = 3
With ListBox1
.AddItem
.List(Satır, 0) = Cells(1, i)
.List(Satır, 1) = Format(Date, "dd.mm.yyyy")
.List(Satır, 2) = Cells(23, i)
Satır = Satır + 1
End With
End If
Next
Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub