برجاء المساعدة بكود لترتيب الاعمدة تصاعديا فى ورقتين مختلفتين فى نفس الوقت

[فضل حسين]

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

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

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

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

ترتيب الاعمدة فى ورقتين مختلفتين.rar

[محمد يحياوي]

اخي فضل جرب هذا الكود

Sub Macro1()

    Dim WS  As Worksheet


    For Each WS In ActiveWorkbook.Worksheets

    ActiveWorkbook.Worksheets(WS.Name).Sort.SortFields.Clear

    ActiveWorkbook.Worksheets(WS.Name).Sort.SortFields.Add Key:=Range("B2"), _

	    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets(WS.Name).Sort

	    .SetRange Range("B2:B11")

	    .Apply

    End With

    Next

End Sub

[فضل حسين]

استاذى الفاضل / يحياوى

الف شكر لاهتمامك وسعيد جدا بمشاركتك بارك الله فيك وجزاك الله كل خير

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

اشكر سيادتكم للمرة الثانية وفى انتظار ردكم الكريم

[فضل حسين]

فى انتظار حلولكم وردكم الكريم .............. وشكرا

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

السلام عليكم

اخي فضل جرب هذا الكود

ستقوم باختيار المادة التي تريد عمل فرز لها ثم تضغط الزر وسيتم ان شاء الله الترتيب في الورقتين

Sub Abu_Ahmed_Srt()

On Error Resume Next

Application.ScreenUpdating = False

x = Selection.Column

For i = 1 To 2

Sheets(i).Select

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

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

				DataOption1:=xlSortNormal

Next

ورقة1.Select

End Sub

[abouelhassan]

اشرقت الانوار استاذنا

حبى وتقديرى

[فضل حسين]

المايسترو

باالله الحمد لله انك رجعت لنا بالسلامة الف حمد وشكر لك يارب . والف مليون سلامة لك يامايسترو .

الله هو وحده الذى يعلم كم كنت متأثرا بما اصابك وبمدى حزنى لما اصابك ودعوت الله ان يشفيك ويعيدك لنا سالما غانما .

الحمد والشكر لله للرجوعك بالسلامة لنا يامايسترو والله مش قادر اوصفلك الفرحة اللى انا فيها برجوعك بالسلام ومشاركتك دى .

وعايز اقولك حاجة يعلمها الله تمنيت ان تكون انت اول واحد يرد على مشاركتى بعد موضوع الاصابة والحمد للة والشكر لله ربنا حقق امنيتى ودعواتى .

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

يارب ياكريم ياشافى ياعافى عافى وشافى حبيبنا واستاذنا وروحنا ومعلمنا الجليل عبدالله المجرب .

مايسترو

ربنا يباركلك ويخليك ويعافيك ويكرمك ويعطيك كل ماتتمناه فانت شخصية معطائة .

عايز اقعد اكتب كلام كثير فمشاركتك اسعدتنى سعادة غير عادية وغمرتنى بفرحة غير عادية ومش عارف اقولك ايه غير اننى سعيد جدا بعودتك والاطمئنان عليك

فنحن بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك

يامايستـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرو

تم تعديل ديسمبر 18, 2011 بواسطه فضل 1

[abouelhassan]

المايسترو

باالله الحمد لله انك رجعت لنا بالسلامة الف حمد وشكر لك يارب . والف مليون سلامة لك يامايسترو .

الله هو وحده الذى يعلم كم كنت متأثرا بما اصابك وبمدى حزنى لما اصابك ودعوت الله ان يشفيك ويعيدك لنا سالما غانما .

الحمد والشكر لله للرجوعك بالسلامة لنا يامايسترو والله مش قادر اوصفلك الفرحة اللى انا فيها برجوعك بالسلام ومشاركتك دى .

وعايز اقولك حاجة يعلمها الله تمنيت ان تكون انت اول واحد يرد على مشاركتى بعد موضوع الاصابة والحمد للة والشكر لله ربنا حقق امنيتى ودعواتى .

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

يارب ياكريم ياشافى ياعافى عافى وشافى حبيبنا واستاذنا وروحنا ومعلمنا الجليل عبدالله المجرب .

مايسترو

ربنا يباركلك ويخليك ويعافيك ويكرمك ويعطيك كل ماتتمناه فانت شخصية معطائة .

عايز اقعد اكتب كلام كثير فمشاركتك اسعدتنى سعادة غير عادية وغمرتنى بفرحة غير عادية ومش عارف اقولك ايه غير اننى سعيد جدا بعودتك والاطمئنان عليك

فنحن بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك بنحبك

يامايستـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرو

والله فعلا

احترام من كل قلبى

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

اخي فضل

غمرتني بكرم اخلاقك فلم اجد من الكلمات ما تعبر عن شكري وامتناني