كسر يا اضافه كردن از انبار و بايگاني اطلاعات در تيبل

[مائده]

با سلام خدمت اساتيد محترم

در فايل پيوست ارسالي در شيت انبار ستونaوb اطلاعات شيت هاي مورد نظر ماست.
يعني از اين شيت به تعداد ست از كل موجودي هر شيت كسر يا اضافه بشه
زماني كه كليد ماكرو ميزنيم در كشو كومبو باكس نام دو تيبل inوoutامده.
بطور مثال:
1-نام دو شيت را وارد و تعداد ست هايي كه ميخوايم كسر بشه وارد ميكنيم حالا در يوزرفورم در كشو كوبو باكس table.in انتخاب مشخصات نوشته و كليد ثبت ميزنيم.
مشخصات در table.in واردبه صورت بايگاني وارد بشه
حالا در شيت 1111به تعداد عدد ستي كه وارد كرديم در ستون موجودي اضافه بشه.موجودي رديف 1بشه40.رديف دو8 و رديف سه 40 تا بشه.
اين تغييرات براي شيت هايي كه اسمشون در انبار نام صفحه امده اعمال بشه.
حالا اگه ما در كشو كوبو باكس table.out*زديم بستگي به نام صفحه و تعدا ست نوشته شده از موجودي كل رديف هاي شيت ها كسر كنه

اطلاعات در تيبل ها بعد از اجرا هر ماكرو به صورت بايگاني پشت سر هم بياد و پاك نشه

ممنون ميشم كد اين برنامه برام كامل كنيد.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ordouei]

با سلام خدمت اساتيد محترم

در فايل پيوست ارسالي در شيت انبار ستونaوb اطلاعات شيت هاي مورد نظر ماست.
يعني از اين شيت به تعداد ست از كل موجودي هر شيت كسر يا اضافه بشه
زماني كه كليد ماكرو ميزنيم در كشو كومبو باكس نام دو تيبل inوoutامده.
بطور مثال:
1-نام دو شيت را وارد و تعداد ست هايي كه ميخوايم كسر بشه وارد ميكنيم حالا در يوزرفورم در كشو كوبو باكس table.in انتخاب مشخصات نوشته و كليد ثبت ميزنيم.
مشخصات در table.in واردبه صورت بايگاني وارد بشه
حالا در شيت 1111به تعداد عدد ستي كه وارد كرديم در ستون موجودي اضافه بشه.موجودي رديف 1بشه40.رديف دو8 و رديف سه 40 تا بشه.
اين تغييرات براي شيت هايي كه اسمشون در انبار نام صفحه امده اعمال بشه.
حالا اگه ما در كشو كوبو باكس table.out*زديم بستگي به نام صفحه و تعدا ست نوشته شده از موجودي كل رديف هاي شيت ها كسر كنه

اطلاعات در تيبل ها بعد از اجرا هر ماكرو به صورت بايگاني پشت سر هم بياد و پاك نشه

ممنون ميشم كد اين برنامه برام كامل كنيد.

با سلام
در فایل پیوست گزینه انتخاب شیت و ست اضافه شد . شما میتوانید عملیات ریاضی و ... انجام دهید .

[مائده]

با سلام
در فایل پیوست گزینه انتخاب شیت و ست اضافه شد . شما میتوانید عملیات ریاضی و ... انجام دهید .

با سلام
ممنون از راهنمايي و اعمال تغييرات در ويرايش يوزر فرم

اساتيد محترم لطفا در بخش برنامه نويسي راهنمايي كنيد

[مائده]

يكي از اساتيد خواهشا بياد در مورد اين برنامه كمكم كنه

[ordouei]

در فايل پيوست ارسالي در شيت انبار ستونaوb اطلاعات شيت هاي مورد نظر ماست.
>> شما از صفحه انبار میخواهید حتما انتخاب شود یا از یوزر فرم - یک انتخاب یا چند انتخاب ؟ <<
يعني از اين شيت به تعداد ست از كل موجودي هر شيت كسر يا اضافه بشه
>> تعداد ست یعنی چه ؟ ضریب کسر کالا یا تعداد کالا ؟ - کدام کالا با چه کدی یا مشخصاتی ؟ <<
زماني كه كليد ماكرو ميزنيم در كشو كومبو باكس نام دو تيبل inوoutامده.

>> ورود یا خروج برای یک کالا یا یکی خروج بعدی ورود وبعدی خروج .... اگر در صفحه باشد - نا مشخص است <<

