Option Buton kodunda hata

[tamer42]

Merhaba
Sayfa1 de bulunan 2 adet Option Buton için; aşağıdaki kodda Sayfa adını tanımlayarak yapmak istediğim zaman hata alıyorum

yardımcı olur musunuz,

Dim Syf As Worksheet

Set Syf = Sheets("Data")

Sub TestOption()

If Sayfa15.OptionButton1.Value = True Then
   MsgBox 1
   
ElseIf Sayfa15.OptionButton2.Value = True Then

    MsgBox 2

End If

End Sub

Teşekkürler,
iyi pazarlar.

 

[Saban Sertkaya]

Sayfanın sıralaması önemli değil, sayfanın ismi Sayfa15 ise,
If Sheets("Sayfa15").OptionButton1.Value = True Then

veya Sayfa ismi ne olursa olsun, 15. sıradaki sayfada işlem yapmak istiyorum diyorsanız,
If Sheets(15).OptionButton1.Value = True Then

olarak deneyiniz.

 

[tamer42]

Sayfanın sıralaması önemli değil, sayfanın ismi Sayfa15 ise,
If Sheets("Sayfa15").OptionButton1.Value = True Then

veya Sayfa ismi ne olursa olsun, 15. sıradaki sayfada işlem yapmak istiyorum diyorsanız,
If Sheets(15).OptionButton1.Value = True Then

olarak deneyiniz.

Merhaba Hocam

Sayfanın adı , "Data"
Tanımlama yaparak aşağıdaki gibi kullanamaz mıyız? Ben denedim hata veriyor

Set sh12 = Sheets("Data")

If sh12.OptionButton1.Value = True Then

iyi günler.

 

[cicosz]

Merhaba,
Sayfa adı ve Set'li kullanım olarak bir örnek hazırladım. Bahsettiğiniz şey örnekteki gibi bir şey mi?

'sayfa adıyla kullanım
Sub TestOption()
     If Sheets(1).OptionButton1.Value = True Then
         MsgBox "1.Buton Seçili"
     End If
     If Sheets(1).OptionButton2.Value = True Then
         MsgBox "2.Buton Seçili"
     End If
End Sub

'sayfa adı set edilerek kullanım
Sub testoption2()
Dim sh As Worksheet
Set sh = Sheets(1)
Dim OpB1, OpB2 As Variant
Set OpB1 = sh.Shapes("OptionButton1").DrawingObject
Set OpB2 = sh.Shapes("OptionButton2").DrawingObject

If OpB1.Object.Value = True Then
   MsgBox "1.Buton Seçili"
End If
If OpB2.Object.Value = True Then
   MsgBox "2.Buton Seçili"
End If
End Sub