Sayfaya Listbox yerleştirme ve doldurma

[ASMET67]

Merhaba.

Excel calışma dosyasının Sayfa1 sayfasına 2 adet listbox yerleştirme istiyorum. Bu listboxlarla aşağıdai işlemleri yapabilirmiyiz.

1- sayfa1 deki listbox1'i dosya açılıren Sayfa2 nin A sutunu ile doldurmak istiyorum.


2. Sayfa1 de dolu olan listbox1 deki listbaox içinden seçtiğim veriye göre Sayfa2 in A sutununda seçilen veriyi bulmak istiyorum.

3- Bulunan verinin sayfa2 nin bulunduğu satır numarasındaki B sutunundan dolu olan son sutundaki veriye kadar listbox2 yi doldurma istiyorum.

Bunları nasıl yapabilirim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kodlar;

ThisWorkbook bölümüne;

Option Explicit
 
Private Sub Workbook_Open()
    Sheets("Sayfa1").ListBox1.ListFillRange = "Sayfa2!A1:A" & Sheets("Sayfa2").Range("A65536").End(3).Row
    Sheets("Sayfa1").ListBox2.Clear
End Sub

Sayfa1 'in kod bölümüne;

Option Explicit
 
Private Sub ListBox1_Click()
    Dim BUL As Range, Sütun As Byte, X As Byte
    
    Set BUL = Sheets("Sayfa2").Range("A:A").Find(ListBox1.Value, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Sütun = Sheets("Sayfa2").Cells(BUL.Row, "IV").End(1).Column - 1
        ListBox2.Clear
        ListBox2.ColumnCount = Sütun
        
        For X = 2 To Sütun + 1
            ListBox2.AddItem
            ListBox2.List(0, X - 2) = Sheets("Sayfa2").Cells(BUL.Row, X)
        Next
    End If
    
    Set BUL = Nothing
End Sub
 
Private Sub Worksheet_Activate()
    Sheets("Sayfa1").ListBox1.ListFillRange = "Sayfa2!A1:A" & Sheets("Sayfa2").Range("A65536").End(3).Row
    Sheets("Sayfa1").ListBox2.Clear
End Sub