پرسش مغایرت گیری بر اساس کد پرسنل

[elam]

با سلام

یه فایل دارم ( به پیوست ) که دو تا شیت اطلاعات داره تو شیت old اطلاعات ماه قبل موجوده و تو شیت new اطلاعات این ماه. میخوام تو سط VBA کد بنویسم که بیاد از شیت جدید اولین کد پرسنلی را در نظر بگیره و مبالغ ستونهای مختلف را با شیت قدیمی مقایسه کنه و اگه مغایر بود تو شیت سوم ( مغایرت ) لیست کنه
مثلا اگه تو شیت جدید و برای کد 102 تو ستون مبلغ 3 ، عدد 1400 ثبت شده بود و در شیت قدیم تو همون ستون و برای همون کد پرسنلی عدد دیگه ای نوشته شده بود لیست کنه و کلا برای همه کد های پرسنلی این اتفاق بیفته
ممنون

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید

برای راحتی کار کل دیتا در یک شیت وارد گردید و از ابتدا یک لیست بدون تکرار از کلیه کدها تهیه گردید و با دستور vlookup آیتم هر کد بصورت تفریق محاسبه گردید در صورت صفر بودن یعنی عدم مغایرت و در صورتیکه مخالف صفر باشد یعنی دارای مغایرت میباشد

=IF(VLOOKUP($Q2,Table1[#All],3,FALSE)-VLOOKUP($Q2,Table24[#All],3,FALSE)<>0,"مغایرت","") 

[elam]

ممنون استاد
امکانش هست با کد vba و با همون شرایط قبلی حل بشه
سپاس