Veri olmayan ilk satırı bul ve o satırı sil

[lsuersoy]

Merhaba arkadaşlar ;

TRKCLL fatura özet dosyalarının ayrıntılı olarak incelemesini yapmak bir kullanıcının hangi numarayı kaç kez aradığını , konuşma sürelerinin toplamı ve tutarlarının toplamını bulmaya çalışmak için bir makro oluşturuyorum....TRKCLL in gönderdiği kurumsal EXCEL formatının ekstrelerinin son satırında 5 sütun gereksiz yere BİRLEŞTİRİLMİŞ.. detaylı inceleme yapılmasın diye düşünülmüş olabilir...

Şimdi şöyle bir kod yazmalıyım ;

"A1 den A2000 e kadar tüm satırları tara , boş olan ilk hücreyi bulduğunda boş hücrenin satırını sil...."

yardımcı olabilecek arkadaşlara şimdiden teşekkürler...

 

[Metin Karaağaç]

A sütunundaki her boş hücrenin bulunduğu satırı siler.

Sub bossatirsil()
For a = 1 To Sheets.Count
sat = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Row
sut = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Column
For b = sat To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Rows(b)) = 0 Then Sheets(a).Rows(b).Delete
Next
For c = sut To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Columns(c)) = 0 Then Sheets(a).Columns(c).Delete
Next
Next
End Sub

 

[lsuersoy]

Teşekkürler , kod başarılı

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz. Döngüye girilmeden find komutu ile satır bulunup silinmektedir.

Option Explicit
 
Sub İLK_BOŞ_SATIRI_BUL_SİL()
    Dim BUL As Range, SATIR As Long
    Set BUL = Range("A1:A2000").Find(Empty, LookAt:= xlWhole)
    If Not BUL Is Nothing Then
        SATIR = BUL.Row
        Rows(BUL.Row).Delete
        MsgBox SATIR & " nolu satır silinmiştir.", vbInformation
    End If
    Set BUL = Nothing
End Sub

 

[sally80]

Veri yoksa sil, veri eklendiğinde tekrar göster

Benim de bu tarz bir çalışmam var. İller bazında makine listesi tutuyorum. Raporun bir sayfasına girişleri yapıyorum, diğer sayfasında da rapor formatında toplamları geliyor. Yapmak istediğim şey eğer bir il hiç hareket görmediyse yani o ilde hiç makine satılmadıysa raporda göstermesin. Ancak o ile bir makine satıldığında da rapora eklendi. Mümkün mü?