Bitişik hücre boş değilse Excel'de satırları nasıl otomatik numaralandırabiliriz?

Excel'de, seriler oluşturmak için dolgu tutamacını kullanarak manuel olarak seri numaraları veya liste dizinleri oluşturma yaygın bir yoldur. Ancak genellikle yalnızca belirli bir bitişik hücrede veri varsa satırları numaralandırmak isteyebileceğiniz durumlar olur. Örneğin, bir listede otomatik olarak satır numaraları oluşturmak isteyebilirsiniz, ancak bitişik veri hücrelerinin boş olduğu yerlerde numaralandırmayı atlamak istersiniz. Daha da önemlisi, bu numaraların veri girildikçe veya çıkarıldıkça anında güncellenmesini bekleyebilirsiniz — herhangi bir manuel müdahale olmadan her zaman güncel bir sıra sağlar.

Formül ile bitişik hücre boş değilse satırları otomatik numaralandırma

VBA kodu ile bitişik hücre boş değilse satırları otomatik numaralandırma

Formül ile bitişik hücre boş değilse satırları otomatik numaralandırma

Bitişik hücre değerlerine dayalı dinamik satır numaralandırmasını gerçekleştirmenin etkili bir yolu Excel formülü kullanmaktır. Bu yaklaşımla, bitişik hücrede bir değer olduğunda satır numaraları görüntülenir. Bu hücrelere veri eklediğinizde veya sildiğinizde, numaralandırma otomatik olarak güncellenir. İşte kullanabileceğiniz pratik bir yöntem:

1. Numaralandırmayı başlatmak istediğiniz hücreyi seçin (örneğin, verileriniz B2'de başlıyorsa A2). Aşağıdaki formülü girin:

=IF(B2<>"",COUNTA($B$2:B2),"")

2. Ardından, formülü diğer satırlara uygulamak için dolgu tutamacını verilerinizle birlikte aşağı sürükleyin. Numaralandırma otomatik olarak ayarlanacak ve yalnızca B sütununda veri bulunan satırlar için numaralar görüntülenecektir.

Eğer numaralar beklendiği gibi güncellenmiyorsa, formülün tüm ilgili satırlara kopyalandığından ve aralığınızı bozan birleştirilmiş hücreler veya veri doğrulamalarının olmadığından emin olun. Formüllerin doğru referanslamaya dayandığını ve çalışma sayfasının yapısındaki değişikliklerden etkilenebileceğini unutmayın.

VBA kodu ile bitişik hücre boş değilse satırları otomatik numaralandırma

Daha gelişmiş kullanıcılar için veya formülleri çalışma sayfanızda kullanmayı tercih etmediğiniz durumlarda — veya veri yapıştırırken, blokları kaldırırken veya sık sık değişiklikler yaparken numaralandırmanın güncellenmesi gerektiğinde — VBA makrosu etkileyici bir alternatif sunar. VBA kullanarak, formüller olmadan bitişik hücre düzenlendiğinde bir sütundaki satır numaralarını otomatik olarak güncelleyebilirsiniz. Bu, veri giriş formları, içe aktarma günlükleri veya sık sık düzen değişiklikleri yapılan görev listeleri için idealdir.

1. Visual Basic for Applications düzenleyici penceresini açmak için Alt + F11 tuşlarına basın. Proje Gezgini'nde çalışma kitabınızı bulun, ardından "Microsoft Excel Objects" altında ilgili çalışma sayfasına (“Sheet1” gibi) çift tıklayın.

2. Görüntülenen kod penceresine aşağıdaki kodu yapıştırın. Bu örnek, B sütununun boş olmadığına göre A sütunundaki satırları numaralandırmak istediğinizi varsayar; gerekirse belirli aralıklar için referansları ayarlayabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim chk As Range
    Set chk = Intersect(Target, Me.Columns("B"))
    If chk Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    Call RenumberNonBlank(Me, "B", "A", 2)
    Application.EnableEvents = True
End Sub
Sub RenumberNonBlank(ws As Worksheet, _
                    keyCol As String, _
                    numCol As String, _
                    firstDataRow As Long)
    Dim lastRow As Long
    Dim r As Long
    Dim seq As Long
    lastRow = ws.Cells(ws.Rows.Count, keyCol).End(xlUp).Row
    seq = 1
    For r = firstDataRow To lastRow
        With ws
            If Trim(.Cells(r, keyCol).Value) <> "" Then
                .Cells(r, numCol).Value = seq
                seq = seq + 1
            Else
                .Cells(r, numCol).ClearContents
            End If
        End With
    Next r
End Sub

3. VBA düzenleyicisini kaydedip kapatın. Artık B sütununa içerik eklediğinizde, düzenlediğinizde veya temizlediğinizde, A sütunu hemen yeniden numaralandırılacak ve verilerin varlığına (veya yokluğuna) göre güncellenecektir. Sıra, B sütununa giriş ekledikçe veya çıkardıkça yukarı veya aşağı kayacaktır.