ecxel vba ıle verı aktarma

[Awesor]

ıyı gunler basıt bır sorum olacak sayfa1 dosyasındakı A2 HUCRESINDEKI VERIYI SAYFA2 DOSYASINDAKI B2 HUCRESINE AKTARMAK ISTIYORUM.VE BUNUN GIBI 10-15 ALT ALTA HUCRE VAR .
BU SABIT HUCRELERI DUGMEYLE TEK SEFERDE AKTARMA SANSIM VARMI YARDIMCI OLURMUSUNUZ LUTFEN

 

[walabi]

Aşağıdaki kodu bir modüle ekleyip çalıştırın. yada butona atayın. Sanırım işinizi görecektir.

Sub Aktar()

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

sonsat = s1.Cells(Rows.Count, "A").End(3).Row

For i = 2 To sonsat
s2.Cells(i, "B").Value = s1.Cells(i, "A").Value

Next

End Sub