+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Soruları ve Cevapları (https://accesstr.net/forum-excel-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: excel de her sayfanın üstündeki başlık içeren satırların makro ile otomatik silinmesi (/konu-excell-de-her-sayfanin-ustundeki-baslik-iceren-satirlarin-makro-ile-otomatik-silinmesi.html)
excel de her sayfanın üstündeki başlık içeren satırların makro ile otomatik silinmesi - edacan19 - 13/06/2014
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.
Cvp: excel de her sayfanın üstündeki başlık içeren satırların makro ile otomatik silin... - edacan19 - 17/06/2014
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