Şarta bağlı kopyalama.

[tiamin]

Merhabalar.

SONUÇ isimli sayfamda R-AA sütunları arasında aşağıya doğdu veriler veriler var. Kimi satırda 4 kimi satırda 9 veri var. Yani her satırda kaç veri olduğu belli değil.
=10-BOŞLUKSAY(SONUC!$R$2:$AA$2) formülü ile her satırdaki dolu hücre sayısını bulabiliyorum.

Başka bir sayfaya (ISLENMIS) bu sayfadan veri çekiyorum.

İstediğim şey se şu; ISLENMIS sayfasına formülden çıkan sonuç kadar alt alta kopyalama yapmak istiyorum.

Bunu nasıl yapabilirim.

Teşekkürler.

Örnek Dosya: https://docs.google.com/spreadsheets/d/1M035FIzYBSmswp2IR7J1bHn2m56Oa_Jx/edit?usp=drive_link&ouid=109024267893707458485&rtpof=true&sd=true

 

[tiamin]

Merhabalar.

Konuya aşağıdaki kodla çözüm bulunmuştur.

Sub aktar()
i = 1
For i = 1 To 2   
    Kac = WorksheetFunction.CountA(ThisWorkbook.Sheets("Sayfa1").Range("A" & i & ":E" & i & ""))
    For y = 1 To Kac
        Worksheets("Sayfa1").Range("A" & i & ":DZ" & i & "").EntireRow.Copy Worksheets("Sayfa2").Range("A65536").End(xlUp)(2, 1)
  Next y   
    Next i
End Sub

Belki başka birinin işine yarar.