İlk dolu hücrenin üstündeki hücreyi seçmek

[harziyan]

İyi geceler efendim;

Derdim şudur;

"a10" hücresi de dahil olmak üzere "B" Sütununda "b10" hücresinden sonraki ilk dolu olan hücreye kadar tüm satırların silinmesini istiyorum.

Kısacası resimdeki işaretli alanı kod ile silmek istiyorum.

Sorunun sebebi ise "b10" hücresinden sonraki ilk dolu hücrenin bir standardının olmaması!
Bazen 3, bazen 5, bazen 10 satır sonra ilk dolu hücre olabilir...



İlgilenenlere şimdiden teşekkür ederim...

 

[Korhan Ayhan]

Aşağıdaki kodu denermisiniz.

Sub TEMIZLE()
    Satir = Range("B10").End(4).Row
    Range("A10:L" & Satir - 1).ClearContents
End Sub

Veriniz çoksa döngü kurulurak silme işlemi yapılabilir.

 

[harziyan]

Korhan Hocam, ilginize teşekkür ederim. İçerik temizleme değil de o satırları olduğu gibi silebilir miyiz?

Bir de dediğiniz döngü işime yarar açıkçası. Bir sayfada en fazla 10-15 kere bu işlem yapılacak, sırayla bu işi yaptırabilirsek alüyyül alâ olur açıkçası...

 

[harziyan]

Ya da Hocam sizi uğraştırmayayım gece gece, siz satırı komple silmeyi gösterin ben onra razıyım...

 

[antonio]

Korhan Hocam, ilginize teşekkür ederim. İçerik temizleme değil de o satırları olduğu gibi silebilir miyiz?

Bir de dediğiniz döngü işime yarar açıkçası. Bir sayfada en fazla 10-15 kere bu işlem yapılacak, sırayla bu işi yaptırabilirsek alüyyül alâ olur açıkçası...

Korhan hocanın yazdığı kodu şöyle değiştirin:

Sub TEMIZLE()
    Satir = Range("B10").End(4).Row
   Rows("10:" & Satir - 1).EntireRow.Delete
End Sub

 

[harziyan]

Ellerinize sağlık arkadaşlar, çok teşekkür ederim...