Tarih Farkı ListBoxta

[teksen]

Arkadaşlar merhaba,

Ekteki Dosyamda UserForm üzerinde iki adet ListBox var.ListBox bir Listenin Tamamını gösteriyor.ListBox2 de ise Ödeme Tarihi gelenler için bugünün tarihini bir hücreye ekleyip koşullu biçimlendirme ile 1 ve 7 gün arasını işaretledim sayfa içinde bunu gösterebiliyorum fakat UserForm da ListBox2 içinde gösteremedim.Bunun için ne yapabiliriz acaba?

Şimdiden teşekkür ederim.

 

[Mahmut Kök]

Arkadaşlar merhaba,

Ekteki Dosyamda UserForm üzerinde iki adet ListBox var.ListBox bir Listenin Tamamını gösteriyor.ListBox2 de ise Ödeme Tarihi gelenler için bugünün tarihini bir hücreye ekleyip koşullu biçimlendirme ile 1 ve 7 gün arasını işaretledim sayfa içinde bunu gösterebiliyorum fakat UserForm da ListBox2 içinde gösteremedim.Bunun için ne yapabiliriz acaba?

Şimdiden teşekkür ederim.

Aşağıdaki kodları, formunuzun kod bölümüne yazıp deneyiniz.

Private Sub UserForm_Initialize()
For a = 1 To [a65536].End(3).Row
If Cells(a, "d") >= 1 And Cells(a, "d") <= 7 Then
x = x + 1
ListBox2.AddItem Cells(a, "a")
ListBox2.List(x - 1, 1) = Cells(a, "b")
ListBox2.List(x - 1, 2) = Format(Cells(a, "e"), "dd.mm.yyyy")
End If
Next
End Sub

 

[teksen]

Teşekkür ederim Sn.Mesleki

Elinize sağlık.