Soru Fatura bilgilerini farklı sayfaya listelemek

[TheSmoke]

Merhaba arkadaşlar

Fatura ve Fatura Listesi olarak 2 basit sayfam var. Örnek dosyada belirttiğim alanları Fatura sayfasındaki bilgileri doldurduktan sonra KAYDET butonuna tıkladığım zaman, Fatura Listesine kaydetmesini istiyorum. VBA çok anlamıyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[Muhammet Okumuş]

Sub Listele()
Dim f, fl As Object, i, son As Integer

Set f = Sheets(1)
Set fl = Sheets(2)


For i = 16 To f.Cells(Rows.Count, 1).End(3).Row
son = fl.Cells(Rows.Count, 1).End(3).Row + 1
fl.Cells(son, 1) = son - 1
fl.Cells(son, 2) = f.Cells(1, 6).Value
fl.Cells(son, 3) = f.Cells(5, 1).Value
fl.Cells(son, 4) = f.Cells(6, 1).Value
fl.Cells(son, 5) = f.Cells(2, 6).Value
fl.Cells(son, 6) = f.Cells(8, 2).Value
Next

Set f = Nothing
Set fl = Nothing

End Sub

Kodun bir kısmını yazdım. Geri kalanları kendiniz yapabilirsiniz. cells(1,2) demek 1. satır, 2. sütun demek