Kaydet Butonu Ekleme

[burak2444]

Selamün aleyküm, excelde makro tarafına yeni yeni başlıyorum sıkıntı çektiğim bir konu var. Mevcut çalışma sayfası (sayfa1) içerisinde D25 - D29 - D33 - D37 - D42 - A30 hücrelerindeki verileri sayfa2' ye kaydet butonu ile kaydetmek istiyorum. Kaydet butonuna basınca diğer sayfada otomatik o günün tarihini B2' den başlayacak şekilde
Sayfa1 den sayfa2' ye gidecek veriler aşağıdaki gibi.
Sayfa1 - Sayfa2
D25 C2
D29 D2
D33 E2
D37 F2
D42 G2
A30 H2

Bu şekilde bir makro olması mümkün müdür? Her kayıt için sayfa2' de bir alta kayarak kayıt yapıp bir veri tabanı gibi kullanmak istiyorum.

 

[burak2444]

Düzeltme;
D1 - A2
D25 - B2
D29 - C2
D33 - D2
D37 - E2
D42 - F2
A30 - G2

 

[Mdemir63]

Selamlar

kodu bir modül içine kopyalayıp deneyebilirsiniz.

Sub kaydet()
Dim son As Long
son = Worksheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1

    Worksheets("Sayfa2").Cells(son, "A") = Worksheets("Sayfa1").Range("D1")
    Worksheets("Sayfa2").Cells(son, "B") = Worksheets("Sayfa1").Range("D25")
    Worksheets("Sayfa2").Cells(son, "C") = Worksheets("Sayfa1").Range("D29")
    Worksheets("Sayfa2").Cells(son, "D") = Worksheets("Sayfa1").Range("D33")
    Worksheets("Sayfa2").Cells(son, "E") = Worksheets("Sayfa1").Range("D37")
    Worksheets("Sayfa2").Cells(son, "F") = Worksheets("Sayfa1").Range("D42")
    Worksheets("Sayfa2").Cells(son, "G") = Worksheets("Sayfa1").Range("A30")
End Sub