لزهر مدلل قام بنشر أكتوبر 16, 2023 مشاركة قام بنشر أكتوبر 16, 2023 السلام عليكم لدي كود vb يعمل على حذف السطور التي يتجاوز التاريح في العمود D 45 يوما و أريد تعديله بإضافة شرط آخر و هو أن يكون العمود H فارغا حتى يقوم بحذف السطر و شكرا. Sub DelRows() Dim x As Integer, I As Long, y As Long y = Feuil1.Range("D" & Rows.Count).End(xlUp).Row For I = y To 2 Step -1 x = WorksheetFunction.Days360(Cells(I, "D"), Date) If x > 45 Then Cells(I, "A").EntireRow.Delete End If Next End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر أكتوبر 17, 2023 أفضل إجابة مشاركة قام بنشر أكتوبر 17, 2023 If x > 45 And cells(I,"H")= "" Then 2 رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر أكتوبر 17, 2023 الكاتب مشاركة قام بنشر أكتوبر 17, 2023 بارك الله فيك أخي الكريم رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أكتوبر 17, 2023 مشاركة قام بنشر أكتوبر 17, 2023 🙏 رابط هذا التعليق شارك 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.