[حل شده] نحوه افزودن اطلاعات فاکتور جدید به جدول بطور خودکار ؟

[ahmadrb]

با سلام به همه دوستان عزیز
من یه فاکتور برای فروشگاه خودم طراحی کردم ولی یه مشکل که داره باید تک تک فاکتورها رو به اسامی جدا ذخیره کنم و برای پیدا کردن یک مشتری بین این همه فایل اکسل کار خیلی سختیه
راهی هست که هر فاکتوری که چاپ بشه اطلاعاتش در یک جدول اتوماتیک وار ثبت بشه مثلا نام مشتری و تاریخ به ترتیب زیر هم ذخیره بشه
یک نمونه گذاشتم چجور میشه بعد چاپ شدن اسم مشتری جدید اتومات به جدول اضاف بشه
Receive Voucher - Copy.xlsx

[Alireza]

http://forum.exceliran.com/showthread.php/3278-%D9%81%D8%A7%DA%A9%D8%AA%D9%88%D8%B1-%D9%81%D8%B1%D9%88%D8%B4

سلام در این خصوص نمونه های زیادی در انجمن هست میتونید الگو بگیرید

[ahmadrb]

ممنون از پاسختون ولی بحثی که لینک دادید پیچیده بود نتونستم چیزی از صحبتاشون بفهمم و بنده در حد یه دوره اکسل که رفتم اطلاعات ابتدایی دارم&nbsp;<br>اگه امکانش هست یه فرمول با یه توضیحی بدید یا اینکه رو فایلی که نمونه فرستادم تغییر انجام داده بشه تا بتونم متوجه بشم <br>و ممنونم از همه ی دوستان

http://forum.exceliran.com/showthrea...B1%D9%88%D8%B4

سلام در این خصوص نمونه های زیادی در انجمن هست میتونید الگو بگیرید

[iranweld]

با سلام

یک نمونه ساده از ثبت فاکتور در شیت دوم برای شما تهیه گردید.

Sub test()

Z1 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1

Sheet1.Range("A1").Copy Destination:=Sheet2.Range("A" & Z1)
Sheet1.Range("C1").Copy Destination:=Sheet2.Range("B" & Z1)
Sheet1.Range("C2").Copy Destination:=Sheet2.Range("C" & Z1)
Sheet1.Range("B3").Copy Destination:=Sheet2.Range("D" & Z1)
Sheet1.Range("B4").Copy Destination:=Sheet2.Range("E" & Z1)
Sheet1.Range("B5").Copy Destination:=Sheet2.Range("F" & Z1)
Sheet1.Range("B6").Copy Destination:=Sheet2.Range("G" & Z1)
Sheet1.Range("A9").Copy Destination:=Sheet2.Range("H" & Z1)

Sheet1.Range("A1") = Sheet1.Range("A1") + 1

Sheet2.Select

End Sub 

[ahmadrb]

ممنون از پاسختون مشکل حل شد