احمد الغوري قام بنشر مارس 5, 2021 مشاركة قام بنشر مارس 5, 2021 اريد منكم هذه الخدمه كنت عملت كود يحذف بيانات صف بشرطين اسم الصنف والتاريخ ولان اسماء الاصناف متكرره بتواريخ متعدده يقوم الكود بحذف بيانات الصنف المحدد لكل التواريخ الذي ورد فيه . ما قدرت افهم المشكله مرفق الملف حذف صفوف بشروووط.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مارس 6, 2021 أفضل إجابة مشاركة قام بنشر مارس 6, 2021 الكود المطلوب 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 3 رابط هذا التعليق شارك More sharing options...
احمد الغوري قام بنشر مارس 6, 2021 الكاتب مشاركة قام بنشر مارس 6, 2021 اشكرك اخي سليم على تفاعلك والرد على طلبي وفعلا كود رائع . بالرغم انني كنت اود حذف البيانات فقط وليس حذف الصف انما يبقى عمل رائع اقدر لكم ذلك تحياتي لكم 🌺 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 6, 2021 مشاركة قام بنشر مارس 6, 2021 حذف البيانات فقط وليس حذف الصف الكود يفعل هذا الشيء (يمكنك التأكد بكناية اي شيء /خارج الجدول/ في صف تريد حذف بياناته ) 1 رابط هذا التعليق شارك More sharing options...
احمد الغوري قام بنشر مارس 9, 2021 الكاتب مشاركة قام بنشر مارس 9, 2021 استاذي سليم في موضوع حذف الصفوف في حالة كان الجدول في شيت اخرى هل ممكن عمل تعديل على الكود السابق اذا تكرمت لانني اضفت ورقه1 للملف ونسخت الجدول الى نفس المدى وجربت اضيف الجملة بعد تعريفات المتغيرات : select. ("ورقة1") sheets ولكن لم يعمل الكود. مع خالص تقديري لشخصكم النبيل . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.