Hücredeki değere göre satır silinsin.

[simetri.]

Hücredeki değere göre satırın bir kısmı silinsin.

Merhabalar, bu konu ile ilgili çok kod buldum lakin ben

biraz daha detay istiyorum. Şöyle ki;

Eğer E sütununda " X " değeri olan bir hücre varsa

ilgili satırın C, D, E, F, G ve H hücreleri silinsin.

Eğer ki ilgili hücrelerin sadece verileri silinir alttakiler yukarı

getirilirse daha güzel olabilir.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub KOSULA_GORE_SATIR_SIL()
    Dim Son As Long, X As Long
    
    Application.ScreenUpdating = False
    
    On Error Resume Next
    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    On Error GoTo 0
    
    For X = Son To 1 Step -1
        If Cells(X, "E") = "X" Then
            Range("C" & X & ":H" & X).Delete Shift:=xlUp
        End If
    Next

    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[simetri.]

Çok teşekkür ederim.

Sayın Korhan AYHAN hocam.

Ellerinize sağlık.