Excel'de hücrelerde boş veya eksik girişleri nasıl önlersiniz?

Bir çalışma sayfasının A1:B10 aralığında bir tablo oluşturuyorsanız ve bu aralıkta hiçbir boş hücre bırakılmamasını sağlamak istiyorsanız, düzenleme sırasında boş bir giriş tespit edildiğinde otomatik olarak bir uyarı görüntüleyen bir çözüm uygulayabilirsiniz. Belirtilen tablo aralığında boş veya eksik girişleri önlemek için bu adım adım kılavuzu izleyin.

VBA kodu kullanarak hücrelerde boş veya eksik girişleri önleme

VBA kodu kullanarak hücrelerde boş veya eksik girişleri önleme

A1:B10 aralığı tablonuz için belirlenmiştir; A1 ve B1, aşağıdaki ekran görüntüsünde gösterildiği gibi tablo başlıkları olarak hizmet vermektedir. Tabloyu doldururken A2:B10 aralığındaki boş veya eksik girişleri önlemek için açıklanan adımları izleyin.

1. Belirli bir aralıkta boş girişleri önlemek istediğiniz çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle'yi seçin.

2. Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakınız:

VBA kodu: Bir hücre aralığındaki boş veya eksik girişleri önleme

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    Dim isect As Range
    On Error Resume Next
    Set isect = Application.Intersect(Target, Range("A2:B10"))
    
    If Not (isect Is Nothing) Then
        If Target.Column = 1 Then
            If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        Else
            If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
                MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
                Target.ClearContents
            End If
        
        End If
    End If
End Sub

Not: VBA kodunda, A2:B10, içinde hiçbir boş hücre bırakmak istemediğiniz hücre aralığıdır. Gerektiğinde aralığı değiştirin.

Şimdi itibaren, belirtilen aralıktaki bir sonraki hücreyi doldurmak için boş bir hücre atladığınızda aşağıdaki şekilde gösterildiği gibi bir Kutools for Excel iletişim kutusu belirecektir.

İlgili makaleler:

• Excel'de bir çalışma sayfasının belirli hücrelerine veri girişini nasıl engellersiniz?
• Excel'de birden fazla çalışma sayfasının seçilmesini nasıl engellersiniz?
• Excel'de belirli bir çalışma sayfasının silinmesini nasıl engellersiniz?
• Excel'de belirli hücre içeriklerinin silinmesini nasıl engellersiniz?