SAYFALAR ARASI VERİ SÜZ

Katılım
20 Şubat 2012
Mesajlar
150
Excel Vers. ve Dili
2007 türkçe
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
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Userforma bir Listbox ekleyin ve userform kodlarına da aşağıdaki kodları ekleyin:

PHP:
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
 
Katılım
20 Şubat 2012
Mesajlar
150
Excel Vers. ve Dili
2007 türkçe
yusuf44 hocam çok teşekkür ederim. saygılarımla
 
Üst