option button ilgili bir soru

[kenangulal]

merhaba arkadaşlar,aşağıdaki kodda option buttonların hangisi aktifse altındaki kodu çalıştırsın istedim "a1"=1 ise çalışsın dersem oluyor ama ben option buttonla yapmak ıstiyorum yardımcı olabilirmisiniz.teşekkürler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If optionbutton43 = True Then

ActiveCell.Interior.ColorIndex = 3
ActiveCell = "DS"

If optionbutton44 = False Then
ActiveCell.Interior.ColorIndex = 5
ActiveCell = "DA"

End If
End If
End Sub

 

[kenangulal]

arkadaşlar a1 hücresine bağladığım checkbox la işimi gördüm herkese teşekkür.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("a1") = True Then

ActiveCell.Interior.ColorIndex = 3
ActiveCell = "DS"

Else
ActiveCell.Interior.ColorIndex = 5
ActiveCell = "DA"


End If
End Sub

 

[Levent Menteşoğlu]

If optionbutton43 = True Then

Yukarıdaki yazım yerine aşağıdaki gibi deneyin.

If sheets("sayfa1).optionbutton43 = True Then

 

[kenangulal]

teşekkürler sayın leventm
artık her iki haldede kullanabilirim.
syg.