SAYFALAR ARASI VERİ AKTARMA

[manisalı88]

Merhaba arkadaşlar. Sizler için kolay, benim için zor olduğunu düşündüğüm bir sorum var. Ekte gönderdiğim excel dosyasında VERİ ve DATA diye iki sayfa var. VERİ sayfasında b1 b2 b3 ve b4 hücrelerine yazdığım verileri KAYDET butonuna bastığımda DATA sayfasında A2 hücresinden başlayarak her kaydettiğim veriyi alt alta kaydetmesini istiyorum. yardımcı olursanız çok sevinirim

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Sub kaydet()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("VERİ")
Set s2 = ThisWorkbook.Worksheets("DATA")
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = s1.Cells(1, 2)
s2.Cells(sonsatir, 2) = s1.Cells(2, 2)
s2.Cells(sonsatir, 3) = s1.Cells(3, 2)
s2.Cells(sonsatir, 4) = s1.Cells(4, 2)
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyin ve VERİ sayfasındaki butona bağlayarak deneyin.
İyi çalışmalar.

 

[manisalı88]

çok teşekkürler. iyi çalışmalar