أبوعبد الله

الله عليك يا عمدة شغل معلمين جامد جداً الله ينور ياعمدة

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

أخي العزيز السلام عليكم ورحمة الله وبركاته أرجو الاطلاع على المرفق وبه 3 أكواد لتحويل الملف بالكامل أو أوراق معينة تقوم بتنشيطها أو نطاق معين تقوم باختياره لصيغة ملفات PDF أرجو أن يناسب طلبك . تحياتي أبو عبدالله تحويل الملف بالكامل أو الصفحة النشطة أو نطاق تختاره إلى ملف PDF.rar

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

أخي العزيز / الجزيرة جزاك الله كل خير وكل عام وانت بكل خير . تحياتي أبو عبدالله

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

الأخ العزيز / منسق عمل رائع بارك الله فيك وزادك علماونفع بعلمك وجعله في ميزان حسناتك . تحياتي أبو عبدالله

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

أخي العزيز إلى جانب ما تفضل به أخي العزيز يحيى حسين هذا حل آخر لإثراء الموضوع أرجو أن يناسب طلبك وقد تم تعميم الفكرة على نطاق العمود B أيضاً. تقبل تحياتي أبو عبدالله عملية حسابية مع نقرة ماوس مزدوجة.rar

السلام عليكم ورحمة الله وبركاته إلى جانب حل أخي الحبيب طارق المتميز هذه فكرة أخرى في نفس الإطار، وكل عام وانتم بخير ابو عبدالله SELECT ROW CELLS FROM A TO H IF SELECT ANY CELL IN A TO H.rar

أخي الحبيب / كيماس أشكرك من كل قلبي على مرورك الكريم وكل عام وأنتم بكل خير . أبو عبدالله

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

أخي الحبيب / يحيى حسين بارك الله تعالى فيك وجزاك عني خيراً وتقبل الله تعالى طاعاتكم وكل وعام وأنت ومن تحب والمسلمين جميعاً إلى الله أقرب . أخي الحبيب / هشام شلبي جزاك الله خيراً وبارك فيك أخي الحبيب وتقبل الله طاعاتكم وكل عام وانتم بكل خير وإلى الله أقرب وإلى طاعته ومرضاته أرغب . مع حبي وتقديري وامتناني أبو عبدالله

أخي الحبيب / ياسر الحافظ أخي الحبيب / سعد عابد أخي الحبيب / yahiaoui أخي الحبيب / MAHMOUDFOXMAM أخي الحبيب / عبدالله المجرب أخي الحبيب / HANCOCK - أحمد أخي الحبيب / عادل حنفي أشكركم من كل قلبي وأثمن كلماتك الرائعة وأسأل الله لكم التوفيق وكل عام وأنتم وكل أحبابكم بكل خير وبارك الله تعالى لكم في الشهر الكريم . تقبلوا حبي وتقديري أخوكم أبو عبدالله

أخي الحبب الغالي / هشام شلبي تسلم ياحبيبي على مرورك وكلامك العسل وربنا يبارك فيك " ياعم الحج "وكل سنة وانت طيب ورمضان كريم. الأخ العزيز / محمود أشكرك من كل قلبي . تحياتي ومحبتي لكم أبو عبدالله

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

أخي الحبيب / سعد عابد أشكرك أخي الغالي على مرورك الكريم وكلماتك الجميلة وكل عام وأنتم بكل خير ومبارك عليكم الشهر الفضيل . تقبل تحياتي أبو عبدالله

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

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

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

أخي العزيز رجاء الاطلاع على المرفق وفيه يتم نقلك بالفورم من ورقة لأخرى من خلال ال combobox لعمل إدخالاتك وسيتم الوقوف تلقائيا بأول خلية فارغة لوضع الإدخال الجديد كما أنه في حالة عدم تعبئة الحقول الثلاثة بالفورم لا يتم الإدخال وتظهر لك رسال تنبيه كم أنه بعد الإدخال يتم ترك الحقول بالفورم بها نفس البيانات وتفعيل ال combobox للتحرك به باستخدام الأسهم لأسفل وأعلى لاختيار ورقة جديدة وبالتالي الذهاب إليها تلقائياً . تحياتي أبوعبدالله new.rar

