أبوبسمله

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

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

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

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

اخى الكريم حدد الخلايا المراد عمل تنسيق لها ثم كليك يمين عليها وقم بتنسيق الخليه الى نص بالتوفيق

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

إتفضل إن شاء الله يكون طلبك انا اشتغلت على الملف القديم انسخ الاكواد انت على ملفك الجديد وعرفنى النتيجه بالتوفيق AE_SORT.rar

اى طلبات اخرى ولم يظهر معى خطأ وجربت تانى لم تظهر اخطاء معى ممكن توضح بشكل اخر عاوز مثلا خليه ايه وايه ظاهره وايه مخفى ومرتب على عمود الرقم السرى فقط علشان افهم ما تريد معلهش لانى على قد حالى بالتوفيق اخى

اتفضل اخى دى محاوله منى على قد حالى بالتوفيق A_SORT.rar

لانه مترتب على المجموعه وباعدين السرى وضحت الرؤيا ياخى ولا انت عاوز تعكس الترتيب وتخليه على السرى فقط

اخى الفاضل الاخ الكريم قام بعمل موديل ووضع الكود به ثم قام بانشاء زر امر وقام بتضمين الموديل له اضغط كليك يمين واختار كلمة تعيين ماكرو هتلاقى الموديل قدامك او اضغط على Alt+f8 هيفتحلك القائمه المقصوده بالتوفيق اخى واحنا بنتعلم معاكم برضه اخى

اخى الفاضل مهو مترتب وضح ما تريد لان المطلوب غير واضح بالنسبة لى بالتوفيق

اتفضل اخى الشرح + ملف الاكسيل + الصور اضغط للتحميل بالتوفيق اخى

جزاك الله كل خير جعله الله فى ميزان حسناتك

جزاك الله كل خير اخى وحبيبى ياسر قمت بعمل التنسيقات والمعادله بتاريخ الميلاد المطلوب ان يتم الترحيل كقيم مع المحافظه على الفورمات النص نص واهم خانه فى النص رقم التليفون حتى لا يتم ازالة الصفر على اليسار والتاريخ بتنسيقه حذف صف وترحيلة.rar

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

مساهمه منى لاثراء الموضوع طبعا الملفات ليست لى فبارك الله فى اصحابها وجزاهم الله كل خير اول ملف ده شرح لاخفاء وحماية المعادلات والتانى كود لحماية الخلايا التى بها معادلات فقط دون اخفائها ولكن لا يستطيع العبث بها بالتوفيق اخوانى Hemayaحماية معادلات الاكسيل من الضياع بدون قصد مع جعل بعض الخلايا قابلة للتعديل والكتابة في نفس الشيت.rar كود يقوم بالحماية التلقائية للخلايا التى بها معادلات دون تدخل من المستخدم.rar

ابو اسيل جزاك الله كل خير لما جيت اعمل ملف تنفيذى بالبورتبول ملقتش المارك متفعله هيا مش متفعله عليه ليه

ههههههههههههههه تمام بس انا جربت معظمهم شغال ياغالى يمكن من السهر هيست او يمكن لما وصلت هنجت حبيبى هجرب المعادله جزاك الله كل خير يا ابو البراء

اليوم والشهر بالهجرى تلقائى بالتوفيق اخوانى الاحباب التاريخ بالهجرى بشكل تلقائى.rar

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

صباح الخيرات جزاك الله خيرا ابو يوسف هو نفس الكود اللى ارفقته ولكن بدون استخدام الاداه وتعديل كما اشار اخى ابو البراء فى السطر الاخير فقط ليتم العكس فى عمود b WorkRng.Offset(, 1).Formula = Arr طبتم واهتديتم

بعد اذن اخى ياسر هل هذا ما تريد؟ Book11.zip

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

بصبح على الغالى هديه لحبيبى واخى الغالى ابو البراء احلى مجموعة اكواد * فى كود واحد لم استطع تجربته فايريت تقلى الطريقه انا كاتب عليه ملحوظه Sub Demo1() VA = [A1:A4].Value [B1:B4].Value = Application.Transpose(Array(VA(4, 1), VA(3, 1), VA(2, 1), VA(1, 1))) End Sub '============================================================================== Sub Demo2() [B1:B4].Value = Evaluate("{""" & [A4].Value & """;""" & [A3].Value & """;""" & [A2].Value & """;""" & [A1].Value & """}") End Sub '=============================================================================== Sub Test() Dim Arr, Temp, I As Long, P As Long Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim Temp(UBound(Arr) - 1) For I = UBound(Arr) To LBound(Arr) Step -1 Temp(P) = Arr(I, 1) P = P + 1 Next I Range("B1").Resize(UBound(Arr)).Value = Application.Transpose(Temp) End Sub '============================================================================== Sub test() With Range("a1", Range("a" & Rows.Count).End(xlUp)) .Offset(, 1).Value = Application.Index(.Value, Evaluate("if(row(" & .Address & "),large(row(" & .Address & "),row(1:" & .Rows.Count & ")))")) End With End Sub '================================================================================ 'ملحوظه الكود ده لم استطع تجربته فما ى طريقته B1: =OFFSET($A$1,COUNTA($A:$A)-ROW(),) Copy down '================================================================================ Public Sub InvertUsingArrayList() Dim objArrList As Object: Set objArrList = CreateObject("System.Collections.ArrayList") Dim reverseArr For i = 1 To Range("A" & Rows.Count).End(xlUp).Row objArrList.Add Range("A" & i).Value Next i objArrList.Reverse reverseArr = objArrList.ToArray Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value = Application.Transpose(reverseArr) End Sub '================================================================================ Sub test() Dim a, i As Long, temp With Range("a1", Range("a" & Rows.Count).End(xlUp)) a = .Value For i = 1 To UBound(a, 1) \ 2 temp = a(UBound(a, 1) - i + 1, 1) a(UBound(a, 1) - i + 1, 1) = a(i, 1): a(i, 1) = temp Next .Offset(, 1).Value = a End With End Sub '================================================================================ جزاك الله كل خير يا ابوالبراء