سليم حاصبيا

جرب هذا الشيء EMP1 SALIM.rar

جرب هذا الملف مطلوب تصفية مع ترحيل بيانات مع دمج البيانات macro.rar

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

في الصفحة 1 غامود B استعمل هذه المعادلة (تحويل النص الى ارقام) و لم افهم ماذا تريد بعد ذلك =RIGHT(A2,5)*1 في الصفحة 1 غامود B استعمل هذه المعادلة (تحويل النص الى ارقام) و لم افهم ماذا تريد بعد ذلك =RIGHT(A2,5)*1

بالنسبة للمعادلة استبدل الفاصلة بقاصلة منقوطة اضف هذا السطر للكود مباشرة بعد السطر الثامن (اي ليصبح هو السطر التاسع) Target.Offset(0, 8).NumberFormat = ";;;"

انسخ هذه المعادلة الى الخلية G3 , و اسحبها الى H3 ثم نزولاُ =LEFT(I3,FIND("/",I3,7))&RIGHT(I3,2)*1-10 بالنسبة الى تعديل الكود اليك الكود مغدلاً صغه في حدث الصفحة الثانية Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub On Error GoTo 1 If Target.Columns < 3 And Target.Offset(0, 8) <> "" Then If Target.Offset(0, 8) <> "" Then ad = Target.Offset(0, 8).Address(1, 0) y = "Left(" & ad & "," & 4 & ")+" & 1 & " & " & "RIGHT(" & ad & ",FIND(""*"",SUBSTITUTE(" & ad & ",""/"",""*"",1),1)+1" & ")" Target = Evaluate(y) End If End If 1: End Sub

يمكن ان يكون لمطلوب Horaire.rar

أظن هذا المطلوب auto_fit Higri.rar

جرب هذه المعادلة المعرفة UDF_Higri.rar

لعله المطلوب salim 1.rar

ماذا تعني بالصفوف الضفرية هل كل الاعمدة في نفس الضف ضفر ام بعضها

جرب هذا الملف ربما كان المطلوب Yelow SALIM.rar

جرب هذا الملف (يجب كتابة التاريخ هكذا) السنة (4 حروف) مثلاً 1438 الشهر (حرفان ) مثلاً 02 او 10 اليوم (حرفان )مثلاً 03 أو 13 1438/03/02 hIGRI.rar

جرب هذه المغادلة في الخلية A2 واسحب نزولاً =IF(OR(السجل!$A2<>"",السجل!$B2<>"",السجل!$C2<>""),السجل!$C2&" / "&السجل!$B2&" / "&السجل!$A2,"")

ارفق النتيجة التي تتوقغها من المعادلات

لا حاجة للكود هنا المعادلة تعطينا الترقيم الصحيح اذا كانت الخلية e5 غير فارغة و الكود موجود في الصف المطلوب جرب!!! الترقيم التلقائي 1.rar

ارفغ الملف للمعالجة

الخلايا H6 & G6 فارغة لذلك لم يطهر الترقيم اذا لم تعمل مغك المعادلة استبدل الفاصلة بقاصلة منقوطة (انظر الى المرفق) SALIM الترقيم التلقائي.rar

استبدل الفاصلة بقاصلة منقوطة في المعادلة

ريادة غي اثراء الموضوع هذه معادلة اخرى لا تتقيد بالخلية F6 بل تستطيع وضعها اينما تريد =IF(OR($H6="",$G6=""),"",TEXT(ROWS($A$1:A1),"0000"))

جرب هذا الملف k1 salim macro.rar

تلبية لطلب اخي وصديقي ابو البراء تم والحمدلله عمل المطلوب بواسطة الكود انطر الى المرفق صفحة Macro_Sheet Sort_by_text_len advanced Macro.rar

كل الحق معك اخي الحبيب ياسر (غلطة مطبعية ليس الّا) زيادة في اثراء الموضوع هذا الملف Sort_by_text_len advanced.rar

اخي الحبيب ياسر كل الشكر والتقدير غلى هذا الاطراء مما جعلني اعدّل على المعادلة في العامود D2 (لتتجاوز الفراغات الزائدة في النص )الى هذه المعادلة (طبغاً لازم هنا Crt+Shift + Enter) والسحب نزولاً =TRIM(IF(ROWS($B$1:B1)>COUNTA($A$2:$A$100),"",INDEX($A$2:$A$100,MATCH(B2,$C$2:$C$100,0))))

صباح الخير اخي ابو البراء توصلت الى احد الحلول (دون الفراغات) عسى ان ينال الاعجاب (ممكن الاستعانة بالدالة التالية في العامود C -بدل الموجودة) =IF(A2<>"",LEN(TRIM(A2))+ROW(A1)/1000,"") Sort_by_text_len.rar