İki Listbox ile paralel çalışma

[Mustafa Kabdağlı]

Merhabalar,

UserForm üzerinde iki adet Listbox bar, biri Sayfa1 de olan listeyi görüntülüyor
Listbox2 ise Sayfa2 de olan listeyi. Benim yapmak istediğim Listbox1 de ki satırı seçtiğimde Listbox2 de ona tekabul eden sırayı seçmek.
Ve örneğin Sayfa1 de 7 numarayı seçtiğimde Sayfa2 de 7 numaradan olan üç satır birden seçilsin.

Şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba, aşağıdaki kodu deneyiniz...

Private Sub ListBox1_Click()
ListBox2.MultiSelect = fmMultiSelectMulti
For a = LBound(ListBox2.List) To UBound(ListBox2.List)
    If ListBox2.List(a, 0) = ListBox1 Then
        ListBox2.Selected(a) = True
    Else
        ListBox2.Selected(a) = False
    End If
Next
End Sub

 

[Mustafa Kabdağlı]

Eline sağlık mucit77 - süper olmuş...

 

[Mustafa Kabdağlı]

Listbox ile bir sorum daha olacak.
Veri alacağımız sayfa isminde boşluk var ise hata veriyor - ben bunu hep alt çizgi ile çözdüm bugüne kadar.
Fakat öğrenmek istediğim acaba bunu boşluk ile yapma imkanımız var mı?
Örneğin "Birinci sayfa" > "Birinci_sayfa"

Teşekkürler!

 

[ÖmerBey]

Şu şekilde alabilirsiniz...

dz = Sheets("Birinci sayfa").Range("A1:C" & Sheets("Birinci sayfa").Range("A65536").End(xlUp).Row)
ListBox1.List = dz

 

[Mustafa Kabdağlı]

İlginizden dolayı çok teşekkür ederim mucit77.
Fikir olarak güzel fakat olmadı - sanırım sayfa ismini boşluksuz yapmaktan başka çare yok...

 

[ÖmerBey]

Olmadı derken?
Oluşan hata nedir?

 

[Mustafa Kabdağlı]

Oluşan hata:

Runtime error '9':
Subscript out of range

 

[ÖmerBey]

Sayfa ismini yazarken hata yapmış olabilir misiniz acaba?
Ekteki dosyayı inceleyiniz...

 

[Mustafa Kabdağlı]

Merhaba mucit77 - biryerde eksik birşey yazmış olmalıyım, şimdi tekrar yaptığımda çalıştı...
Desteğiniz için çok çok teşşekürler - sayenizde bir teknik daha öğrenmiş olduk...

Bir görsel iyileştirme daha yapmak istiyorum. Malüm bu listeler uzayacak ve satırlar listboxların dışına taşacak, dolaysı ile ListBox1'de seçilen satır
ListBox2'nin görünmez alanında kalacak. ListBox2'de seçilmiş satırı görünen alana taşımamız için nasıl bir yol izleyebiliriz.

 

[ÖmerBey]

Listbox2'de sadece Listbox1 ile alakalı olanları gösterebilirsiniz...

Private Sub ListBox1_Click()
Dim alan As Range
ListBox2.MultiSelect = fmMultiSelectMulti
ListBox2.RowSource = ""
Set s2 = Sheets("Sayfa2")
For a = 1 To s2.Range("A65500").End(3).Row
    If s2.Cells(a, "A") = ListBox1 Then
        If alan Is Nothing Then
            Set alan = s2.Range("A" & a & ":B" & a)
        Else
            Set alan = Union(alan, s2.Range("A" & a & ":B" & a))
        End If
    End If
Next
ListBox2.List = alan.Value
End Sub

 

[Mustafa Kabdağlı]

Merhaba mucit77

bu kod daha anlamlı gibi - çok çok teşşekürler, eline sağlık