makroda yazdığın sayı kadar satır kopyalamak

[cemilbenek]

kolay gelsin iyi çalışmalar
Teklif çalışma kitabının Teklif sayfasının Q3 hücresinde kaç yazıyor ise B1'den başlayıp K sütunu Q3 deki sayı kadar kopyalayıp yeni çalışma kitabina yapıştırmasını istiyorum
örnek= (Q3=27) =B1:K27
(Q3=57) =B1:K57 Gibi
İlginiz için şimdiden teşekür ederim

 

[Muzaffer Ali]

Merhaba.

Sub tets()
    Range("B1:K" & Range("Q3")).Copy Workbooks.Add.Worksheets(1).Range("A1")
End Sub

 

[cemilbenek]

Muzaffer hocam çok teşekür ederim