أخي العزيز / abuzzouz أرجو الاطلاع على المرفق وإن شاء الله يكون به الفكرة المطلوبة ، وللعلم تم استخدام كود في حدث فتح الملف والكود هو : Private Sub Workbook_Open() On Error Resume Next Application.DisplayAlerts = False ActiveWorkbook.Open Application.DisplayAlerts = True End Sub ملحوظة : يمكن أيضاً استبدال الجزء بالكود ActiveWorkbook.Open بالجملة Cancel = True وأيضاً سيعطى نفس النتيجةوهي عدم ظهور الرسالة . تقبل تحياتي أبو عبدالله عدم ظهور رسالة عند فتح ملف مفتوح.rar

أخي الحبيب / أحمد يعقوب جزاك الله كل خير فأنت صاحب المجهود الواضح والبصمة الجميلة فتقبل شكري وتقديري . الأخ العزيز / goudzy أشكرك على كلماتك الطيبة . تحياتي أبو عبدالله

أخي العزيز إخفاء علامات تبويب أوراق أو ورقة العمل الوحيدة بالملف سببه وجود كود في حدث لإغلاق الملف بأمر إخفاء علامات تبويب الأوراق ، وهذا هو السبب في ظهور رسالة الحفظ حيث أنه حدث تغيير غير ملموس بالنسبة لك ألا وهو إخفاء علامات التبويب مما يستدعي ظهور رسالة الحفظ حتى ولو لم تقم بأي عمل أو تغيير بالملف . ما قمت به هو تعديل بهذا الكود ليظهر لك رسالة تحدد فيها رغبتك في إظهار أو إخفاء علامات التبويب ، وإن كنت تريد أن تبقى العلامات ظاهرة دون الأمر بالكود فقم بحذفه من محرر الفيجول بنقرة مزدوجة على علامة THISWORKBOOK وقم بحذف الكود التالي : Sub Auto_close() On Error Resume Next WSTB = MsgBox(" YES " & "ÅÐÇ ÃÑÏÊ ÇáÍÝÇÙ Úáì ÙåæÑ ÚáÇãÇÊ ÊÈæíÈ ÃæÑÇÞ ÇáÚãá ÅÖÛØ " & vbNewLine & " NO " & " æÅÐÇ ÃÑÏÊ ÅÎÝÇÁ ÚáÇãÇÊ ÊÈæíÈ ÃæÑÇÞ ÇáÚãá ÅÖÛØ ", vbYesNo, "ÊÍÏíÏ æÖÚ ÅÙåÇÑ Ãæ ÅÎÝÇÁ ÚáÇãÇÊ ÊÈæíÈ ÃæÑÇÞ ÇáÚãá") Select Case WSTB Case vbYes ActiveWindow.DisplayWorkbookTabs = True Case vbNo ActiveWindow.DisplayWorkbookTabs = False End Select End Sub رجاء الاطلاع على المرفق تحياتي أبو عبدالله عفواً لم انتبه لرد أخي نادر حيث كنت أرد في نفس التوقيت وله الشكر WORKSHEETS TAB SET.rar

إخواني الأعزاء أشكر كل من ساهم في هذا الموضوع وأخص منهم أخي الحبيب أحمد يعقوب . أخي العزيز / AHMADHAMOOR بخصوص استفسارك فالجزء الخاص بكود البحث المسئول عن اتجاه أعمدة البحث من مصدر بيانات البحث هو هذا الجزء : ListBox1.List(W, 0) = Sheet2.Cells(A.Row, 2).Value ListBox1.List(W, 1) = Sheet2.Cells(A.Row, 3).Value فإذا أردت أن يظهر إتجاه الأعمدة من اليمين لليسار فليكن كما سبق وإن أردت عكس الاتجاه فيجب أن كون الكود هكذا : ListBox1.List(W, 1) = Sheet2.Cells(A.Row, 2).Value ListBox1.List(W, 0) = Sheet2.Cells(A.Row, 3).Value ولتوضيح الفكرة أكثر رجاء الاطلاع على المرفق تحياتي أبو عبدالله اتجاه قائمة البحث.rar