SAYFALAR ARASI VERİ SÜZ

[eseseski]

merhaba
ekli dosyada sayfalardan userforumla comboboxda seçtiğim birimin isimler bazında listesini nasıl çıkarabilirim?
bilgisi olanlar yardım edebilir mi? saygılarımla

 

[YUSUF44]

Userforma bir Listbox ekleyin ve userform kodlarına da aşağıdaki kodları ekleyin:

Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then
    ListBox1.Clear
    ListBox1.ColumnCount = 2
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "sayfa 1" Then
            say = ListBox1.ListCount
            ListBox1.AddItem
            ListBox1.List(say, 0) = Sheets(i).Name
            ListBox1.List(say, 1) = Sheets(i).Cells(3, ComboBox1.ListIndex + 1)
        End If
    Next
End If
End Sub

 

[eseseski]

yusuf44 hocam çok teşekkür ederim. saygılarımla