Ali Mohamed Ali

وهو ده بالفعل الموجود بالملف

يمكنك وضع السطر الأول في بداية الكود الذى يسبب اهتزاز الشاشة والسطر الأخر في نهاية نفس الكود

تفضل لك ما طلبت عدد الأيام المتبقية على المناسبات.xlsm

تفضل اخى الكريم بنفس معادلة الأستاذ إبراهيم بعد تعديل بسيط جدا =IF(C2="","",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" AC"," ابواب ",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" CH","كابينات",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" YK","سطح ","متفرقة")))) استخراج الصنف.xlsm

السلام عليكم -لو كنت تقصد اهتزاز الشاشة يمكنك ادخال هذا السطر في الكود لمنع اهتزاز الشاشة Application.ScreenUpdating = False وهذا السطر الأخر للرجوع للحالة الأولى للملف Application.ScreenUpdating = true على الرغم بعد ذلك عند رفع اى استفسار او مشاركة فلابد من رفع الملف لتوفير الوقت في المساعدة

رائع أستاذ محمد ,التجربة تمام ورائعة وناجحة بكل المقاييس ففعلاً تحققت فيها خاصية التعرف على كل من قام بتحميل الملف بالإسم , ووجود ونزول الإصدار الثانى من الملف في نفس صفحة الإصدار الأول مبروك وفى تقدم ونجاح دائم ان شاء الله والإرتقاء بمنتدانا لأعلى الدرجات وأعلى المراتب

بالفعل أستاذ احمد لو حضرتك لاحظت تم دمج هذه المشاركات بالفعل من قبل هنا لأنهما نفس الطلب ونفس الموضوع

وعليكم السلام-تفضل مشكلة الحضور قبل الموعد في الاكسيل.xlsm

الملف موجود بالفعل هنا ويمكنك تحميله من المنتدى في نفس هذه الصفحة تفضل 2014الفرائض والوصــايا بالأكســل.xlsx

وعليكم السلام-يمكنك تجربة ورؤية هذا الرابط https://www.officena.net/ib/topic/82235-لون-الخط-في-صندوق-الرسائل-msgbox/

أحسنت استاذنا الكبير بارك الله فيك وزادك الله من فضله

وعليكم السلام-جرب هذا الرابط به تقريبا نفس موضوعك من أعمال الأستاذ الكبير سليم حاصبيا https://www.officena.net/ib/topic/92360-طلب-اضافة-ترحيل-بيانات-بملف-اكسل/

وعليكم السلام -يمكنك وضع واستخدام هذه المعادلة في الخلية N2 =IF(AND($O$2>=$L$2,$P$2>=$L$2),1,"")

وعليكم السلام-تفضل برنامج الأرشيف.xlsx

تفضل عندما تريد ترتيباً تصاعدياً تقوم بكتابة رقم 1 فى الرسالة الحوارية و -1 عندما تريد ترتيباً تنازلياً الوزن.xlsm

لو ممكن رفع الملف للتجربة

عليك بفتح مديول جديد ووضع هذا الكود به وربطه بزر Sub xlSortSheets_Test() Dim strWhich As String Dim Which As Integer strWhich = InputBox("لترتيب أسماء الأوراق تصاعدياً أدخل الرقم 1 " & vbNewLine & "لترتيب أسماء الأوراق تنازلياً أدخل الرقم -1 ", "تحديد طبيعة ترتيب أسماء الأوراق", "1") If strWhich = vbNullString Then Exit Sub If strWhich = "-1" Or strWhich = "1" Then Which = strWhich Call xlSortSheets(Which) Exit Sub End If MsgBox "لم تدخل الأرقام المسموح بها لعمل الترتيب" & vbCrLf & "لم يتم ترتيب الأوراق", vbOKOnly End Sub Sub xlSortSheets(Optional Which As Integer = 1) Dim I As Integer Dim J As Integer Dim SheetNames() As String Dim temp As String ReDim SheetNames(Sheets.Count) For I = 1 To Sheets.Count SheetNames(I) = Sheets(I).Name Next I For I = 1 To Sheets.Count - 1 For J = I + 1 To Sheets.Count If (Which = -1 And SheetNames(I) < SheetNames(J)) _ Or _ (Which = 1 And SheetNames(I) > SheetNames(J)) Then temp = SheetNames(I) SheetNames(I) = SheetNames(J) SheetNames(J) = temp End If Next J Next I temp = Sheets(Sheets.Count).Name For I = Sheets.Count To 1 Step -1 Sheets(SheetNames(I)).Select Sheets(SheetNames(I)).Move Before:=Sheets(temp) temp = SheetNames(I) Next I Sheet1.Select End Sub

وعليكم السلام -بارك الله فيك أستاذ عبد اللطيف بالتأكيد هناك ترتيب وكما تشاء سواء تصاعدياً أو تنازلياً -كما بهذا الرابط https://www.officena.net/ib/topic/33468-هل-يمكن-ترتيب-اسماء-شيت-الاكسيل-ابجدي/ وهذا هو الملف ترتيب الأوراق حسب أسمائها.xls

وعليكم السلام وهذا مخزاه ان المكتبة المسئولة عن هذا التقويم غير متوفرة لديك فلابد من العمل على تنزيلها

تفضل لك ما طلبت-فانك لم توضح هذا من البداية Fuddruckers OD Jun 2019.xlsx

وعليكم السلام-تفضل قيمة المبيعات 1.xlsm

تفضل كان عليك من البداية استخدام خاصية البحث في المنتدى فهناك موضوع كبير للعلامة الراحل عماد الدين الحسامى يخص طلبك ,موجود على كل هذه الروابط https://www.officena.net/ib/topic/63602-أعمال-العلامه-القدير-الراحل-عماد-الدين-الحسامى/?tab=comments#comment-413052 https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/?tab=comments#comment-260297 https://www.officena.net/ib/topic/56966-اريد-عمل-شجرة-حسابات-بالtree-view-فى-الاكسيل/?tab=comments#comment-361556 وأيضا هذا هو البرنامج شجرة الحسابات.xls

وعليكم السلام-تفضل Fuddruckers OD Jun 2019.xlsx

لا يمكن العمل على التخمين عليك برفع الملف وشرح المطلوب عليه بكل دقة

تفضل تم العمل بمعادلات المصفوفة -فلا يمكن الحل بمعادلة Vlookup نهائياً معادلة اظهار نتائج بحث.xlsx