Listbox'a veri aktarma

[TİKOS]

arkadaşlar,
dosyada açıklama yaptım.
yardım
teşekkürler

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
Dim sh As Worksheet, i As Long, sat As Long
Dim x As Long
ListBox1.Clear
Set sh = Sheets("Veripnl")
sat = sh.Cells(65536, "B").End(xlUp).Row
For i = 3 To sat
    If sh.Cells(i, "B").Value = CDate(txttarih.Text) Then
        If sh.Cells(i, "M").Value > 0 Then
            ListBox1.AddItem
            ListBox1.List(x, 0) = sh.Cells(i, "C").Value
            ListBox1.List(x, 1) = sh.Cells(i, "D").Value
            ListBox1.List(x, 2) = Format(sh.Cells(i, "M").Value, "#,##0")
            x = x + 1
        End If
    End If
Next
End Sub

 

[TİKOS]

evren hocam, teşekkürler
probemlerimin çözümünde çok emeğin geçiyor.
Bir ricam daha var, m sütunudaki m3 başlıklı satırda boş olan veri listboxa gelmesin
bunun için nasıl koda yazarız.
teşekkürler

 

[TİKOS]

hocam ,
bakamadınız herhalde,
m3 satırında hiç bir sayı yoksa proje adı ve bölümünüde getirmesin
listboxa
teşekkürler

 

[Orion1]

hocam ,
bakamadınız herhalde,
m3 satırında hiç bir sayı yoksa proje adı ve bölümünüde getirmesin
listboxa
teşekkürler

Dosyayı güncelledim.
2 numaralı mesajdan indirebilirsiniz.