نجوم المشاركات

اساتذتى الافاضل الاخ والاستاذ/ محمد حسن المحمد الاخ والاستاذ / عبدالعزيز البسكرى الاخ والاستاذ/ عادل حنفى الاخ والاستاذ/ محمد الريفى الاخ والاستاذ / بن عليه حاجى الاخ والاستاذ / وائل الاسيوطى الاخ والاستاذ / خالد الرشيدى الاخ والاستاذ/ انس دروبى الاخ والاستاذ/ عبدالناصر محمود الاخ والاستاذ/ طلعت محمد حسن الاخ والاستاذ/ الخليفه الاول الاخ والاستاذ/ ابوعبدالرحمن البغدادى الاخ والاستاذ/ وائل احمد المصرى الاخ والاستاذ/ ياسر العربى الاخ والاستاذ/ ياسر فتحى البنا الاخ والاستاذ/ المارد العراقى الاخ والاستاذ/ ابراهيم الابيض السلام عليكم ورحمة الله وبركاته - إخوتي واستاذتى الكرام أسعد الله أوقاتكم بكل خير ، تعلمون صدق محبتي لكم قال صلى الله عليه وسلم " سبعه يظلهم الله فى ظله يوم لا ظل الا ظله وذكر منهم رجلان تحابا فى الله اجتمعا عليه وتفرق عليه" اسال الله تعالى أن نكون منهم وأن يجمعنا فى جنته أخوانا على سرور متقابلين وكما قال صلى الله علية وسلم " تحرم النار على كل هين لين سهل قريب من الناس" صدق رسول الله أشكر مبادراتكم الكريمة التي تبعث في نفسي الرجاء والعزيمة على المضي قدماً إرضاء لله تعالى أولاً وخدمة للطيبين أمثالكم فكلكم خير وبركة. ما رأيته منكم من تصميم ومحبة وتأكيد على استحقاقي لهذه الترقية يشجعني على الاستمرار بوتيرة أقوى وبحماسة لأكون كما تريدون فأنا الين بين أيديكم ورأيكم وسأكون بعون الله وقدرته عند حسن ظنكم ...وما كنت لأخيب هذه الوجوه الكريمة ...راجياً من الله تعالى أن يديم بيننا المحبة والألفة ..وكما قلتم سابقاً هي ليست رتبة أو منصباً بل دافعاً أقوى لخدمتكم وإحساس بالمسؤولية أكبر والله ولي التوفيق.... والسلام عليكم.

السّلام عليكم و رحمة الله و بركاته أخي الغالي و أستاذي القدير المحترم " الصقر " قرار مدير الموقع في أعادة صايغة الألقاب وتغييرها تعني: " أنزلوا الناس منازلهم " أستاذي الكريم المحترم تقبل منا أن: " وفوق كل ذي علم عليم" أخوك إبراهيم الأبيض

السّلام عليكم و رحمة الله و بركاته و الله لم أجد في قاموس كلماتي أفضل ممّا قاله أستاذي القدير المحترم :محمد حسن المحمد الحمد لله رب العالمين الذي بنعمته تتم الصالحات الحمد لله الذي يحق الحق ويزهق الباطل الحمد لله أن عاد الحق إلى نصابه الحمد لله أنْ عاد " الصّقر " سالمًا غانمًا و الحقيقة أنّي أرى في شخصك الكريم ليس صقرًا واحدًا بل " قبيلة من الصّقور" وفقنا الله وإياكم إلى البر والتقوى وإلى ما يصلح حالنا وقلوبنا..آمين آمين آمين آمين و الحمد للّه أوّلاً و أخيرًا فائق إحتراماتي

وفقك الله لكل ما يحبه وترضاه

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

