GRUPLAMA yapmak

[osmanfenerli1907]

Selamlar
Sorum ekte.İncelerseniz memnun olurum.

 

[Levent Menteşoğlu]

Listbox1'e C sütunundaki verileri tekrarsız yüklemek için aşağıdaki kodu userforma kopyalayın.
[vb:1:1cfb918361]Private Sub UserForm_Initialize()
For a = 1 To [c65536].End(3).Row
If WorksheetFunction.CountIf(Range("c1:c" & a), Cells(a, "c")) = 1 Then ListBox1.AddItem Cells(a, "c")
Next
End Sub
[/vb:1:1cfb918361]
Listbox1'den seçilen veriye ait isimlerin Listbox2'ye yüklenmesi içinde aşağıdaki kodu listbox1'e kopyalayın.
[vb:1:1cfb918361]Private Sub ListBox1_Click()
ListBox2.Clear
For a = 1 To [c65536].End(3).Row
If Cells(a, "c") = ListBox1 Then ListBox2.AddItem Cells(a, "a")
Next
End Sub[/vb:1:1cfb918361]

 

[osmanfenerli1907]

ÇOK teşekkür ederim sayın hocam.

 

[osmanfenerli1907]

Listbox1 e tıklayınca listbox2 ye a ve b sütununu göstermesi için ne yapmalıyım

 

[osmanfenerli1907]

İYİ GÜNLER
sayın Hocalarım ben bu gruplama işini yaptım.Güzel çalışıyordu.Birde hepsini göster butonu yaptım.Hepsini göstere tıklayınca bütün kayıtları listbox2 de gösteriyor ancak sonra bir grup adına tıklayınca hata veriyor.Bu neyden olabilir?
Birde grup adına tıklayınca o gruba ait isimleri yani a sütündakileri listbox2 ye yazıyor.Bir listbox2 ye b sütundakileride yazsa olmazmı?
Saygılarımla
İYİ GÜNLER

 

[osmanfenerli1907]

SAyın hocalarım yardımcı olabilecek misiniz?

 

[Tarkan VURAL]

Dosya ekinizi görseydim yardımcı olmaya çalışırdım.

 

[osmanfenerli1907]

Dosyamı ekliyorum...

 

[osmanfenerli1907]

dosyam::::::

 

[Korhan Ayhan]

Selamlar,

HEPSİNİ GÖSTER butonuna aşağıdaki kodu uygulayıp denermisiniz.

Private Sub CommandButton5_Click()
    ListBox2.Clear
    For X = 1 To [A65536].End(3).Row
    ListBox2.AddItem Cells(X, "A")
    Next
End Sub

 

[osmanfenerli1907]

MÜKEMMEL... hocam oldu.Bir de şu a VE b sutunu gösterse listbox2 bunu nasıl yaparız?

 

[osmanfenerli1907]

Sy hocam şu çalışmama bir daha baksanız.Birşey daha ekledim ama yapamadım.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda gerekli düzeltmeleri yaptım incelermisiniz.