listviewe koşullu veri alma

[orcunerkek54]

iyi akşamlar. amaç iş emri açık alan araçları listviewe listelemek. açılış tarihi olupta kapanış tarihi olmayanları listelemek istiyorum.gerekli açıklamaları ekte yapmaya çalıştım. yardımcı olablirseniz sevinirim.teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub UserForm_Initialize()
Dim i As Long, sat As Long
ListView1.View = lvwReport
With ListView1.ColumnHeaders
    .Add , , Sheets("acik_isemirleri").Range("A1").Value, 70
    .Add , , Sheets("acik_isemirleri").Range("C1").Value, 70
    .Add , , Sheets("acik_isemirleri").Range("D1").Value, 70
    .Add , , Sheets("acik_isemirleri").Range("F1").Value, 30
End With
With ListView1
For i = 2 To Sheets("acik_isemirleri").Cells(65536, "C").End(xlUp).Row
    If Sheets("acik_isemirleri").Cells(i, "E").Value = "" Then
        sat = sat + 1
        .ListItems.Add , , Sheets("acik_isemirleri").Cells(i, 1)
        .ListItems(sat).SubItems(1) = Sheets("acik_isemirleri").Cells(i, 3)
        .ListItems(sat).SubItems(2) = Sheets("acik_isemirleri").Cells(i, 4)
        .ListItems(sat).SubItems(3) = Sheets("acik_isemirleri").Cells(i, 6)
    End If
Next
End With
End Sub

 

[orcunerkek54]

syn Evren Gizlen bey yardımınız için teşekkürler. istediğim gibi çalışıyor. ancak başka sayfa açıkken veriler gelmiyor.mümkünse başka sayfa açıkken verilerin alınmasını sağlamamız mümkünmü. teşekkürler.

 

[Orion1]

syn Evren Gizlen bey yardımınız için teşekkürler. istediğim gibi çalışıyor. ancak başka sayfa açıkken veriler gelmiyor.mümkünse başka sayfa açıkken verilerin alınmasını sağlamamız mümkünmü. teşekkürler.

Dosyayı düzenledim.
2 numaralı mesajdan indirebilirsiniz.

 

[orcunerkek54]

çok teşekkürler. herzamanki gibi harikasınız. iyi akşamlar

 

[Orion1]

çok teşekkürler. herzamanki gibi harikasınız. iyi akşamlar

Rica ederim.
O sizin harikalığınız.
İyi çalışmalar.