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

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

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

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

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

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

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

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

الطريقه العاشره :- تعبئه الكمبوبوكس بأستخدام Set هذه هى الطريقه الاخيره من طرق الكمبوبوكس وعلشان هى الاخيره والاعمال بالخواتيم اللهم ارزقنا جميعا حسن الخاتمه فطريقه اليوم طريقه سهله جدا وتتميز بالبساطه يعنى هنقزز كدا شوى مع بعض ونتسلى ( استراحه متعلم ) لو عندى شيت زى كدا وفيه بيانات وعايز اقوم بتعبئة الكمبوبوكس بالبيانات المظلله باللون الاخضر شاهد الصوره يوجد طريقتين الطريقه الاولى :- لو نطاق البيانات عندى ثابت كما هو بالجدول من A2: b5 هستخدم الكود التالى Dim R As Range Set R = Sheet1.Range("A2:b5") Me.ComboBox1.List = R.Cells.Value كود سهل جدا وبسيط السطر الاول الاعلان عن المتغيرر وقمت بتسميته R ( وممكن تسميه اى اسم كيفما شئت) وانه ان المتغير ده من النوع Range وعايز احول المتغير ده الى كائن بحيث اعرفه واقدر اتعامل معاه فأستخدمت set وهذه الكلمة هى لتحويل المتغير الى كائن القاعده الخاصه بـ Set هى الكائن = المتغير set ("Set R = Sheet1.Range("A2:b5 بعد ما عرفت الكائن وحددت نطاقه دلوقتى اقدر استخدمه واتعامل معه Me.ComboBox1.List = R.Cells.Value هذا السطر يعنى ان قائمة الكمبوبوكس تساوى النطاق قيمة كل خليه فى النطاق R الطريقه الثانيه :- لو نطاق البيانات عندى متغير كما هو بالجدول من A2: b5 ولكن يمكن اضافه اسماء جديده او حذف اسماء موجود فى هذه الحاله هو نفس الكود ولكن هيتم تعريف اخر صف به بيانات هستخدم الكود التالى Dim R As Range Set R = Sheet1.Range("A2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) Me.ComboBox1.List = R.Cells.Value وطبعا اتكلمنا قبل كدا ماذا يعنى سطر تعريف اخر خليه بها بيانات يبقى تحديد وقت تنفيذ الكود وزى ما اتفقنا قبل كدا ان وقت تنفيذ الكود انت اللى بتحدده ولكن على سبيل المثال فى حدث فتح الفورم Private Sub UserForm_Initialize() Dim R As Range Set R = Sheet1.Range("A2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) Me.ComboBox1.List = R.Cells.Value End Sub طبعا فى طرق اخرى ولكن لا ارى جدوى منها فنكتفى بعشر طرق تم تناولها لننتقل الى شروحات اخرى فأنا والله لم ابخل عليكم بمعلومه فكل ما يهمنى ويشغل بالى هو تبسيط المعلومه بعيدا عن الكلمات المعقده واكون دائما حريص على تنوعها ففى تعبئة الكمبوبوكس اتكلمت عن عشر طرق كان بالامكان اكتفى بطريقه او طريقتين ولكن الامانه العلمية وحبى لكم تقتضى على ان اعرفكم بكل شئ عايزكم تكونو احسن منى مش بس زى انا وما يحزننى هو احساسى بان الناس مش مهتمه بالموضوع لسبب او لاخر أحيانا الانسان لما بيزرع شجره بيكون عايز يشوف ثمرة جهده وعرقه فأنا مستمر فى غرس الشجر مهما كانت العواقب والعواصف أن شاء الله بعد الانتهاء من كل الشروحات هيتم تحويله الى كتيب الكترونى Pdf وان شاء الله يكون اول كتاب باللغه العربيه فى شروحات الفورم اللى بيدخل فى ادق التفاصيل واعمقها والى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد انتظرونا تقبلوا تحياتى

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

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

إخواني وأحبابي في الله تتقدم إدارة الموقع بالتهنئة لكلٍ من العضوين الكريمين :: خالد الرشيدي *** ياسر العربي فنتقدم لهما بالتهنئة الحارة من قلوبنا ، ونتمنى لهما مزيد من التفوق والتميز .. مع تحيات أخوكم أبو البراء

السلام عليكم ملفك بطيئ الافضل تنسخ البيانات مع الاكواد جميعها الى ملف جديد وزارات المحافظة - بطأ العملية_111.rar

بارك الله فيك أخى الكريم ياسر العربى انظر أحد برامجى " برنامج تعليم الرياضيات بالاكسل لرياض الأطفال والمدارس الابتدائية " على الرابط http://www.officena.net/ib/index.php?showtopic=58297 و " تعليم اللغة الانجليزية بالاكسل لرياض الأطفال والمدارس الابتدائية " على الرابط http://www.officena.net/ib/index.php?showtopic=59850#entry383919 قد تجد فيهما ما تريد تحياتى ومنتظرين التجديد

اخى الكريم نايف اعتقد على حد علمى والله اعلم ان هذا الشئ غير موجود اللى هو اضافه مسافه بادئه للنص لا يوجد من ضمن خصائص التكست فى شاشة التصميم خاصيه لهذا النوع ( الا اذا فى حد من الخبراء عنده رائ اخر ) ولكن يمكن عمل كود فى حدث تحديث التكست كالتالى بفرض ان التكست بوكس عندك رقمه 1 انسخ الكود التالى Private Sub TextBox1_AfterUpdate() TextBox1 = " " & TextBox1 & " " End Sub تقبل تحياتى

السلام عليكم إخوتي الكرام أخي الصقر وأخي ياسر العربي المحترمين.. جزاكما الله خيراً ...يحتمل لكثرة محبته لابنته أسيل يكاد يكتب عشرة مجموعات أسيل و أسيل 2 ...etc لمَ لم تسمّ المجموعة الثانية التي ذكرها لك أخي الصقر غيرلازمة باسم محمد ؟ ولكنه حل رائع ....يستحق الإعجاب سنجتهد في اللحاق بركبكم هذا لنحوز على رضا أستاذنا ... كم درجة أعطاك؟.... 10/10 ممتاز أحسنت يا بطل تبين لنا أنك تحب التجديد حتى لو كان الأخضر رائعاً ومريحاً للعين. والسلام عليكم.

انا غشيت الامتحان كله ومن غير مراجع بقي aseel.rar

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

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

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

إخواني ياسر العربي وخالد الرشيدي يفضل عدم استخدام أكواد التحديد في الكود بمعنى في هذا السطر على سبيل المثال Cells(a + 1, 1).Resize(1, 4).Select Selection.Copy يمكن استخدام هذا السطر مباشرةً بدون تحديد بهذا الشكل Cells(a + 1, 1).Resize(1, 4).Copy وفي هذين السطرين sheet1.Activate ActiveCell.EntireRow.Delete يمكن استخدام سطر واحد فقط دون تحديد ورقة العمل لأن الكود ينفذ من ورقة العمل النشطة Cells(a + 1, 1).EntireRow.Delete تقبلوا تحياتي

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

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

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

اهداء لأخوتي في المنتدى فورم ادخال بسيط وتم عمل شاشة دخول للبرنامج بباس ورد ويوزر يمكن تطويعة كيفما تريد عسى ان ينفع به احد الاخوة للدخول للبرنامج User Password Wael Wael@19637 Elhadi 2014 حماية الكود Wael@19637 login.rar

فنون وأساليب التنبؤ باستخدام الاكسيل نعرض أساليب التنبؤ بالدوال وأدوات تحليل البيانات الموجودة في برنامج ميكروسوفت اكسيل ثم نتناول الطرق الرياضية والاحصائية في كيفية حساب الدالة. للتأكيد على المزايا التي يوفرها الاكسيل والدقة العالية التي يحسب بها النتائج ******************************************** الفئات المستهدفة: المدراء الماليين رؤساء الحسابات المحاسبين مديري المبيعات المهتمين بدراسات الجدوى العاملون في مجال التخطيط المالي والموازنات التقديرية -------------------------------------------------------------------- دورة مجانية 100% يستضيفها جروب تدريب وتأهيل المحاسبين بالإسكندرية برعاية المحاسب القانوني الأستاذ احمد وفا. وسيتم تحديد موعد كل محاضره والاعلان عنها وسيكون الحضور اون لاين للانضمام في الدورة https://www.facebook.com/events/509996679169161/ ------------------------------------------------------ فيديو تعليمي بداخل الفيديو كتيب pdf+ ملفات اكسيل تطبيقية ارجو من الجميع المشاركة فهذه الدورة مجانية 100% ولا تنسونا بصالح دعاؤكم ملفات الاكسيل التطبيقية.rar

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

اخي الحبيب الـعيدروس سلمت يداك بالفعل كود 10/10 تحياتي

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

مبروك أحى نضال تابعت أعمالكم .. شد حيلك .. الهمة للمهمة

تم معالجة الامر Book1 salim.zip

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

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

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

أستاذى الكبير ياسر للعلم أنه يتم انشاء النطاقات المحمية بباسورد + الباسورد نفسه أثناء عدم حماية الشيت ثم تتم حماية الشيت وأعتقد أنك عملت تغيير الباسورد فى الكود والشيتات محمية لذلك لم يفلح الباسورد الجديد فى العمل لتغيير الباسورد : غيره فى الكود + فك حماية الشيت + Allow user to Edit Ranges + حذف للنطاق + أعد حماية الشيت + حفظ + غلق الملف واعادة فتحه أخى الكريم خليفة نقل الكود الى ملف آخر يستلزمه حماية الشيتات يعنى ضع الكود فى الملف الجديد واعمل حماية للشيتات قبل الحفظ ثم أغلق الملف وأعد فتحه هتلاقيه شغال .

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

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

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

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

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

اوك.. سيتم عمل المطلوب ساستعمل نفس الكود السابق ولكن مع استخدام loop لكي يتم استبدال كل البيانات بالجدول والطريقة مجربة طبعا ولكن من الأفضل عمل تست للكود على جدول تست

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

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

اخي واستاذي الحبيب خالد الرشيدي بارك الله فيك وادام عطائك هذا لك مني كل الشكر والتقدير

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

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

السلام عليكم استاذ محمود تم اخفاء حقل الغياب في حالة =0 لكن جعل السجلات ملتصقة ... فلا علم لي مع الاسف التقرير _3.rar

الف مبروك ومن تقدم الي تقدم ان شاء الله تحياتي

مبارك الترقية

For i = 3 To 33 Sheets("جمع تراكمى").Cells(i, 2) = Sheets("الحسابات").Cells(i, 2) + Sheets("جمع تراكمى").Cells(i, 2) Sheets("الحسابات").Cells(i, 2) = "" Next الرقم 2 في الكود يمثل العمود المراد الجمع له يمكنك تغييره تقبل تحياتي حسابات.rar

جزاك الله خير الجزاء