Skip to main content

AccessTr.neT


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

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

#1
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.
.rar rapor_0.rar (Dosya Boyutu: 110,8 KB | İndirme Sayısı: 7)
edacan19, 17-04-2010 tarihinden beri AccessTr.neT
Cevapla
#2
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, 17-04-2010 tarihinden beri AccessTr.neT
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da