اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حذف صف بشروط محددة


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

ما قدرت افهم المشكله مرفق الملف 

‫حذف صفوف بشروووط.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

الكود المطلوب

Option Explicit

Sub del_rows()
Dim My_sh As Worksheet
Dim Tabl As Range
Dim Rg_Del As Range
Dim MotB, Motc, i%
Set My_sh = Sheets("Data")
MotB = My_sh.Range("B2")
Motc = My_sh.Range("C2")
Set Tabl = My_sh.Range("G3", Range("K2").End(4))
If Tabl.Rows.Count > 10000 Then Exit Sub
 For i = 1 To Tabl.Rows.Count
     If Tabl.Cells(i, 1) = MotB _
           And Tabl.Cells(i, 2) = Motc Then
       If Rg_Del Is Nothing Then
         Set Rg_Del = Tabl.Cells(i, 1).Resize(, 5)
       Else
         Set Rg_Del = _
         Union(Rg_Del, Tabl.Cells(i, 1).Resize(, 5))
       End If
    
     End If
 Next i
 If Not Rg_Del Is Nothing Then
   Rg_Del.Delete
 End If

End Sub

Fouri.xlsm

  • Like 3
رابط هذا التعليق
شارك

اشكرك اخي سليم على تفاعلك والرد على طلبي وفعلا كود رائع .

بالرغم انني كنت اود حذف البيانات فقط وليس حذف الصف انما يبقى عمل رائع اقدر لكم ذلك 

تحياتي لكم 🌺

 

رابط هذا التعليق
شارك

استاذي سليم 

في موضوع حذف الصفوف في  حالة كان الجدول في شيت اخرى هل ممكن عمل تعديل على الكود السابق اذا تكرمت لانني اضفت ورقه1 للملف ونسخت الجدول الى نفس المدى  وجربت  اضيف الجملة  بعد تعريفات المتغيرات :

 select. ("ورقة1") sheets

ولكن لم يعمل الكود.

مع خالص تقديري لشخصكم النبيل .

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information