ترتيب ابجدي

[مهند الزيدي]

السلام عليكم ... ممكن عمل المطلوب داخل الملف المرفق

ترتيب أبجدي اوتماتيكي.rar

[ياسر خليل أبو البراء]

أخي الكريم

بالنسبة لكود الترتيب فهذا أمر بسيط .. ما الداعي لوضع الكود في حدث ورقة العمل ؟؟؟

أفضل أن يكون الكود مستقل أي يتم استدعئه عند الحاجة ...

في انتظار رأيك

 

[مهند الزيدي]

أخي العزيز "ياسر " أشكر لك دائما النصح والإجابة الشافية .. في إنتظار الحل الذي تراه مناسبا .. مع تقديري

[ياسر خليل أبو البراء]

أخي الكريم مهند

جرب الكود التالي عله يفي بالغرض - مع العلم أنه تم تقديم نفس الكود تقريباً في موضوعك السابق

على هذا الرابط

من هنا

Sub SortData()
    Dim WS As Worksheet
    Dim LR As Long
    Set WS = Sheets("Sheet1")
    
    With WS
        LR = .Range("B" & Rows.Count).End(xlUp).Row - 1
        .Range("B1:D" & LR).Sort Key1:=.Range("C1:C" & LR), Order1:=xlAscending, Header:=xlYes
    End With
End Sub

 

 

Sorting.rar

[محمد حسن المحمد]

1 ساعه مضت, مهند الزيدي said:

السلام عليكم ... ممكن عمل المطلوب داخل الملف المرفق

ترتيب أبجدي اوتماتيكي.rar

 

تم تعديل ديسمبر 24, 2015 بواسطه محمد حسن المحمد

[مهند الزيدي]

الشكر لله على وجود شخص مثلك قل مثيله في هذه الدنيا ... وفقك الله لكل خير .. 

لدي بعض المعضلات في موضوع الاكسل ولم أصل لها لحل وأرجو مساعدتي إن امكن

[ياسر خليل أبو البراء]

أخي الكريم مهند

المنتدى مفتوح 24 ساعة ...يمكنك البدء في حل مشكلاتك ولكن نصيحة مني حاول أن تركز على مشكلة واحدة في كل مرة حتى اذا انتهيت منها يمكنك الانتقال إلى مشكلة أخرى

وإن شاء الله تجد المساعدة من إخوانك وأحبابك بالمنتدى

[زياد عبد الجليل]

استاذ ياسر اثراءا للموضوع  اذا امكن كيف يمكن ترتيب ابجدي لاكثر من ورقة مثلا 10 صفحات و اردنا عمل زر لترتيب ابجدي لمحتوى كل الصفحات  ما العمل هل نستبدل 

Sheets("Sheet1")

ب وورك بوك والله لا اعلم ارجو تعليمنا انا عندي زر ارتب قائمة ترتيب ابجدي من b9 حتى i40 بدلالة c9 واليكم الكود التالي 

'Sélection de la plage à trier
Range("b9:i40").Select
'Lancement du tri, basé sur les données de la colonne A en ordre croissant
Selection.Sort Key1:=Range("c9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
TextChange
End Sub

كما اني جربت و ضع الكود التالي قبل ادراج الكود السابق و لكن لم يعمل 

For sh = 1 To 10
  Sheets(sh).Range("b9:b48").select
Next

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

تم تعديل سبتمبر 4, 2016 بواسطه زياد777

[ياسر خليل أبو البراء]

الحل أن تقوم بعمل حلقة تكرارية لأوراق العمل الـ 10 وتضع الكود مع تغييرات في الكود ليعمل مع كل ورقة عمل ...

الأفضل طرح موضوع جديد مستقل لأن الطلبات في المشاركات الفرعية لا يلتفت إليها ،مع إرفاق ملف للتوضيح التام