Butonlar Yardimiyla DİĞersayfaya Kaydetme

[ticaret73]

1. Sayfadakİ Verİlerİ 2. Sayfaya Buton Kullanarak Yapmak İstİyorum Yardimci Olursaniz Sevİnİrİm

 

[karadami]

kaydet düğmesi için

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
son = s2.[a6500].End(3).Row + 1
s2.Cells(son, "a") = s1.Cells(1, "b")
s2.Cells(son, "b") = s1.Cells(2, "b")
s2.Cells(son, "c") = s1.Cells(3, "b")
s2.Cells(son, "d") = s1.Cells(4, "b")
s2.Cells(son, "e") = s1.Cells(5, "b")
End Sub

kodlarını kullanabilirsiniz. diğerleri için neye göre bul neye göre sil dediğinizi belirtmemişsiniz.