excel de fatura programının verilerini kaydetmek istiyorum

[SELİM GÖLBAŞI]

excel de klasic bir fatura programı oluşturdum. yanına tuşlar koydum.makro atayarak çıktı alıyor. sayfayı temizliyor. fakat1 tuş ekleyip diğer sayfada yazılan faturanın kaydını tutmak istiyorum. yani hangi tarihte ne ürünü ve nakar tutarda fiş kesmişim diye. aslında makroda copyala yapıştır yaptırdım ama hep aynı yere kaydettiği için diğeri siliniyor yani alt satırına kaydetmesini istiyorum. nasıl yapabilirim

 

[muygun]

Merhaba;
Sayfanın kod bölümüne aşağıdaki kodları düzenleyerek ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

Sub sayfaya_yaz()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1") 'verilerin alındığı sayfa adı
Set s2 = ThisWorkbook.Worksheets("Sayfa2") 'verilerin yazıldığı sayfa adı
'yukarıdaki iki satırda alınan ve yazılacak sayfa adlarını belirleyin.
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = s1.Cells(1, 1) 's1 sayfasında 1.satır 1.sütun verisini s2 sayfasında A sütununda son boş satıra yaz
'üstteki satırı verilerinize göre çoğaltın.
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub