A satırı boş b,c,d,e satırları ve boş satırlrı silme

[sevensuleyman]

merhaba;
daha önce bir arkadaşım saolsun boş satırları silmesi için bu kodu vermişti. yalnız veriler resimdeki gibi geliyor. a satırı boş ise diğer hücreleri ve boş satırları silmesi çin kodu nasıl düzenlemem gerekir. şimdiden teşekkürler


Son = s2.Cells(s2.Rows.Count, 2).End(3).Row + 1
s2.Range("A" & Son & ":A" & Rows.Count).EntireRow.Delete xlUp
s2.Range("A1").Select[/CODE]

 

[Necdet]

Merhaba,

Satırda A-B ve C sütunlarının boş olması durumunda mı satırı silmek istiyorsunuz?
Açıklamanızdan bir çok şey anlamak olası.
Netleştirmek gerek.

Eğer açıkladığım gibiyse aşağıdaki kodları deneyiniz. 1. satırın başlık olduğu ve verinin ikinci satırdan başladığı varsayılmıştır.

Sub BosSatSil()

    Dim Son As Long, _
        i   As Long
    
    Application.ScreenUpdating = False
    
    Son = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    For i = Son To 2 Step -1
        If Application.WorksheetFunction.CountBlank(Range("A" & i & ":C" & i)) = 3 Then Rows(i).Delete
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[sevensuleyman]

Merhaba,

Satırda A-B ve C sütunlarının boş olması durumunda mı satırı silmek istiyorsunuz?
Açıklamanızdan bir çok şey anlamak olası.
Netleştirmek gerek.

Eğer açıkladığım gibiyse aşağıdaki kodları deneyiniz. 1. satırın başlık olduğu ve verinin ikinci satırdan başladığı varsayılmıştır.

Sub BosSatSil()

    Dim Son As Long, _
        i   As Long
   
    Application.ScreenUpdating = False
   
    Son = Cells.Find("*", , , , xlByRows, xlPrevious).Row
   
    For i = Son To 2 Step -1
        If Application.WorksheetFunction.CountBlank(Range("A" & i & ":C" & i)) = 3 Then Rows(i).Delete
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

A hücresi (barkod satırı) boş ise tüm satırı silecek. Bu şekilde düzenlerseniz sevinirim

 

[Necdet]

Deneyiniz,

Bakalım anlaşabilecek miyiz? Yine verinin 2. satırdan başladığı düşünülmüştür.

Sub Makro1()
    
    Dim Son As Long
    
    On Error Resume Next
    
    Son = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    Range("A2:A" & Son).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
End Sub