Untitled

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