Sağındaki hücrede veri olmayan satırı silme

[gelibolu]

Bir hücre Sağındaki hücrede veri olmayan (devamında olabilir)

​

satırı silmek için gereken kodu gönderebilir misiniz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Kod "A" sütunundaki dolu satırlara göre "B" sütunundaki hücrelere bakar boşsa ilgili satırı siler.

Option Explicit
 
Sub SAĞDAKİ_HÜCREYE_BAK_BOŞSA_SATIRI_SİL()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    For X = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
        If Cells(X, "B") = "" Then
            Rows(X).Delete
        End If
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gelibolu]

Teşekkür ederim elinize emeğinize sağlık istediğim buydu.