Soru Rapor Oluşturma

[LifeGame]

Merhabalar;
Öncelikle belirteyim makro konusunda feci cahilim Sorunum ise şu şekilde;

-2 sheet var; Rapor ve Borç.
-Borç sayfası "K" sütununda ki değer "0" dan büyükse;
Borç Sayfası D yi Rapor Sayfası D ye getir
Borç Sayfası E yi Rapor Sayfası E ye getir
diye devam eden formül aşşağıdaki gibidir. Aslında istediğim K5:K1000 arasında çalışması ama çalıştıramadım, K65536 yazınca çalışıyor.

Sub Bakiyesi_Olanlari_Getir()
Dim i As Integer
For i = 2 To Range("K65536").End(3).Row
If Cells(i, "K") > 0 Then
Sheets("Rapor").Cells(i, "D") = Cells(i, "D")
Sheets("Rapor").Cells(i, "E") = Cells(i, "E")
Sheets("Rapor").Cells(i, "F") = Cells(i, "F")
Sheets("Rapor").Cells(i, "G") = Cells(i, "G")
Sheets("Rapor").Cells(i, "H") = Cells(i, "H")
Sheets("Rapor").Cells(i, "I") = Cells(i, "I")
Sheets("Rapor").Cells(i, "J") = Cells(i, "J")
Sheets("Rapor").Cells(i, "K") = Cells(i, "K")
End If
Next i
End Sub

Üsttaki formül çalıştıktan sonra aralarda yüzlerce boş satır kalıyor. Rapor sayfasında D5 - D1000 aralığındaki boş satırları nasıl sildirebilirim acaba ?

Teşekkürler...

 

[Asri]

https://wetransfer.com den örnek dosyanızı yüklerseniz daha hızlı ve doğru destek alırsınız.

 

[LifeGame]

https://wetransfer.com den örnek dosyanızı yüklerseniz daha hızlı ve doğru destek alırsınız.

Selamlar;

Ornek calisma https://we.tl/t-ae5M24uxdZ

Teşekkürler

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
https://s2.dosya.tc/server16/zrdao7/LifeGame-Rapor_Calismasi.zip.html

 

[YUSUF44]

For i = 2 To Range("K65536").End(3).Row

satırını

For i = 5 To 1000

olarak değiştirip deneyin.

Satır silmek için aşağıdaki gibi bir makro kullanabilirsiniz:

sub sil()
son = Cells(Rows.Count, "D").End(3).Row
For i = son To 4 Step -1
    If Cells(i, "D") = "" Then Rows(i).Delete
Next
End Sub

 

[LifeGame]

@muygun , @YUSUF44
Yaw sizler ne kadar güzel insanlarsınız ...

Çok teşekkürler..