[حل شده] ثبت اطلاعات فاکتور فروش در شیت دیگری

[a.dal65]

با سلام خدمت اساتید


من یک فاکتور فروش درست کردم
که به چند تا مشکل خوردم ممنون میشم کمکم کنید

1. میخوام وقتی دکمه ثبت رو زدم اطلاعات اون فاکتور به یک شیت دیگه که حکم دیتابیس رو برام داره اضافه بشه
یعنی اگه 4 تا کالا توی فاکتور زدم همون 4 تا به شیت دیگه اضافه بشه و اگه باز اگه 20 تا کالا زدم همون 20 تا به اون 4 تا اضافه بشه و.... به همین صورت تا انتها


2.شماره فاکتور از عدد 1 شروع میشه و برای هر فاکتور می بایست یک واحد افزایش پیدا کنه 2 و 3 و .....
که نمیدونم چطور این کار رو انجام بدم

3.چطوری محتویات یک سلول رو پاک کنم ؟ حتما باید اول select تش کنم ؟
چون این کد کار میکنه :

Worksheets("report").Range("b5:g24").ClearContents

ولی اینکه برای یک سلوله کار نمیکنه :

Worksheets("report").Range("c3").ClearContents

[Amir Ghasemiyan]

سلام دوست عزيز

1- اين مورد رو متوجه نشدم نمظورتون چيه؟ اطلاعات رو كپي كنيد ببريد آخر ديتابيستون پيست كنيد ديگه. مشكلش چيه؟

2- شماره فاكتور رو كه درست گذاشتيد. با همون تابع max بهترين راهه به نظرم

3- نه نيازي به سلكت كردن نيست. اينكه c3 رو براي شما پاك نميكنه بخاطر اينه كه سلول مرج شده هست. در حالت مرج شده بايد كل سلول هايي كه مرج هستند رو به عنوان رنج قرار بديد

[a.dal65]

سلام آقا امیر ممنون از پاسخت

1. من وقتی به مشتری جنسی رو فروختم و فاکتورشو میدم به خودش . میخوام خودمم اطلاعات اون فاکتور رو داشته باشم (ذخیره بشه توی شیت data)

مثلا من امروز 20 تا فاکتور ثبت میکنم میخوام همه اون 20 فاکتور توی شیت data دخیره بشه (حالا ممکنه یه فاکتور شامل 2 قلم جنس باشه یه فاکتور شامل 10 قلم جنس باشه)

که بعدا از اون دیتا برای گزارش گیری استفاده کنم . مثلا امروز چی فروختم چند قلم شده به کی بوه و چقدر کلا فروختم
(مثال رو ضمیمه کردم خدمتت)

2. من میخوام شماره فاکتور رو کاربر وارد نکنه
( یعنی وقتی کاربر دکمه جدید رو زد کد بره از توی شیت data ببینه آخرین شماره فاکتور چنده ، بهش یک شماره اضافه کنه و توی شیت report جلو شماره فاکتور قرار بگیره . امروز 20 تا فاکتور ثبت کرده فردا که میاد فایلو باز کنه عدد فاکتور بشه برای ثبت جدید بشه 21 )

3. ممنون

[a.dal65]

امیر جان مشکل شماره 2 حل شد .

من الان برای 20 تا سطر فاکتور کدها شو نوشتم ولی کار نمیکنه .(دکمه ثبت و چاپ)

[majid$4852]

سلام دوستان من تازه به انجمن اومدم یه سوال دارم یه برنامه با ویژوال بیسیک نوشتم یه مشکل دارم میخوام بدونم چطوری میشه مبلغ شارژ رو که از هر واحد میگیری به شارژ اصلی ساختمان اضافه بشه

- - - Updated - - -

حواهشن اگه کسی میدونه بگه من لنگ این کدم

- - - Updated - - -

[iranweld]

امیر جان مشکل شماره 2 حل شد .

من الان برای 20 تا سطر فاکتور کدها شو نوشتم ولی کار نمیکنه .(دکمه ثبت و چاپ)

با سلام

فعلا سلولهای شیت اول را از حالت مرچ شده خارج کنید .

[a.dal65]

استاد iranweld
این کارو کردم ولی درست کار نمیکنه
این کد های که من نوشتم خیلی غیر معموله
باید توی شیتی که فاکتور هست اگه 10 یا 5 یا 2 قلم فاکتور ثبت شد همونا بره توی شیت دیتا

کد من باید بیاد توی محدوده قرمز مشخص شده توی عکس ، آخرین سطری که اطلاعات هست رو پیدا کنه (که میشه محدود آبی) بعد همون ها رو کپی کنه تو شیت دیتا

[iranweld]

کدهای ذیل را تست کنید

Sub Rectangle2_Click()


z1 = Range("B4").End(xlDown).Row

z2 = Sheets("Data").Cells(Sheets("Data").Rows.Count, "c").End(xlUp).Row + 1

Range("b6:e" & z1).Copy Destination:=Sheets("Data").Range("c" & z2)

z3 = Sheets("Data").Cells(Sheets("Data").Rows.Count, "c").End(xlUp).Row

For i = z2 To z3

Sheets("Data").Range("b" & i) = Range("b3")

Next


MsgBox "ثبت جديد با موفقيت انجام شد"


End Sub 

[a.dal65]

عالی!
فقط من هر کاری کردم که تو شیت data
border ها از شیت report کپی نشه
نشد که نشد!
امکانش هست ؟