لا إله إلا الله أبدأ بها حق وصواب كلمة من عالم الغيب ربك جاء بها لا إله إلا الله فضاضة الصخر الصلاب أحمد المختار للخلد يسبقنا بها و لا إله إلا الله الريح تشهد والسحاب والجبال الراسية كلها وهضابها و لا إله إلا الله أكبر سؤال أعظم جواب الرعود أصواتها والبروق أثوابها و لا إله إلا الله القاهر الفرد المُهاب جابر العثرات معطي الكنوز أصحابها و لا إله إلا الله أول كلام أصدق متاب الحِكَم في سرها والهدى بأهدابها و لا إله إلا الله تخضع لها كل الرقاب حظ والله من حملها وجاء يسعى بها و لا إله إلا الله ترجح بميزان الثواب بالسماء والأرض بحجارها وأترابها و لا إله إلا الله حصن من الشرك الكُذاب ما تمس النار من جاءه في جلبابها و لا إله إلا الله ذخر ولي يوم الحساب يوم تدنو الشمس والكرب بعض أسبابها و لا إله إلا الله أجمل خبر وأكمل نصاب تشرح الخاطر وهي مفزع لا غِنى بها و لا إله إلا الله ننسج بها حسن الثياب هي نشيد المجد والنور من محرابها و لا إله إلا الله فكّر وهن عتق الرقاب طهرة للخلق بحسابها وأسبابها و لا إله إلا الله يفتح لها سبعين باب كل باب فاح من عودها وأطيابها ولا إله إلا الله لو نُزّلت في الصخر ذاب هي سلاح الجند وسيوفها وأحرابها و لا إله إلا الله خذها معك وقت الذهاب جنة الفردوس وين إنتِ يا طلابها

السلام عليكم انا عضو جديد في هذا المنتدى ولدي فقط 3 مشاركات او 4 طرحت ثلاثة اسئله اجابني عليهم ( الصقر ) والذي عرفت الان بأن اسمه حسام وكانت الاجابه غاية في الروعه وكانت الاجابات وافيه بعد أن يأست من البحث في الكوكل ومواقع الفيسبك عن الحل لما اريد . وعند اطلاعي على هذا الموضوع وماكتبه الاستاذ حسام وبعد متابعة التعليقات أعتقد ان قرار مدير الموقع في أعادة صايغة الالقاب وتغييرها من خبير الى خبير معتمد تحل المشكله تماماً أذا ان أضافة معتمد (خبير معتمد) تعني بأن الشخص اعتمد خبيراً في هذا المنتدى وليس فيه تكبر ولا منافسه مع الاخرين اما عن هذه التسميات فكلها القاب تطلق على من يستحقها فالحياة درجات ومن المستحيل ان يتساوى الجميع في نفس الدرجه ويجب على الانسان ان لا يبخس حقه او يستصغر من شأنه وشأنك عال أنشاء الله

لا إله إلا الله أبدأ بها حق وصواب كلمة من عالم الغيب ربك جاء بها لا إله إلا الله فضاضة الصخر الصلاب أحمد المختار للخلد يسبقنا بها و لا إله إلا الله الريح تشهد والسحاب والجبال الراسية كلها وهضابها و لا إله إلا الله أكبر سؤال أعظم جواب الرعود أصواتها والبروق أثوابها و لا إله إلا الله القاهر الفرد المُهاب جابر العثرات معطي الكنوز أصحابها و لا إله إلا الله أول كلام أصدق متاب الحِكَم في سرها والهدى بأهدابها و لا إله إلا الله تخضع لها كل الرقاب حظ والله من حملها وجاء يسعى بها و لا إله إلا الله ترجح بميزان الثواب بالسماء والأرض بحجارها وأترابها و لا إله إلا الله حصن من الشرك الكُذاب ما تمس النار من جاءه في جلبابها و لا إله إلا الله ذخر ولي يوم الحساب يوم تدنو الشمس والكرب بعض أسبابها و لا إله إلا الله أجمل خبر وأكمل نصاب تشرح الخاطر وهي مفزع لا غِنى بها و لا إله إلا الله ننسج بها حسن الثياب هي نشيد المجد والنور من محرابها و لا إله إلا الله فكّر وهن عتق الرقاب طهرة للخلق بحسابها وأسبابها و لا إله إلا الله يفتح لها سبعين باب كل باب فاح من عودها وأطيابها ولا إله إلا الله لو نُزّلت في الصخر ذاب هي سلاح الجند وسيوفها وأحرابها و لا إله إلا الله خذها معك وقت الذهاب جنة الفردوس وين إنتِ يا طلابها

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

الآن استطيع ان اقول حمدا لله علي السلامه

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

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

