Sayfaya veri kopyalamak

[memduh]

Arkadaşlar Merhaba. Veri sayfasında B11:K30 kadarki verileri Data Sayfasının B3:K65536 yadar kopyalamak istiyorum. Yani her seferinde bir alt satıra kaydetmesini istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:8055b9002e]Sub kopyala()
[b11:k30].Copy
Sheets("data").Select
sat = WorksheetFunction.CountA([b3:b65536]) + 3
Cells(sat, "b").PasteSpecial
Application.CutCopyMode = False
End Sub
[/vb:1:8055b9002e]

 

[trafikci]

probelminize örnek dosya eklememişsiniz
kurtlar vadisi izlerken :hiho: yaptım umarım doğru anlamışımdır.

bi bakınız

kodlariçin; ustalara teşekkür ederim