C2 hücresi seçili iken ve boş iken enter yapınca A2 yi seçsin

[kelkitli]

Değerli Dostlar Selamlar,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2,B2,C2]) Is Nothing Then Exit Sub
Select Case Target.Address
Case Is = "$A$2"
DEG = UCase(Replace(Replace(Sayfa1.Range("A2"), "ı", "I"), "i", "İ"))
Sayfa1.Range("A2") = DEG
Sayfa1.Range("E4") = Application.WorksheetFunction.VLookup((Sayfa1.[a2]), (Sayfa4.[b2:c1000]), 2, 0)
Sayfa1.Range("B2:C2").ClearContents
Sayfa1.Range("B2").Select
Case Is = "$B$2"
Sayfa1.Range("C2").Select
Case Is = "$C$2"
Sayfa1.Range("A2").Select
End Select
End Sub

Hücrelerde değişiklik yapınca sorun yok. İstiyorum ki C2 hücresi seçili iken ve boş iken "ENTER" yapınca A2 seçilsin.

 

[Sa.NaL]

If Sayfa1.Range("c2").Value = "" And Sayfa1.Range("c2").Select Then
Sayfa1.Range("a2").Select
End If

 

[kelkitli]

Sayın Sa.NaL, cevabınız için teşekkür ederim. Bu kodu Enter tuşuyla nasıl çalıştıracağız.

 

[Sa.NaL]

onu bilmiyorum işde bende acemiyim