برجاء المساعدة فى كتابة عنوان العمود وترتيبه ولكن بشرط

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

سلام الله عليكم ورحمته وبركاته

مرفق ملف موضح به المطلوب

وجزاكم الله كل خير

عنوان العمود وترتيبه.rar

[عبدالله المجرب]

السلام عليكم

اخي فضل

جرب المرفق

ستقوم بتضليل العمود الذي تريد حت اخر رقم ثم اضغط الزر

Sub Abu_Ahmed_Srt()

On Error Resume Next

x = Selection.Column

  Selection.Sort Key1:=Cells(2, x), Order1:=xlAscending, Header:=xlGuess, _

		OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

		DataOption1:=xlSortNormal

Cells(21, 2) = Cells(1, x)

Cells(21, 3) = x - 1

End Sub

عنوان العمود وترتيبه.rar

[فضل حسين]

المايسترو

اقول ايه غير انك المايسترو حل ولا فى الخيال ومفيش احسن من كده . الف شكر لك يامايسترو على هذا الحل الرائع كل الحب والاخلاص والامنيات الجميلة نحملها لشخصكم الكريم المعطاء .

وفى انتظار حلول رائعة مثل حلكم بالمعادلات .