Satırları silmek

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar elimde bir listem var; Liste otomatik alınıyor, ben bunu listemde T.C. numaralarının bittiği yerden diğer sayfanın T.C numaralarının başladığı yere kadar, Z sütunundaki alt toplama kadar olan kısımları silerek tek sayfa yapmak istiyorum bunun için nasıl bir kod yazılır. teşekkürler.

 

[Hacı Bayram ÖZKAN]

Merhabalar iki kod buldum ama ikisi de tam isteğimi vermedi. Bakabilir misiniz.?

Sub Boş_Satır_Sil1()
For i = Range("L65536").End(3).Row To 1 Step -1
If Range("L" & i) = "" Then
Rows(i).Delete
End If
Next i
End Sub

Sub Boş_Satır_Sil2()
Application.ScreenUpdating = False
Dim i As Integer
t = ActiveSheet.UsedRange.Rows.Count
For i = t To 10 Step -1
If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then
Rows(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[veyselemre]

Sub test()
    Sheets("KurumBordroOzet").Copy after:=Sheets("KurumBordroOzet")
    For i = Cells(Rows.Count, "AF").End(3).Row - 1 To 18 Step -1
        If Cells(i, "Z").Value = "" Or Not IsNumeric(Cells(i, "Z").Value) Then Rows(i).Delete
    Next i
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Veyselemre bey yenice uygulaya bildim eline sağlık efendim. Çok güzel olmuş

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar;

SonSat = Range("B" & Rows.Count).End(xlUp).Row 'B sütununun son dolu satırı
Rows(SonSat + 2).Delete
Rows(SonSat + 2).Delete
Rows(SonSat + 2).Delete
Rows(SonSat + 2).Delete
Rows(SonSat + 2).Delete
Rows(SonSat + 2).Delete

Bu kod ile B sütununun en son dolu satırının iki altında bulunan 6 satırı siliyorum. ancak bu kod daha düzenli nasıl yazılır. Teşekkürler.

 

[ÖmerBey]

Merhaba,
Deneyiniz...
Rows(SonSat + 2 & ":" & SonSat + 7).Delete

 

[Hacı Bayram ÖZKAN]

Eveet güzel daha şık oldu, teşekkür ederim. İyi geceler.

 

[Korhan Ayhan]

Alternatif;

Sub Test()
    Cells(Rows.Count, "B").End(3)(4).Resize(6).EntireRow.Delete
End Sub

 

[Hacı Bayram ÖZKAN]

Korhan bey sizede teşekkür ederim efendim iyi geceler.