- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
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
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