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
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
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.
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
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: