[حل شده] ثبت سوابق فایل

[SIGNAL]

با سلام خدمت دوستان عزیز
این یک فایل اموال سازمانی با بیست کالا می باشد که هر کالا سریال مخصوص به خود دارد.
همه کالاها به افراد مختلف باید تحویل داده شوند و تاریخ تحویل نیز درج شود و بعد از مدت زمانی ممکن است کالا برگشت داده شود و این کالا به نفر دیگری دوباره تحویل داده شود که این رفت و برگشت برای یک کالا ممکن است چندین بار تکرار شود.
نیاز دارم که سوابق بالای 5 روز طبق جدول شیت سوابق نیز نگهداری شود.
نکته درج اطلاعات در اطلاعات فعلی میسر است که فقط آخرین تحویل و کاربر را نشان می دهد.
لطفأ در صورت امکان راهنمای فرمایید.

[iranweld]

سلام

برای ردیف اول کدنویسی انجام شد بقیه اش با شما
در این حالت آخرین سلول پر ردیف سوم شیت سوابق برای کد 20001 بدست آمده

CountA(Sheet2.Range("3:3")) 

و سپس دیتای کد 20001 از شیت اول در سلولهای بعدی ذخیره میگردد

Sub TEST2()

K = Application.WorksheetFunction.CountA(Sheet2.Range("3:3")) + 1
Sheet2.Cells(3, K).Value = Sheet1.Range("B2").Value
Sheet2.Cells(3, K + 1).Value = Sheet1.Range("C2").Value
Sheet2.Cells(3, K + 2).Value = Sheet1.Range("D2").Value


End Sub 

[SIGNAL]

عالی بود
تشکر

[iranweld]

فایل اصلاح گردید مجددا دانلود بفرمایید