الاخ الحبيب وائل طبعا الكود ده للعلامه القدير استاذى / عبدالله باقشير حفظه الله الكود وظيفته ان يمنع فتح الاكسيل فى حال عدم تفعيل الماكرو والكود ده وضعه بالملف سهل جدا لكن ازالته صعبه جدا عايزه حرفيه شوية زى كدا عملية فصل الجنين عن الام وممكن كمان تضحى بالام علشان الجنين يعيش او تضحى بالجنين علشان الشعب يعيش يعنى موضوع ازالته عايز جراح وجراح ماهر وبما انك حولت الملف الى ملف تنفيذى فأصبح الكود ليس منه فائده لان الملف التنفيذى هيشتغل سوء الماكرو مفعل او غير مفعل فخد اسهل الحلول لحل هذه المشكله مش هنلجأ لحذف الكود لكن هنخليه ممكن تفكر ترجع الملف الى اكسيل مره اخرى فبالتالى هتحتاجه الحل زى ما بيقولو كدا زى شكة الدبوس فى الكود التالى Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ScreenUpdating = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub قوم بحذف السطر التانى من الكود اللى هو kh_wVisible False او ممكن متحزفش بس تعطله تحط على اليسار هذه العلامه ' كالتالى ستجد لون الكود اصبح اخضر 'kh_wVisible False جرب وعلمنى تقبل تحياتى

(حديث مرفوع) حَدَّثَنَا أَبُو طَاهِرٍ مُحَمَّدُ بْنُ أَحْمَدَ بْنِ عَبْدِ الرَّحِيمِ الْكَاتِبُ قِرَاءَةً عَلَيْهِ فِي سَنَةِ 442 ، ثنا أَبُو مُحَمَّدٍ عَبْدُ اللَّهِ بْنُ جَعْفَرِ بْنِ حَيَّانَ ، ح وَثنا أَبُو الْقَاسِمِ إِبْرَاهِيمُ بْنُ مَنْصُورِ بْنِ إِبْرَاهِيمَ الْكَرَّانِيُّ ، ثنا مُحَمَّدُ بْنُ إِبْرَاهِيمَ بْنِ عَليٍّ الْعَاصِمِيُّ ، قَالَا : ثنا أَبُو يَعْلَى أَحْمَدُ بْنُ عَلِيِّ بْنِ الْمُثَنَّى الْمَوْصِلِيُّ ، ثنا مُحَمَّدُ بْنُ عَبْدِ اللَّهِ بْنِ نُمَيْرٍ الْخَارِقِيُّ ، ثنا ابْنُ فُضَيْلٍ ، ثنا عُمَارَةُ بْنُ الْقَعْقَاعِ ، عَنْ أَبِي زُرْعَةِ بْنِ عَمْرِو بْنِ جَرِيرٍ ، سَمِعْتُ أَبَا هُرَيْرَةَ ، يَقُولُ : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهِ عَلَيْهِ وَسَلَّمَ : " كَلِمَتَانِ خَفِيفَتَانِ عَلَى اللِّسَانِ ثَقِيلَتَانِ فِي الْمِيزَانِ حَبِيبَتَانِ إِلَى الرَّحْمَنِ : سُبْحَانَ اللَّهِ ، وبِحَمْدِهِ سُبْحَانَ اللَّهِ الْعَظِيمِ " .

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

اخى الكريم اطلع على الملف التالى للاستاذ / عمر الحسينى ... جزاه الله خيراً تغيير اللغة.rar

السلام عليكم ورحمة الله وبركاته أحبائى فى الله أقدم لكم اليوم كود يوضع فى حدث الشيت المراد فك حمايته يقوم بإلغاء الحماية عن الشيت Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا وكنتم جميعا فى أحسن حال أتقدم إليكم اليوم بمعادلة جميلة جدا جدا تقوم بعمل بحث فى عمود عن أول حرف عن طرق وضع الحرف المراد إظهار النتائج التى تبدأ بهذا الحرف فى خلية ما فيظهر فى العمود المقابل كل الاسماء التى تبدأ بهذا الحرف المعادلة معادلة صفيف يعنى الضغط على Ctrl+Shift-Enter وليس Enter {=IFERROR((IF(ROW()=2;INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT($A$1:$A$100;1)))));0)));((INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT(INDIRECT(IF(C1="";"";"$A$"&(MATCH(C1;$A$1:$A$101;0)+1))&":$A$100");1)))));0))+(MATCH(C1;$A$1:$A$101;0)))))));" ")} مرفق ملف به المعادلة والتنفيذ أرجوا من الله العلى القدير ان يستفاد منه الجميع Find.rar

السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar

جرب المرفق ssss1.rar

رائع اخي ياسر زيادة في اثراء الموضوع معادلة اخرى (بدون IFERROR) . و تستطيع وضعها في اي مكان من الصفحة و لبس من الضروري الصف الثاني Find Salim + Yasser.zip

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

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

