Hücre dolu ise Listbox listesine alma

[sirkülasyon]

Ustam
Personel sayfasındaki K2:K sütununda tarihler yazılı. Yine Personel Sayfasının B2B sütununda da isimler yazılı
Userform Listbox1' e K2:K sütununda Tarih yazılı değilse (Boş ise) B2:B sütununda ki ismi listboxta görünsün.
Userform Listbox1' e K2:K sütununda Tarih yazılı ise (Boş değil ise) B2:B sütununda ki ismi listboxta görünmesin.

Yalnız Userform Başka bir sayfada açılıyor.
Rica etsem

 

[kemal turan]

Merhaba,
Ustalık durumu bir kenarda dursun.
Ustalarımızdan öğrendiklerimizle yaptığım çalışmayı denermisiniz

 

[kemal turan]

Ek dosyada "K" sutununda tarih boş olan "b" sutunundaki isimleri getiriyor.
K sutununda tarih bilgisi boş olan "B" sutunundak

Private Sub TextBox1_Change()
Set s1 = Sheets("PERSONEL")
Dim a As Long, i As Long
    ReDim dizial(1 To 2, 1 To 1)
    If TextBox1.Text = "" Then Exit Sub
    ListBox1.Clear
    For i = 2 To s1.Cells(Rows.Count, 2).End(3).Row
        If UCase(Replace(Replace(s1.Cells(i, "B"), "ı", "I"), "i", "İ")) Like _
        "*" & UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) & "*" And _
        UCase(s1.Cells(i, "K")) <> "" Then
        
            a = a + 1
            ReDim Preserve dizial(1 To 2, 1 To a)
            
            dizial(1, a) = s1.Cells(i, "B")
            dizial(2, a) = Format(s1.Cells(i, "k"), "DD,MM,YYYY")
            
            
        End If
    Next i
        ListBox1.Column = dizial
    Erase dizial
    a = Empty
    i = Empty
End Sub

i isimleri getirmesi için UCase(s1.Cells(i, "K")) <> "" Then satırı aşağıdaki ile değiştirin.

 UCase(s1.Cells(i, "K")) = "" Then

 

[sirkülasyon]

Kemal Abi Teşekkür ederim