Soru buton adı ile diğer sayfada arama

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Teleffuzum iyi olmayabilir, tam manası ile anlatamaya bilirim şimdiden affınıza sığınıyorum.
Okul sayfamda A2 hücresinde yazan ismi OptionButton1.Caption = Worksheets("Okul").Range("A2") kodu ile butona aldım.

Anasayfa adındaki diğer sayfada B3 sütunundan itibarın okul adları var. 22 tane optionbuttondan herhangi biri seçildiğinde butonda ki ad sütunda bulunan okul adı ile eşleştiği zaman listboxa Anasayfada ki "B", "C", "D" ve "G" sütunlarında ki bilgileri getirmesini istiyorum. Bunun için
Kod:
Private Sub OptionButton1_Click()
Dim sat, s As Long
ListBox1.Clear
    For sat = 1 To Worksheets("Anasayfa").Cells(65536, "b").End(xlUp).Row
        If Worksheets("Anasayfa").Cells(sat, "b") Like OptionButton1.Caption Then
            ListBox1.AddItem
            ListBox1.List(s, 0) = Worksheets("Anasayfa").Cells(sat, "b")
            ListBox1.List(s, 1) = Worksheets("Anasayfa").Cells(sat, "c")
            ListBox1.List(s, 2) = Worksheets("Anasayfa").Cells(sat, "d")
            ListBox1.List(s, 3) = Worksheets("Anasayfa").Cells(sat, "g")
            s = s + 1
        End If
    Next
End Sub
kodunu kullandım tek butonda işe yaradı.Ama tamamı için tek kodu tabi ki yapamadım. Bu yüzden ustalardan yardım isteme zaruriyeti doğdu.
Rica etsem yukarıda anlatmaya çalıştığım konuda bir buton için değil de tamamı için çalışacak kodda yardımcı olabilir misiniz?
Teşekkür eder, saygılarımı sunarım.
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Örnek dosya eklerseniz,daha çabuk ve doğru cevaplar alabilirsiniz.:cool:
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Evren abi aşağıdaki koddan 14 tane yaptım. Şu an çalışıyor. Bu kodu 14 tane değil de 1 kod ile çözebilir miyiz?
Dosya çok karışık abi. Örneği ilk mesajımda yükleyecektim olmadı.

Private Sub OptionButton1_Click()
Dim sat, s As Long
ListBox1.Clear
For sat = 1 To Worksheets("Anasayfa").Cells(65536, "b").End(xlUp).Row
If Worksheets("Anasayfa").Cells(sat, "b") Like OptionButton1.Caption Then
ListBox1.AddItem
ListBox1.List(s, 0) = Worksheets("Anasayfa").Cells(sat, "b")
ListBox1.List(s, 1) = Worksheets("Anasayfa").Cells(sat, "c")
ListBox1.List(s, 2) = Worksheets("Anasayfa").Cells(sat, "d")
ListBox1.List(s, 3) = Worksheets("Anasayfa").Cells(sat, "g")
s = s + 1
End If
Next
End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Bende dosyayı istemedim zaten.
Örnek dosya hazırlayıp yollayın.:cool:
 
Üst