الأستاذ الفاضل سليم بارك الله فيكم وبعد اذن حضرتك بالمشاركة أستاذ نايف ضع الكود التالى فى الحدث Worksheet_Change مش فى selectionchange كالتالى Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range Dim rng As Range ' تحديد نطاق الفحص Set rng = Range("B2", Range("B" & Rows.Count).End(xlUp)) ' تحديد الخلايا التى تتضمن معادلات For Each C In rng If C.HasFormula Then C.Interior.ColorIndex = 38 Else C.Interior.Pattern = xlNone End If Next C End Sub وغير فى النطاق المحدد من معادلات الى نص أو العكس تلوين خلايا 2.rar

السّلام عليكم و رحمة الله و بركاته هذه إحدى المحاولات أخي الكريم أبو الرحمن البغدادي .. لعلّها تفي بالغرض .. محركات بحث عديدة1.rar

متخلنيش اقلب عليك يا بتاع الالوان اياها

السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع ...ولكن ليتك لونت الخلية لتميز الخلية التي تحتوي على القائمة المنسدلة "$A$2" .والسلام عليكم. الأب والأستاذ القدير / محمد حسن المحمد يشرفنى دائما مرورك الجليل شكرا لدعائك الطيب

السلام عليكم ورحمة الله أخي الكريم الشيباني، هذه محاولة بالمعادلات في الملف المرفق أرجو أن تفي الغرض المطلوب أو بعضه... بن علية خلاصه.rar

نعم اخى الكريم نسيت ان اخبرك صرحنا اولا عن المتغير العام GetDBPath وذلك لجلب مسار القاعدة الحالية الحمد لله

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

اللهم إني أصبحت أشهدك وأشهد ملائكتك وجميع خلقك أنك أنت الله لا إله إلا أنت وحدك لا شريك لك و أن محمدا عبدك ورسولك

بعد التجربة شكرا جزيلا لك . واصل ابداعاتك

حبيبي واخي في الله حسام ((الصقر)) اتمنى من الله دوام الصحة والعافية وزادك الله من علمه وانار الطريق امامك لتحسم امورك الي كل الخير والصلاح ارجو ان يكون غيابك مجرد مراجعة نفس عن قرارك هذا والعودة الى اخوانك هنا من جديد فالكل يحتاجك هنا وانا طبعا منهم وانت عارف كدا كويس ومتابع لدروسك واختباراتك تحديدا حتى وان كنت علي علم بها فانا اتفاعل معاها لتثبيت المعلومة والمراجعه وطبعا افادة كبيرة لكل اعضاء المنتدى الكرام اتمنى من الله ثم منك العودة وعدم اتخاذ قرار يقطع عنا هذا العمل الصالح والمفيد للجميع ويقطع عنك باب الحسنات والدعاء من هؤلاء الاعضاء فكن ما تكن ولكن كن العون لنا ولجميع الاعضاء ولتحسن لهؤلاء الاعضاء - وهل جزاء الاحسان الا الاحسان فهم دعموك وارادو منك ان تكون معلمهم خبيرهم استاذهم اخوهم فكن لهم مثلما ارادو ولا تخذلهم ارجو من الله العودة لاسرة اوفيسنا علي خير باذن الله وان تكون نجما ساطعا في سمائها اخوك ياسر العربي

السلام عليكم وهذا كود اخر اضافة الى حل الاستاذ الفاضل بن عليه يقوم بأخذ تنسيقات الورقة الرئيسيه من عرض للاعمد والصفوف والخط والبوردر Sub Formt_Ali() Dim Sht As Worksheet Dim Sh As Worksheet Dim Rw&, Col$ Set Sht = Sheets("الرئيسية") With Application .ScreenUpdating = False .EnableEvents = True With Sht Rw = Split(.UsedRange.Address, "$")(4): Col = Split(.UsedRange.Address, "$")(3) .Range("A1:" & Col & Rw).Copy For Each Sh In Sheets Ali_Wdth Sht, Sh, True, True If Not Sh.Name = .Name Then With Sh With .Range("A1:" & Col & Rw) .PasteSpecial xlPasteFormats End With End With End If Next Sh End With .CutCopyMode = False .ScreenUpdating = True .EnableEvents = False End With End Sub Private Sub Ali_Wdth(ByVal Smp_Sht As Variant, ByVal Al_Sht As Variant, Optional Heights As Boolean = False, Optional Widths As Boolean = False) Dim Sc_Rn As Range, D_Rn As Range Dim R As Long, C As Long On Error GoTo Eri With Smp_Sht Set Sc_Rn = Range(.Cells(1, 1), .UsedRange.Cells(.UsedRange.Cells.Count)) End With With Al_Sht Set D_Rn = Range(.Cells(1, 1), .UsedRange.Cells(.UsedRange.Cells.Count)) End With R = WorksheetFunction.Max(Sc_Rn.Rows.Count, D_Rn.Rows.Count) C = WorksheetFunction.Max(Sc_Rn.Columns.Count, D_Rn.Columns.Count) Set Sc_Rn = Sc_Rn.Resize(R, C) Set D_Rn = D_Rn.Resize(R, C) If Heights Then For R = 1 To R D_Rn.Rows(R).RowHeight = Sc_Rn.Rows(R).RowHeight Next End If If Widths Then For C = 1 To C D_Rn.Columns(C).ColumnWidth = Sc_Rn.Columns(C).ColumnWidth Next End If Eri: End Sub

