onay kutusu hakkında

[göçeri1]

ekde gönderdiğim dosyayı incelerseniz sevinirim ilğinize teşekkürler

 

[ersoyalan]

Merhaba,

Bu şekilde istermisiniz.


E.ALAN

 

[hamitcan]

Sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$2" Then Exit Sub
For i = 1 To 3
    ActiveSheet.Shapes("Onay Kutusu " & i).Select
        If Selection.Caption = Target.Text Then
           Selection.Value = 1
        Else
           Selection.Value = 0
    End If
Next
[a1].Select
End Sub

 

[göçeri1]

Sayın Ersoyalan ve hamitcan ilğinize teşekkür ederim istediğim gibi