satır aralığını seçerek satır silme

[coşkun79]

çok aradım ama benim istediğim gibi bir makro bulamadım.ekteki tablonun 6. satırdan sonraki tüm satırlarını silmek istiyorum. Satır sayısı daha fazla olabilir. Ayrıca sadece belli hücrelerde değer olabileceği gibitüm hücreler boş veya dolu olabilir. Tek şart 6. satırdan sonraki tüm satırların silinmesi

 

[halit3]

kod:

Sub SİL()

Set Sh = Sheets(ActiveSheet.Name)
If WorksheetFunction.CountA(Sh.Cells) > 0 Then
sat = Sh.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = Sh.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If sat > 7 Then
Rows("7:" & sat).Delete Shift:=xlUp
End If
Else
Exit Sub
End If
End Sub

 

[coşkun79]

Halit Bey çalışmadı maalesef

 

[Ömer BARAN]

Merhaba.

Sayın ÖZDEMİR şu an forumda değil, alternatif olarak aşağıdaki kod'u dener misiniz?
.

[FONT="Arial Narrow"]Sub SİL_BRN()
If WorksheetFunction.Max(6, ActiveSheet.UsedRange.Rows.Count + 1) > 6 Then Rows("7:" & _
    WorksheetFunction.Max(7, ActiveSheet.UsedRange.Rows.Count + 1)).Delete Shift:=xlUp
End Sub[/FONT]

 

[coşkun79]

Çalıştı. Teşekkür ederim Ömer Bey ve Halit Bey