Listbox'tan Başka Bir Listbox'a Veri Aldırma

[ahmed_ummu]

Merhaba arkadaşlar.

Userform üzerinde 2 adet Listbox var. Listbox6'ya resim görüntüsünü eklediğim tablodan isimleri alıyor. Listbox6'da hangi ismi seçersem, seçilen ismin hemen bir sağındaki veriyi Listbox7'ye listeleyecek. Aağıdaki kod ile hata veriyor. Yardımcı olursanız sevinirim.

Private Sub ListBox6_Click()
Sheets("tablo").Select
For Sut = 7 To [b65000].End(xlUp).Row
If Range("b" & Sut) Like ListBox6.Value Then
ListBox7.AddItem = ActiveCell.Offset("b", 1).Value
End If
Next
End Sub

 

[ÖmerFaruk]

Eşittir koymayın
Active Cell ve Offset kullanımları da hatalı sanırım
ListBox7.AddItem Range("b" & Sut) .Offset(0, 1).Value

Private Sub ListBox6_Click()
    'Sheets("tablo").Select Bu satıra gerek yok
    For Sut = 7 To Sheets("tablo").[b65000].End(xlUp).Row
    If  Sheets("tablo").Range("b" & Sut) Like ListBox6.Value Then
    ListBox7.AddItem  Sheets("tablo").Range("C" & Sut).Value
    'Ya da
    'ListBox7.AddItem   Sheets("tablo").Range("b" & Sut).Offset(0,1)
    End If
    Next
End Sub

 

[ahmed_ummu]

Eşittir koymayın
Active Cell ve Offset kullanımları da hatalı sanırım
ListBox7.AddItem Range("b" & Sut) .Offset(0, 1).Value

Private Sub ListBox6_Click()
    'Sheets("tablo").Select Bu satıra gerek yok
    For Sut = 7 To Sheets("tablo").[b65000].End(xlUp).Row
    If  Sheets("tablo").Range("b" & Sut) Like ListBox6.Value Then
    ListBox7.AddItem  Sheets("tablo").Range("C" & Sut).Value
    'Ya da
    'ListBox7.AddItem   Sheets("tablo").Range("b" & Sut).Offset(0,1)
    End If
    Next
End Sub

Teşekkürler Ömer Faruk bey.

 

[ahmed_ummu]

Listebax7 ye aldırdığım verileri label351-label357 ye de aldırmak istiyorum. Aşağıdaki kırmızı renkli olan kodu yazdım ama hepsine kişiye ait en sondaki veriyi yazıyo tüm labellere.

ListBox7.Clear
'Sheets("tablo").Select 'Bu satıra gerek yok
For Sut = 7 To Sheets("tablo").[b65000].End(xlUp).Row
If Sheets("tablo").Range("b" & Sut) Like ListBox6.Value Then
ListBox7.AddItem Sheets("tablo").Range("C" & Sut).Value
For l = 351 To 357
Controls("label" & l).Caption = Sheets("tablo").Range("c" & Sut).Value & ":"
Next l
'Ya da
'ListBox7.AddItem Sheets("tablo").Range("b" & Sut).Offset(0,1)
End If
Next

 

[ÖmerFaruk]

Yazdığınız kod doğru çalışıyor. Ama siz bunu istemiyorsunuz.
Anladığım kadarıyla yapmaya çalıştığınız eğer listboxa en fazla 7 veri alacaksınız ve aldığınız her veriyi labellara da işleyeceksiniz

Kodlarınızda kırmızı belirtitğiniz satırları silin aşağıdakini kullanın

If Listbox7.ListCount <= 7 Then Controls("label" & 350 + Listbox7.ListCount).Caption = Sheets("tablo").Range("c" & Sut).Value & ":"

 

[ahmed_ummu]

Teşekkürler Ömer Faruk bey çalıştı ama destek odası ismini ilk dört kişi hariç hepsine yazıyor. Yani destek eğitimi yapmayanlara da yazıyor.
Daha doğrusu ilk destek odası yazdıktan sonra ondan sonrakiler de yazıyor.

 

[ahmed_ummu]

Düzeldi.