پاسخ داده شد
0
0

با سلام و ارادت

من سوالم رو در ضمیمه گذاشتم و ممنون میشم اگه پاسخ بدید.

بارگزاری فایل
  • ali maghsodi
    با سلام. از زحمات شما بی نهایت سپاسگزارم
  • شما باید برای ارسال دیدگاه شوید
پاسخ عالی
1
0

سلام علی

بهتره اول فرمت ستون مربوط به کد کالا را از حالت text خارج و به فرمت عدد تبدیل کنید. در این صورت اعداد مثبت به معنای ورود کالا و اعداد منفی به معنای خروج کالا خواهد بود. در ادامه هم با اجرای کد ذیل کالاهایی که پس از ورود از انبار خارج شده اند از لیست حذف می شوند:

======================================

Sub Remove_Row()

Dim R, Prd_Dbl, Prd_Code As Double

On Error Resume Next
For R = 2 To 100000

Prd_Dbl = 0
Prd_Code = Cells(R, 1)
If Prd_Code = 0 Then Exit For
Prd_Code = -Prd_Code
Prd_Dbl = Application.WorksheetFunction.Match(Prd_Code,Range(Cells(R + 1, 1), Cells(100000, 1)), 0)

If Prd_Dbl > 0 Then

Range(Cells(R, 1), Cells(R, 4)).Delete xlUp
Range(Cells(Prd_Dbl + R – 1, 1), Cells(Prd_Dbl + R – 1, 4)).Delete xlUp
R = R – 1

End If

Next R

End Sub

=======================================================

  • شما باید برای ارسال دیدگاه شوید
نمایش 1 نتیجه
پاسخ شما
نویسنده مهمان
اگر حساب کاربری دارید . در هر صورت می توانید به عنوان کاربر مهمان سوال یا پاسخ خود را ارسال نمایید
نام*
ایمیل*
بارگزاری فایل
نام فایل اندازه
در حال حاضر هیچ فایلی بارگذاری نشده است.
حداکثر تعداد فایل ها 4، حداکثر اندازه فایل 2MB.
فرمت های فایل پشتیبانی شده: txt pdf zip jpg png jpeg xlsx xlsm
keyboard_arrow_up