satır silme

[peleryn]

Herkese Merhabalar;

Arkadaşlar 7.satır ile dolu olan en son 7 satır arası satırları silecek bir makroya ihtiyacım var.Yardımcı olan olursa çok sevinirim.,

Herkese iyi çalışmalar dilerim.

 

[hamitcan]

Sub sil()
    Range("a7:a" & [a65536].End(3).Row - 7).Clear
End Sub

 

[peleryn]

Hamitcan hızlı cevabınız için çok teşekkür ederim ancak sanırım yeterince ifade edememişim verdiğiniz kod bu satırlar arasındaki hücreleri temizliyor.benim acilen bu satırları silmeye ihtiyacım var.

 

[hamitcan]

"clear" yerine "delete" ifadesini kullanın.

 

[peleryn]

Hamitcan hocam çok teşekkür ederim.
Şey ben utandım biraz çok ta uzatmayayım sağolun