۩◊۩ أبو حنين ۩◊۩ قام بنشر أكتوبر 18, 2016 مشاركة قام بنشر أكتوبر 18, 2016 السلام عليكم ارجو المساعده عند استخدام الكود المرفق كود ترتيب .. يتم الوقوف على اخر خليه بها بيانات فى العمود A بدلا من الوقوف على الخليه A4 Sub SortData() Dim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row Range("A4:l" & LR).Sort Key1:=Range("B1:B" & LR), Order1:=xlAscending, Key2:=Range("L4:L" & LR), Order2:=xlDescending, Header:=xlYes Sheets("عام").Select ActiveWindow.SmallScroll Down:=-18 Range("A4").Select End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 18, 2016 مشاركة قام بنشر أكتوبر 18, 2016 وعليكم السلام جرب استبدال السطر الأخير Range("A4").Select بهذا السطر Application.GoTo Range("A4"),True 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر أكتوبر 20, 2016 الكاتب مشاركة قام بنشر أكتوبر 20, 2016 السلام عليكم اخى ياسر تم المطلوب تتبعت بعض اعمالك فوجدت الحل Selection.End(xlDown).Sele جزاك الله خير 1 رابط هذا التعليق شارك 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.