Yan Sayfadaki Veriyi Kopyalamak

[Ghoul]

Öncelikle Merhabalar,

Benim sorum şu olacaktı;

Şimdi bende 2 adet sayfa mevcut. Bunlara Sayfa1 ve Sayfa2 diyelim.

Sayfa2'de A165'e kadar olan liste mevcut. Ben bu listeyi Sayfa1'de bulunan bir makro ile kopyalamak istiyorum. Sizce böyle birşey mümkün müdür?
Aynı sayfa içerisinde kopyalamayı başardım ama farklı sayfadaki veriyi kopyalayamadım. Umarım sorunumu anlatabilmişimdir. Yardımcı olursanız çok sevinirim.

İyi günler. :hey:

 

[askm]

Sub askm()
Dim sonsat As Long
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
sonsat = s1.Range("A65536").End(xlUp).Row
s1.Range("A1:A" & sonsat).Copy s2.Range("A1")
MsgBox "İşleminiz tamam...", vbInformation, "ASKM"
End Sub

 

[Ghoul]

Sub askm()
Dim sonsat As Long
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
sonsat = s1.Range("A65536").End(xlUp).Row
s1.Range("A1:A" & sonsat).Copy s2.Range("A1")
MsgBox "İşleminiz tamam...", vbInformation, "ASKM"
End Sub

Hızlı yanıtınız için teşekkür ederim. Kodu denedim fakat Sayfa1'de ki veriyi Sayfa2'ye yapıştırdı. Benim hatamı mazur görün, kopyadan kastım CTRL+C ile yaptığımız işlem. Yani Sayfa2'ye gelip A sütununda ki verileri seçip CTRL+C yapmak yerine bunları Sayfa1'den halletmek. Yapıştırma veya taşıma işlemi olsun istemiyorum sadece kopyalanmış olsun yeterli.

Sayfa içerisinde bu işlemi aşağıda belirttiğim kod ile yapabildim.

Sub AKOPYALA()
Dim son As Integer
    son = Range("A65536").End(3).Row
    Range("A1:A" & son).Copy
End Sub

 

[askm]

Yapıştırsın olsun istemiyorsanız s1.Range("A1:A" & sonsat).Copy s2.Range("A1") kısmından s2.Range("A1") kısmını iptal edin. yani silin ya da başına tek tırnak ekleyin.

 

[Ghoul]

Yapıştırsın olsun istemiyorsanız s1.Range("A1:A" & sonsat).Copy s2.Range("A1") kısmından s2.Range("A1") kısmını iptal edin. yani silin ya da başına tek tırnak ekleyin.

Çok teşekkür ederim çalıştı, elinize sağlık.:icelim::bravo:

 

[askm]

Rica ederim.