AccessTr.neT

Merhaba

Arkadaşlar Excel de her sayfanın üstündeki başlık içeren satırlar ile boş satırların makro ile silmek istiyorum sistem olarak ta şöyle birşey geldi aklıma ikinci sutunda boş olan ve metin içeren satırları otomatik silecek bir koda ihtiyacım var. yardımcı olabilirseniz sevinirim.

Merhaba
arkadaşlar boş satırları silen bir makro buldum bu makroya c sutununa bakıp csutununda metin içeren satırları sildirebilirmiyiz.

Kod:
Sub DeleteBlankRowsAndColumns()

'A1 hücresinden dolu olan son hücreye kadar olan alanı seç

Range("A1").Select

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Dim i As Long

With Application

.Calculation = xlCalculationManual

.ScreenUpdating = False

'Tüm Satırlarda CountA(hücrenin içi dolu mu?)

'fonksiyonu 0 döndürüyorsa sil

For i = Selection.Rows.Count To 1 Step -1

If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

Selection.Rows(i).EntireRow.Delete

End If

Next i

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

End With

End Sub

edacan19

edacan19