UserForma veri alma

[ms_6647]

Merhabalar,

Ekli dosyadaki UserFormda 3 Sheet için 3 adet OptionButton bulunmakta örneğin Sayfa1 butonunu seçtiğimde Sayfa1 deki verileri Texboxlara nasıl getirebiliriz.

 

[fedeal]

Ekte dosya göremedim ama kodları uyarlayın.iyi çalışmalar.

Private Sub OptionButton1_Change()
If OptionButton1 = True Then
TextBox1.Text = Sheets("Sayfa1").Range("a1").Value
Else
TextBox1.Text = ""
End If
End Sub

Private Sub OptionButton2_Change()
If OptionButton2 = True Then
TextBox1.Text = Sheets("Sayfa2").Range("a1").Value
Else
TextBox1.Text = ""
End If
End Sub