لزهر مدلل قام بنشر نوفمبر 15, 2018 مشاركة قام بنشر نوفمبر 15, 2018 السلام عليكم أريد أن أحذف بيانات في جدول بشرط التاريخ , مثلا أريد حذف البيانات التي تاريخها تجاوز 45 يوما الملف في المرفقاتClasseur1.xlsx رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 15, 2018 مشاركة قام بنشر نوفمبر 15, 2018 السلام عليكم ورحمة اله استخدم هذا الكود Sub DelRows() Dim x As Integer, i As Long, y As Long y = Sheet1.Range("A" & Rows.Count).End(xlUp).Row For i = y To 2 Step -1 x = WorksheetFunction.Days360(Cells(i, "A"), Date) If x < 45 Then Cells(i, "A").EntireRow.Delete End If Next End Sub 2 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر نوفمبر 15, 2018 مشاركة قام بنشر نوفمبر 15, 2018 أحسنت استاذ ابراهيم بارك الله فيك رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر نوفمبر 18, 2018 الكاتب مشاركة قام بنشر نوفمبر 18, 2018 في ١٥/١١/٢٠١٨ at 21:25, ابراهيم الحداد said: السلام عليكم ورحمة اله استخدم هذا الكود Sub DelRows() Dim x As Integer, i As Long, y As Long y = Sheet1.Range("A" & Rows.Count).End(xlUp).Row For i = y To 2 Step -1 x = WorksheetFunction.Days360(Cells(i, "A"), Date) If x < 45 Then Cells(i, "A").EntireRow.Delete End If Next End Sub مشكور أخي إبراهيم هل هذا الكود أضعه في sheet1 أو thisWorkbook رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر نوفمبر 18, 2018 مشاركة قام بنشر نوفمبر 18, 2018 السلام عليكم ورحمة الله ضع الكود فى موديول عادى و خصص له زر فى الشيت الذى تريده حتى لو كانت اكتر من شيت فلكل شيت زر مخصص له رابط هذا التعليق شارك More sharing options...
لزهر مدلل قام بنشر نوفمبر 18, 2018 الكاتب مشاركة قام بنشر نوفمبر 18, 2018 بارك الله فيك أخي الكريم رابط هذا التعليق شارك 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.