Sınırlı alandan sınırlı alana veri aktarma

[EKREM1661]

Saygıdeğer Arkadaşlar..! Tüm Excel Forum Ailesine Selamlar..

sizin örneğiniz, benim uyarlamamdan daha sağlıklı olacağı düşüncesiyle konuyu sizlere havale ettim.
Forumda; veri aktarma ile ilgili örnekler mevcut, ancak farklı olarak,
sınırlı bir alandan yine sınırlı bir alana veri aktarma uygulaması..

Örn: Sayfa1 den ==> Sayfa3' e..
B11:B41 aralığı ==> B11:B41 aralığına,
D11:H41 aralığı ==> D11:H41 aralığına,
K11:O41 aralığı ==> L1141 aralığına,

aktarılacak.. (benzer örnek ekte)

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s3 = Sheets("Sayfa3")
Application.ScreenUpdating = False
s3.Range("B11:P65536").ClearContents
s3.Range("B11:B41").Value = s1.Range("B11:B41").Value
s3.Range("D11:H41").Value = s1.Range("D11:H41").Value
s3.Range("L11:P41").Value = s1.Range("K11:O41").Value
Application.ScreenUpdating = True
MsgBox "AKTARMA TAMAMLANDI..!!", vbOKOnly + vbInformation, "AKTARMA"
Set s1 = Nothing: Set s3 = Nothing
End Sub

 

[EKREM1661]

Sn.Orion2 hocam..!
teşekkürlerimi özellikle ifade ediyorum, bir çok kez çıkmaza girdiğimiz yerde çözümlerini ilettiniz, haliyle üzerimizde emeğiniz var..iyilikler unutulmaz..sağlık ve muvaffakiyetler diliyorum..

 

[Orion1]

Sn.Orion2 hocam..!
teşekkürlerimi özellikle ifade ediyorum, bir çok kez çıkmaza girdiğimiz yerde çözümlerini ilettiniz, haliyle üzerimizde emeğiniz var..iyilikler unutulmaz..sağlık ve muvaffakiyetler diliyorum..

Bende size teşekkür ediyorum.
İyi çalışmalar.