أخي الصقر اعتقد ان بعد هذة العاصفة من الأخوة ليس لك في الأمر من شيء ووجب عليك العدول عن الموضوع وكأن شيء لم يكن أكبارا" وأعزازا" للاخوة جميعا" وكفاية عليك يا عم الشعبية دي وربنا يوعدنا

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

السلام عليكم ورحمة الله أخي الكريم رضا، لأجل هذا الغرض تم إضافة كود في حدث WORKBOOK والذي يتم تنفيذه تلقائيا بمجرد الانتقال لأي شيت في المصنف (الملف)... أرجو أن يكون في الملف المرفق بعض المطلوب... بن علية تنسيق تلقائى.xlsb.rar

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

يا جماعه كل ما اتمناه برنامج لادارة محل كمبيوتر بسيط جدا يكون في الاتي 1- ادخال بيانات البضائع الجديدة 2- بيانات البضاعة المباعة 3- العملاء 4- البيع بالتقسيط بس يكون مجاني وليه مني الدعاء

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

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

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

اتفضل هذا مثال لاحد الاخوه ان شاء الله تستفاد منه بالتوفيق BackupCompactRepair.rar

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

السلام عليكم ورحمة الله وبركاته كما وجّه الأخ الحبيب الصقر نداء للأستاذ المحترم محمد طاهر للعودة عن ترقيته فإنني أتوجّه إلى أعضاء منتدى أوفيسنا وخصوصاً قسم الإكسل الذين تابعوا دروسه ومشاركاته الفعالة والناجحة بنداءٍ لكم جميعاً للمشاركة بهذا الموضوع ليصبح موضوعاً ساخناً تدعون الأستاذ الصقر لثنيه عن قراره هذا وكلّي رجاء بكم وبجهودكم وأظنه لن يخذل كل هذه الوجوه الطيبة لأنكم أهل كرامة عنده ولكم محبة وافرة والسلام عليكم.

جرب هذا الملف ايضا للقدير استاذى سليم حاصبيا تغيير اللغة اوتوكاتيكياً.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أقدم لكم .. كما هو واضح من عنوان الموضوع ، بدون شرح للموضوع ، أقدم لكم كود يقوم بتغيير اسم ورقة العمل ، وذلك تبعاً لتغير قيمة خلية تقوم بتحديدها في الكود ، فتتغير اسم ورقة العمل تلقائياً تبعاً لقيمة الخلية ، وإذا كان الاسم غير صالح Invalid تظهر رسالة تفيد بذلك .. أترككم مع الملف المرفق .. تقبلوا تحياتي Changing Sheet Name To Match Cell Automatically.rar

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

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

لقد تم إضافة مايلي للنموذج: If [not] = "خزنة" Then [sum] = -[out] ElseIf [not] = "وارد خ" Then [sum] = [out] + [into] End If وبالتالي عند عمل الجمع التراكمي في الاستعلام سيتم طرح قيمة out عندماتكون قيمة not تساوي "خزنة" لأنها أخذت قيمة سالبة بينما سيتم جمعها مع into عندماتكون قيمة not تساوي "وارد خ" لأننا أعطيناها قيمة موجبة فأرجو أن تضيف الحقل للجدول وتستورد النموذج مع إجراء التعديلات المطلوبة بالنسبة للحقول التي تم مسبقاً إدخال قيم بها ملاحظة:أقترح أن يكون الترتيب للجمع التراكمي في الاستعلام على أساس التاريخ وليس الرقم no أعتقد أن العمل سيكون أدق في هذه الحالة وهذا يمكنك عمله بتغيير بعض القيم في الاستعلام وبالتوفيق