Listboxa Koşullu Benzersiz Veri Alma

[Hantor]

İyi Günler,

Ek' te tarafınıza göndermiş olduğum dosyada Forma başılınca açılan user forma T sütünundaki yazıların gelmesini fakat çift giriş var ise tek olarak gelmesini istemekteyim. Mmkün müdür?

Kolay gelsin,

 

[Necdet]

Merhaba,

Formda kullandığınız Listbox3 fakat kodlarda kullandığınız Listbox1.
Dikkat etmek gerek.

Kodu UserForm un Initalize bölümünde olmalı.

Aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()

    On Error Resume Next
    
    ListBox1.Clear
    
    Set s = Sheets("ANA LISTE")
    For i = 2 To s.Cells(Rows.Count, "A").End(3).Row
        If WorksheetFunction.CountIf(s.Range("T2:T" & i), s.Cells(i, "T")) = 1 Then
            ListBox1.AddItem s.Cells(i, "T").Value
        End If
    
    Next i

End Sub

 

[Hantor]

Merhaba,

Formda kullandığınız Listbox3 fakat kodlarda kullandığınız Listbox1.
Dikkat etmek gerek.

Kodu UserForm un Initalize bölümünde olmalı.

Aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()

    On Error Resume Next
   
    ListBox1.Clear
   
    Set s = Sheets("ANA LISTE")
    For i = 2 To s.Cells(Rows.Count, "A").End(3).Row
        If WorksheetFunction.CountIf(s.Range("T2:T" & i), s.Cells(i, "T")) = 1 Then
            ListBox1.AddItem s.Cells(i, "T").Value
        End If
   
    Next i

End Sub

Malsef Çalışmadı Hocam

 

[YUSUF44]

Sayın Necdet Bey'in verdiği kodları userformunuza eklediğimde düzgün bi şekilde çalıştığını gördüm. Sizde çalışmayan nedir? Ne yaptınız da olmadı?

 

[Hantor]

Sayın Necdet Bey'in verdiği kodları userformunuza eklediğimde düzgün bi şekilde çalıştığını gördüm. Sizde çalışmayan nedir? Ne yaptınız da olmadı?

Çift Kayıtları silmediğini gördüm Örek dosyayı tekrar gönderiyorum yardımcı olursanız sevinirim.

 

[Necdet]

Kodları yanlış yere koymuşsunuz
oysa açıklamıştım

UserForm_Initialize()

 

[Hantor]

Kodları yanlış yere koymuşsunuz
oysa açıklamıştım

UserForm_Initialize()

Hocam Valla Süpersiniz ama çalışıramadım zahmet olmaz ise Ek' te gönderdiğim dosyaya işlemeniz mümkün müdür?

 

[YUSUF44]

Kodları kopyalayın
Dosyanızda VBA bölümüne geçin ve userformu açın
Userformun boş bir yerine çift tıklayıp kod sayfasını açın
En alta yapıştırın
Dosyanıza geçip formu çalıştırın