Wael Hamed_1975 قام بنشر يونيو 24, 2020 مشاركة قام بنشر يونيو 24, 2020 برجاء المساعدة في طريق حذف الصفوف بعد اخر خلية نشطة وشكراً MY_Book3.xlsm رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 25, 2020 مشاركة قام بنشر يونيو 25, 2020 السلام عليكم علي فرض أن البيانات موجودة بالعمود (A) جرب هذا الكود Sub Macro1() [A9999].End(xlUp).Offset(1, 0).Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Rows.Delete Shift:=xlUp [B1].Select ActiveWorkbook.Save End Sub 4 رابط هذا التعليق شارك More sharing options...
Wael Hamed_1975 قام بنشر يونيو 29, 2020 الكاتب مشاركة قام بنشر يونيو 29, 2020 للأسف الكود لا يعمل صحيح يأهل الخير مساعدة. رابط هذا التعليق شارك More sharing options...
أفضل إجابة Wael Hamed_1975 قام بنشر يوليو 1, 2020 الكاتب أفضل إجابة مشاركة قام بنشر يوليو 1, 2020 تم إيجاد الكود Sub dd() Dim lr As Integer lr = [a1000].End(xlUp).Row + 1 Rows(lr & ":" & 26).Delete shift:=xlUp End Sub رابط هذا التعليق شارك 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.