Optionbutton ile seçilen sheets'i ListBox'da süzme

[YAKAKENTİM]

Arkadaşlar Herkese Günaydın Hayırlı hafta sonları.. :hey:

UserForm'da

1 Adet LisBox
1 Adet Combobox
3 Adet OptionButton var (TextBox'ları saymıyorum çünkü konuyla bir ilgisi yok)

ComboBox'ile sheets'i seçiyor ve ListBox'a okutuyoruz.Bu işlemi ComboBox ile Değilde eklediğim OptionButton ile yapabilmemiz mümkünmü.Yani OptionButton ile Sheets seçilecek ve seçilen Sheets'i ListBox okuyacak.

Herkese saygı ve sevgilerimle.... :hey:

 

[Levent Menteşoğlu]

optionbuttonlara aşağıdaki kodları kopyalayın. Eğer sayfa sayınız çok fazla ise class module kullanmak kodları çok kısaltacaktır.

[vb:1:e0b2011536]Private Sub OptionButton1_Click()
Sheets(1).Select
ListBox1.RowSource = "b2:g" & [g65536].End(3).Row
End Sub

Private Sub OptionButton2_Click()
Sheets(2).Select
ListBox1.RowSource = "b2:g" & [g65536].End(3).Row
End Sub

Private Sub OptionButton3_Click()
Sheets(3).Select
ListBox1.RowSource = "b2:g" & [g65536].End(3).Row
End Sub[/vb:1:e0b2011536]

 

[YAKAKENTİM]

:mutlu: Teşekkürler Levent Bey Çok sağolun