Sayfalar arası veri aktarımı makro

[seductive32]

2 sayfam olacak 1. sayfa da seçtiğim sütündaki(her seferinde farklı sütun seçilebilir) verileri 2. sayfada sütuna yazdırmak istiyorum

 

[meda58]

buyrun aktardıklarınız aynı zamanda renkleniyor
Sub SEÇİMİ_AKTAR()
Selection.Copy Sheets("Sayfa1").Range("A1048576").End(3).Offset(1)
Selection.Interior.ColorIndex = 6
End Sub
sayfa ismini kendinize göre ayarlayın

 

[meda58]

buda alternatif olsun
Sub SEÇİMİ_AKTAR()
Selection.Copy
Sheets("Sayfa1").Select
Range("A1048576").End(3).Offset(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[seductive32]

Kodu deniyorum çalışmıyor Range("A1048576").end(3).Offset(1).Select ne iş yapıyor bir açrmısınız

 

[seductive32]

çalışan bir excel dosyası koyabilirmisiniz bana çok acil lazım iş yerinde kaset takibi için basit birşey istediler...

 

[meda58]

buyur arkadşım çok basit bir örnek hazırladım ben herşeyi bu siteden ögrendim henüz çok acemiyim bu gönderdiğim kodda ustalarıma ait onlara ayrıca burdan tekrar teşekkür ederim

 

[bitzer]

kardesim bunu sen mi hazırladın spt dosyasını

 

[Detron]

Merhaba arkadaşlar Ana Veri sheet A stunu dolu o stunundaki hücrenin boş ise y hücresinde tanımlana Hat1 sayfasının A VE B stununa Ana veri sheet a ve b stunun koplaya.Eğer o stununda birden fazla boş hücre var ise Hat1 sayfasına alt alta kopyala ./ Arkadaşlar bu işlemi bir türlü yapamadım yardmcı olabilirmisiz?

 

[YUSUF44]

Merhaba arkadaşlar Ana Veri sheet A stunu dolu o stunundaki hücrenin boş ise y hücresinde tanımlana Hat1 sayfasının A VE B stununa Ana veri sheet a ve b stunun koplaya.Eğer o stununda birden fazla boş hücre var ise Hat1 sayfasına alt alta kopyala ./ Arkadaşlar bu işlemi bir türlü yapamadım yardmcı olabilirmisiz?

YAzdığınızdan hiçbir şey anlamadım maalesef. Örnek dosya paylaşarak ne istediğinizi örnekle açıklamanız iyi olur. Mümkünse yeni konu açmanızı tavsiye ederim.