حذف بيانات الموردين ذوي الأرصدة الصفرية

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أساتذتي الأفاضل حفظكم الله

المطلوب كود يقوم بمسح بيانات الموردين كاملة الذين ارصدتهم صفرية فقط مع الأبقاء على الاخرين

استناداً على الرصيد في العمود L

على ان يغطي الكود حتى السطر ستون الف

جزاكم الله كل خير

أبو أنس حاجب

Suppliers2012.rar

[الـعيدروس]

السلام عليكم

تفضل

Sub Ali_Dle()

Dim L_R&, I%

Dim II As Variant

With Application

  .ScreenUpdating = False

   .EnableEvents = False

   With Sheet1

	 .Unprotect

	 L_R = .Cells(Rows.Count, 3).End(xlUp).Row

    For II = L_R To 6 Step -1

	  If .Range("L" & II).Value = 0 Then .Rows(II).DELETE: I = I + 1

    Next II

	    MsgBox " ثم حـذف " & I & " : سطـر حسب الشـرط ", vbInformation

    End With

   .ScreenUpdating = True

.EnableEvents = True

End With

End Sub

تم تعديل سبتمبر 19, 2012 بواسطه عباد

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل عباد (أبا نصار) حفظكم الله

أشكر لك تفضلك وتكرمك بالرد عليّ.

كان مقصدي من الكود ان يقوم بحذف بيانات الموردين الذين أرصدتهم صفرية فقط مع الأبقاء على جميع البيانات الخاصة بالأخرين على ماأعتقد أن ما قمت به هو أستخلاص الارصدة غير الصفرية مع حذف جميع البيانات وهو ما لاأريده.

بارك الله بك وفيك ووسع رزقك وزادك علماً على علم ورضي عنك ربي ونور بصيرتك.

تقبل فائق الشكر والتقدير والأحترام.

أبو أنس ناصر حاجب

تم تعديل سبتمبر 19, 2012 بواسطه أبو أنس حاجب

[الـعيدروس]

اعطيني مثال أين من الموردين يعتبر

رصيده صفري

جرب المرفق

وهل المفلتر هم الموردين المطلوب حذفهم

Suppliers2012_A.rar

تم تعديل سبتمبر 19, 2012 بواسطه عباد

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل العيدروس حفظكم الله

مرفق صورة تمثل ما أريد حذفه وهي باللون الأصفر

فيتم الحذف للبيانات التي تخص نفس الأسم أعتماداً على العمود C

الشكل المطلوب.bmp

[طارق محمود]

السلام عليكم

بعد إذن أستاذنا / أبا نصار

تفضل أخي أبا أنس

جرب المرفق

Suppliers2012_T.rar

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل طارق محمود حفظكم الله

جزاك الله كل خير وبارك الله بك وفيك.

جاري التجربة وللوهلة الأولى فهو يحقق المطلوب.

أبو أنس ناصر حاجب