Dağınık hücreleri kopyalama ve yapıştırma

[selocanexcel]

Öncelikle böyle bir sitenin faaliyette olması konusunda emeği geçen herkese çok teşekkür ederim .

Çözüm bulamadığım konuyu ifade etmeye çalışayım;
Macro yardımıyla Sayfa2 Ardışık olmayan veya aralık belirtemediğim hücreleri kopyalayıp (sayfa2 Gizli sayfadır) Sayfa1 de belirlenen hücrelere yapıştırmak istiyorum.

Sayfa2 A70 Kopyalanacak Sayfa1 D3 e yapıştırılacak
Sayfa2 C70 Kopyalanacak Sayfa1 K4 e yapıştırılacak
Sayfa2 F70 Kopyalanacak Sayfa1 B8 e yapıştırılacak
Sayfa2 H70 Kopyalanacak Sayfa1 C9 a yapıştırılacak
Sayfa2 L70 Kopyalanacak Sayfa1 C18 e yapıştırılacak

yukarıdaki örnekte olduğu gibi dağınık hücreleri kopyalayıp, bir formun içeriğindeki hücrelere yapıştırılacak.
Yardım edebilmeniz umuduyla iyi günler dilerim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub kod()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Range("D3").Value = s2.Range("A70").Value
s1.Range("K4").Value = s2.Range("C70").Value
s1.Range("B8").Value = s2.Range("F70").Value
s1.Range("C9").Value = s2.Range("H70").Value
s1.Range("C18").Value = s2.Range("L70").Value
End Sub