Bir hücreyi doldurmadan diğerini dolduramasın

[hmurat]

Merhaba,

Aşağıda buluna başlıkların altına gelen hücrelere formatlanan değerler girilmeden (1 yazılmadan 2 yi, 2 yazılmadan 3 ü, 3 yazılmadan 4 ü yazamasın) diğer hücrelere değer girilemesin nasıl yapabilirim. Yardımlarınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target.Column > 1 Then
    If Target.Offset(0, -1).Value = "" Then Target.Offset(0, -1).Select
End If
If Target.Column = 1 And Target.Row > 3 Then
    If Target.Offset(-1, 3).Value = "" Then Target.Offset(-1, 3).Select
End If
Son:
End Sub