Untitled

mail@pastecode.io avatar
unknown
plain_text
a year ago
497 B
2
Indexable
Never
Private Sub OptionButton1_Click()
    ' OptionButton1 (Mesai) seçildiğinde çalışacak kod
    Sheets("Görev Sayfası").Range("A1").Value = "Mesai"
End Sub

Private Sub OptionButton2_Click()
    ' OptionButton2 (Görev) seçildiğinde çalışacak kod
    Sheets("Görev Sayfası").Range("A1").Value = "Görev"
End Sub

Private Sub OptionButton3_Click()
    ' OptionButton3 (Hazır Kıta) seçildiğinde çalışacak kod
    Sheets("Görev Sayfası").Range("A1").Value = "Hazır Kıta"
End Sub