Fatura Hazırlama

[yolcu50]

ürünler satıldığı zaman depo mevcudunda kalanı takip edebilmek için fatura ile aynı sayfada bulunan depo listesinde satışa konu malzemenin satılan adedinin toplanmasını istiyorum.
http://s3.dosya.tc/server17/bqav5w/FATURA_HAZIRLAMA.xlsx.html

 

[yolcu50]

Biraz uğraşınca yapabildim.


Sub Makro1()
Dim GK, KK As Worksheet
Set KK = Sheets("VERİ")
Sheets("FATURA HAZIRLAMA").Select
Range("A10:F35").Select
Selection.Copy
Sheets("VERİ").Select
son_satir = KK.Range("a65000").End(3).Row + 1
KK.Range("a" & son_satir).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("VERI").Select
End Sub