Bu makrodaki hata nerde

[stres]

Aşağıdaki makroda bir hata var ve ben bulamadım yardımlarınızı bekliyorum


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 7 Then Exit Sub
If Target = 1 Then Target = "ERKEK"
If Target = 2 Then Target = "KIZ"
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then Target = "KİMLİK NUMARASI MEVCUT"
If Target = 2 Then Target = "BEBEK"
If Target = 2 Then Target = "YABANCI UYRUKLU"
End Sub

 

[hamitcan]

İki kodu birleştirin.

 

[stres]

bu şekilde

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 7 Then Exit Sub
If Target = 1 Then Target = "ERKEK"
If Target = 2 Then Target = "KIZ"
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then Target = "KİMLİK NUMARASI MEVCUT"
If Target = 2 Then Target = "BEBEK"
If Target = 2 Then Target = "YABANCI UYRUKLU"
End Sub

ve bu şekilde birleştirdim

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 7 Then Exit Sub
If Target = 1 Then Target = "ERKEK"
If Target = 2 Then Target = "KIZ"
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then Target = "KİMLİK NUMARASI MEVCUT"
If Target = 2 Then Target = "BEBEK"
If Target = 2 Then Target = "YABANCI UYRUKLU"
End Sub

ama bu bölümde istediğim değişikliği yapmıyor

If Target.Column <> 2 Then Exit Sub
If Target = 1 Then Target = "KİMLİK NUMARASI MEVCUT"
If Target = 2 Then Target = "BEBEK"
If Target = 2 Then Target = "YABANCI UYRUKLU"

 

[leumruk]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 7 Then
If Target = 1 Then Target = "ERKEK"
If Target = 2 Then Target = "KIZ"
Exit Sub
End If
If Target.Column = 2 Then
If Target = 1 Then Target = "KİMLİK NUMARASI MEVCUT"
If Target = 2 Then Target = "BEBEK"
If Target = 2 Then Target = "YABANCI UYRUKLU"
Exit Sub
End If
End Sub

Kodu bu şekilde dener misiniz?

 

[stres]

eline ve emeğine sağlık leumruk teşekkürler

 

[leumruk]

Rica ederim.