ثبت خلاصه ای از اجزای فاکتور فروش در یک شیت دیگر

[afshin3a]

سلام بر اساتید گرامی
من یک فایل اکسل با دو سربرگ Factor و Maleyat دارم. مطابق فایل پیوست; می خواهم هر بار که دکمه "ثبت فاکتور" را زدم، خلاصه ای از اطلاعات فاکتور در سربرگ Maleyat ذخیره شود. (در حقیقت سربرگ Maleyat حکم یک دیتابیس را برای من دارد).
توجه بفرمایید که در یک فاکتور، قطعا مشتریان عوض می شوند و باید با هر بار زدن دکمه "ثبت فاکتور" خلاصه ای از اطلاعات آن مشتری در سربرگ Maleyat ثبت شود.
چگونه باید این کار را انجام دهم؟

[Amir Ghasemiyan]

بفرماييد دوست عزيز
لطفا تو شيت ديتابيستون هيچي وارد نكنين. حتي شماره رديف. همه چي خودكار انجام ميشه

Sub sabt()
'Collect Data:
Sheet1.Activate
EI_Name = Range("B1").Value
EI_Factor = Range("G2").Value
EI_Date = Range("G1").Value
EI_Sum = Range("E10").Value
EI_Maliat = Range("F10").Value
EI_Count = Range("B2").Value
'Paste Data:
Sheet2.Activate
Range("A1").End(xlDown).Offset(1, 0).Range("A1").Select
ActiveCell.Value = Selection.Row - 2
ActiveCell.Offset(0, 1).Value = EI_Name
ActiveCell.Offset(0, 2).Value = EI_Factor
ActiveCell.Offset(0, 3).Value = EI_Date
ActiveCell.Offset(0, 4).Value = EI_Sum
ActiveCell.Offset(0, 5).Value = EI_Maliat
Sheet1.Activate
End Sub