Hücreler boş geçilemesin

[abcdeffdfdffdfdgffdg]

İyi günler benim bir excel dosyam var bu dosyada bir sütundaki eğer boş bir hücre varsa bir sonraki satıra geçmeyip nasıl uyarı verdirebiliriz aşağıda boş hücreye tıkladığımızda uyarı veren makro var ancak bunu nasıl yapacağımı bilemedim yardımcı olursanız sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Range("H1:H15000"), Target) Is Nothing Then Exit Sub

r = Target.Row
c = Target.Column
If WorksheetFunction.CountBlank(Range(Cells(r, 2), Cells(r, c))) > 1 Then

MsgBox "Bu hücre boş geçilemez."

End If
End Sub

 

[EmrExcel16]

Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("H1:H15000"), Target) Is Nothing Then Exit Sub
    On Error Resume Next
    r = Target.Row
    c = Target.Column
    If Cells(r - 1, c) = "" And Cells(r, c) = "" Then
        MsgBox "Bu hücre boş geçilemez."
        Cells(r - 1, c).Select
    End If
End Sub

 

[abcdeffdfdffdfdgffdg]

sanırım anlatamadım kusura bakmayın eğer üstteki satır boşsa bir alttaki satıra geçmemize izin vermemesi mümkün olur mu acaba