excel de her sayfanın üstündeki başlık içeren satırların makro ile otomatik silinmesi

13/06/2014, 15:54

edacan19

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.
17/06/2014, 08:23

edacan19

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