Şartlı Veri Aktarımı

[isteobenim]

Merhabalar,

Arkdaşlar forumda olması gerekiyor, daha önce örneklerini görmüştüm gibi hatırlıyorum ama sabahtan beri arıyorum malesef istediğimi bulamadım.

Ek örnekte Sayfa1 de bulan verilerin 30 satır, 30 satır olmak şartıyla Sayfa2,Sayfa3,Sayfa4........devam ederek 30 satır olarak aktarılmasını için makroya ihtiyacım vardır.(30 değerini herhangi bir hücreyede atayabiliriz)

Kullanacığım veri 200 bin satır olacağı için tek tek hücre adresi girerek yapmak çok zor olacak

Teşekkürler,

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub aktar()
ssatır = [M1].Value + 1
isatır = 2
    For k = 2 To Sheets.Count
        Range("A" & isatır & ":J" & ssatır).Copy Sheets(k).Range("A2")
        isatır = isatır + [M1].Value
        ssatır = ssatır + [M1].Value
    Next
End Sub

 

[isteobenim]

Sayın dEdE çok teşekkür ederim,

 

[baydeniro]

Teşekkürler sayın dEdE.