satır saydırarak veri aktarma.

[hikmet]

Merhaba, ekteki örnek makroyu forumdan aldım fakat uzun süre geçtiği için ismini hatırlamıyorum makroyu yazanın bu nedenle özür dilerim. Aşağıdaki makro bir sayfadaki verileri başka bir sayfaya kopyalıyor.

Sub Kopyala()
Sheets("Sheet3").Range("A110").Copy
Sheets("Sheet1").Select
Range("A25").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

benim sormak istediğim bu makronun içine kopyalanacak verinin satırlarını saydırıp 50 satırdan fazla ise "örneğin 10 satır " boş bırakarak devamını o boş satırlardan sonrasına kopyalatabilirmiyiz.

 

[omerceri]

saydırma işlemi
say = Sheets("Sheet3").Range("A1").CurrentRegion.rows.count
şeklinde yapılıp,
Sheets("Sheet3").Range("A1" & say).Copy
saydırılan satırlar kopyalana bilir.
ama sorunun diğer kısmını anlamadım.

 

[hikmet]

sn.ömerceri diyelimki 60 satırlık bir verim var ve bunu bir şablonun olduğu sayfaya aktaracağım. şablon sadece elli satır veriyi alabiliyor.bu nedenle iki adet şablonum var ve yapmak istediğim verinin 50 satırını şablonun birincisine diğerini on satır altında başlayan ikincisine aktarmak. iki şablon da aynı sayfada. ilginiz için teşekkür ederim.

 

[omerceri]

Sub Kopyala()
say = Sheets("Sheet3").Range("A1").CurrentRegion.rows.count
if say <= 50 then
Sheets("Sheet3").Range("A1"&say).Copy
Sheets("Sheet1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
else
Sheets("Sheet3").Range("A150").Copy
Sheets("Sheet1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Sheet3").Range("A51"&say-50).Copy
Sheets("Sheet1").Select
Range("A75").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
end sub

 

[hikmet]

sağolun sn.omerceri çok güzel oldu.elinize sağlık.

 

[hikmet]

sn.omerceri kodlar verileri istediğim sayfadaki istediğim şablona aktarıyor fakat bir sorun var bende 52 adet veri var birinci şablona 50 adet ikinciye 2 adet veri atması gerekirken her iki şablona da elli adet veri atıyor.acaba nerede hata yapmış olabilirim.

 

[omerceri]

dosyanı eklersen hatanın nerede olduğuna ben yada başka bir arkadaş bulabilir