بطور مثال:
1-نام دو شيت را وارد و تعداد ست هايي كه ميخوايم كسر بشه وارد ميكنيم حالا در يوزرفورم در كشو كوبو باكس table.in انتخاب مشخصات نوشته و كليد ثبت ميزنيم.
مشخصات در table.in واردبه صورت بايگاني وارد بشه

>> تیبل ورود کدام است - نامشخص است <<
حالا در شيت 1111به تعداد عدد ستي كه وارد كرديم در ستون موجودي اضافه بشه.موجودي رديف 1بشه40.رديف دو8 و رديف سه 40 تا بشه.
>> در ریف 1 عدد 40 چکونه محاسبه شده است - عدد 8 چکونه محاسبه شده است ؟ <<

اين تغييرات براي شيت هايي كه اسمشون در انبار نام صفحه امده اعمال بشه.

<< این قسمت انجام میشود - مشکلی نیست >>
حالا اگه ما در كشو كوبو باكس table.out*زديم بستگي به نام صفحه و تعدا ست نوشته شده از موجودي كل رديف هاي شيت ها كسر كنه

<<>> کسر یا اضافه با فرمول در صفحه مورد نظر قابل انجام است در صورت انجام با وی بی قید شود <<>>

اطلاعات در تيبل ها بعد از اجرا هر ماكرو به صورت بايگاني پشت سر هم بياد و پاك نشه

---------- وقتی دیتا ثبت شود تا زمانی که شما پاک نکنید - پاک نمیشود -----------

لطفا پاسخ روشن با مثال روشن بدهید ارائه شود

[مائده]

با سلام
ما بي نهايت تعداد شيت داريم.هر شيتي شامل اطلاعات يك يكيج است.در شيت انبار ما نام بعضي از شيت ها را با تعداد كسر يا اضافه كردن از كل پكيج در ستون a وb وارد ميكنيم.
ميخوايم با زدن كليد ماكرو از برنامه بخوايم كه از هر نام شيتي كه اضافه كرديم به تعداد عدد وارد شده از كل موجودي هر رديف شيت هاي پكيج اضافه يا كسر كنه و يك سري اطلاعات شامل اين كسر كردن يا اضافه كردن با چه كسي و در چه تاريخي و شرحي در تيبل ها وارد بشه .(table.in براي اضافه شدن و table.put*براي كسر شدن)

به طور مثال:
در شيت انبار ستون aنام بعضي از شيت ها را وارد و در ستونb تعداد پكيج وارد ميكنيم.
ما ميخوايم از شيت1111 (2)تا پك كامل و شيت 1032(1) پك كامل كسر بشه
اين كسر شده با زدن كليد ماكرو و انتخاب table.out*از كشو كامبو باكس اجرا بشه.حالا ما يك سري اطلاعات در قسمت نام تاريخ و شرح وارد ميكنيم و كليد ثبت ميزنيم و يوزر فرم مي بنديم.تغييراتي كه اعمال ميشه:
1-در شيت 1111 از موجودي هر رديف پكيج به نسبت تعداد مصرفي كسر ميشه:؟
مثلا رديف 1 شيت1111 نام قطعه sd* براي ساخت پكيج تعداد مصرفي 10 تا.موجودي انبار 20 پس وقتي ما در شيت انبار برنامه اجرا و 2 تا كسر كرديم موجودي در شيت1111 رديف يك بشه(0).
اين تغييرات در كل شيت هايي كه نامش در شيت انبار امده در هر رديف اجرا بشه
و براي اضافه شدن در كامبو باكس table.in انتخاب ميكنيم همين تغييرات اعمال بشه ولي به موحودي ها اضافه بشه.
اميدوارم راهنمايي كامل بوده باشه.
ممنون

[مائده]

اساتيد محترم
اگه مشكلي در فايل پيوست ارسالي هست براي تغييرات موردي نيست.مهم خروجي كار كه وقتي نام بعضي از شيت ها را در شيت انبار وارد ميكنيم و تعداد كسري يا اضافي از پك را وارد ميكنيم به نسبت تعداد مصرفي از موجودي هر رديف كسر يا اضافه كنه و يكسري اطلاعات كه چه شخصي چه زماني و با شرحي در بخشي از شيت انبار به صورت بايگاني ذخيره بشه

ممنون اگه كسي كد اين برنامه برام اجرا كنه

[shamsololama]

با درود فراوان

برای این که محاسباتی که نیاز داری را متوجه بشوم قسمت به قسمت و با مثال توضیح دهید در خدمتون هستم
ببخشید اگر نیاز به توضیح بیشتر دارم تا مسئله را متوجه بشوم