cinsiyete göre rakam atsın

[tahsinanarat]

Bütün hücreler için geçerli
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
If Target = "ERKEK" Then Target = 1
If Target = "KIZ" Then Target = 2
End Sub

 

[tahsinanarat]

Saadece 2. sutunda çalışmasını istiyorsanız;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target = "ERKEK" Then Target = 1
If Target = "KIZ" Then Target = 2
End Sub

 

[tahsinanarat]

Büyük küçük harfle girme ihtimaline karşı
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target = "ERKEK" Then Target = 1
If Target = "KIZ" Then Target = 2
If Target = "erkek" Then Target = 1
If Target = "kız" Then Target = 2
If Target = "Erkek" Then Target = 1
If Target = "Kız" Then Target = 2
End Sub

 

[stres]

az önce yaklaşık 10 dk önce girdim siteye eline sağlık tahsin bey emeğine sağlık