OptionButton a Göre KAYIT Sorunu!!!

[ocamsul]

Arkadaşlar Merhabalar. Aşağıdaki KAYIT makrosu OptionButton seçimine göre sayfalara kayıt yapıyor. Ancak Makro ""If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then""
satırında hata veriyor. Yanlış Olan Nedir?

Sub KAYIT()
If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox "Kayıt işlemi için sayfa seçimi yapmalısınız.", vbExclamation, "DİKKAT !"
Exit Sub
End If
If OptionButton1.Value = True Then Sheets("Sheet2").Select
If OptionButton2.Value = True Then Sheets("Sheet3").Select
If OptionButton3.Value = True Then Sheets("Sheet4").Select

Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 1).Value = TextBox8.Value
ActiveCell.Offset(0, 2).Value = TextBox9.Value
End Sub

 

[zafer]

Merhaba

Başlarına Sheets("sayfa1") ekleyin

Sheets("sayfa1").optionbutton1 gibi

 

[korkut31]

buyrun

ya bu kodları userformun içindeki bir command butona yazın yada modüle yazmaya dewam edip optionbuttonların başına userform1 yazın hepsi için ..

if userform1.optionbutton1 = false ............ gibi.
çünki modülün içinde option button tanımlıdeyil..
sorununuz çözülecektir böylecw.

 

[zafer]

Merhaba

Sayın Korku31 beyin dediği gibi userformdaysa başına userform1....
yazın

Sayfadaysa benim kodlarım gibi yazın.

 

[ocamsul]

Merhaba

Sayın Korku31 beyin dediği gibi userformdaysa başına userform1....
yazın

Sayfadaysa benim kodlarım gibi yazın.

SN: Zafer ve Korkut31 yardımlarınız için çok teşekkür ederim. sorunum çözüldü.