Belirli hücreleri aktarma

[Mdemir63]

Selamlar,
Arkadaşlar ekteki dosyada belirli hücreleri Sayfa 2 de olduğu gibi buton ile aktarmak istiyorum. Nasıl yapabilirim?

saygılar

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(yeni, "A") = s1.[C5]
s2.Cells(yeni, "B") = s1.[C8]
s2.Cells(yeni, "C") = WorksheetFunction.Text(s1.[C3], "dd/mm/yyyy")

End Sub

 

[Mdemir63]

Yusuf hocam teşekkür ederim.


Saygılar