کپی اتوماتیک اطاعات دو ستون از شیت ورودی به شیت موجودی (بدون تکرار)

**hadi1980** · 2019/02/13, 17:31

سلام
ميشه فايل بزاريد

**prince66** · 2019/02/14, 09:48

با سلام
دوست گرامی فایل رو ضمیمه کردم
ممنون میشم راهنمایی کنی که از چه راهی میشه اینکا ر رو کرد؟

فایل های پیوست شده

Inventory.xlsx (25.9 کیلو بایت, مشاهدات 19)

**hadi1980** · 2019/02/16, 14:04

سلام مجدد
کاري که ميخواهيد ميشه با ماکرونويسي انجام داد و البته هرکاري رو ميشه تو اکسل با برنامه نويسي انجام داد
راهکار ديگه هم شايد بشه براش پيدا کرد ولي بعدا تو شخصي‌سازي اون به مشکل ميخوريم
بهرحال
فايلتون رو با دقت ديدم
اول يه نکته بنظرم تو توضيحاتتون اشتباه بود و اينکه اونا بدون تکرار ثبت بشن البته يه جورايي درسته و يه جورايي غلطه
مثلا اگه تو انبار دو تا کالا با همه مشخصات ثابت وارد بشن بايد تعداد اونا هم جمع بشه در موجودي مثل کالاي با کد 2300651 در فايل خودتون که سه بار وارد شده و موجوديش شده 3 تا
لطفا دقيق جواب بديد چون کمي برنامه‌اش فرق ميکنه

**prince66** · 2019/02/16, 14:24

سلام دوست عزیز
یک سری توضیح درباره فایل می خواستم بدم
من می خوام با ورود Part No د CR این آیتم را مشخص کنم اگر این Part no با همین CR قبلا تو stock ثبت شده باشه لازم به تکرار نیست فقط موقعی در stock ثبت بشه که CR جدید براش ثبت بشه و یا کلا Part No جدیدی که قبلا تو stock ثبت نشده به موجودیم یا همون stock اضافه بشه.
فعلا با ستون تعداد کاری ندارم فقط می خوام هر آیتم با CR منحصر به فردش در stock ذخریه بشه فرمولی که برای تعداد نوشته شده قدیمه و اصلاح میکنم
با تشکر از توجه شما

**hadi1980** · 2019/02/16, 19:01

سلام مجدد
برنامه تون رو نوشتم
الان هر وقت شيت stock رو انتخاب کنيد برنامه اجرا ميشه
وظيفه برنامه هم اينه که بره تمام کالاهاي inbound رو بخونه و 14 ستون اطلاعات اون رو تو متغير inbound_data بنويسه (تکراري و غير تکراريها رو)
بعد تمام داده‌هاي شيت stock از رديف 2 تا 10000 رو پاک کنه
بعد بررسي کنه هر کدوم تکراري نيست رو تو شيت stock بنويسه هر ستون رو سر جاي خودش البته ستون 6 و 7 چون تو شيت inbound داده نداشتند رو خالي ميزاره
موفق باشيد
هادي

فایل های پیوست شده

Inventory2.rar (30.0 کیلو بایت, مشاهدات 19)

**prince66** · 2019/02/17, 09:20

سلام
تشکر بابت همه ی زحمت هایی که کشیدی

**hadi1980** · 2019/02/17, 10:24

سلامت باشيد
فقط يه نکته
تو پستها ديدم آقاي smartman با کوئري منيجر چه کارهاي جالبي انجام ميده
و فکر کنم با يک کوئري بتونه خيلي راحت اين کار شما رو هم انجام بده
اگه خواستين از ماکرو نويسي راحت بشين ميتونين از ايشون هم راهنمايي بگيرين
موفق باشيد
هادي

**prince66** · 2019/02/17, 10:25

سلام آقا هادی
فایل رو بررسی کردم و کاملا درست بود فقط توی قسمت recived استاک پارت نامبر رو نشون می داد که آدرس رو تغییر دادم و درست شد فقط یک راهنمایی ازت می خواستم من می خوام برای تعداد ورودی از sumif استفاده کنم (recived) به نظرت با توجه به تجربه ای که داری برای طولانی مدت و جلوگیری از اشتباه همین روش مناسب هست یا از کد vb استفاده کنم؟
ممنون میشم راهنمایی کنی

**hadi1980** · 2019/02/17, 10:44

سلام مجدد
کلا وقتي وارد VBA شديد بنظرم بهتره همه کارهاتون رو توي اون کدنويسي کنيد
مثلا يه زماني من داشتم از سورت اکسل تو VBA استفاده ميکردم ديدم خيلي زمان بره و وقتي کد الگوريتم مرتب کردن رو خودم تو برنامه نوشتم واقعا سرعت متحول شد
بنابراين پيشنهادم اينه که با چند تا if و جمع ساده، برنامه sumif رو خودتون تو VBA بنويسيد
موفق باشيد
هادي