حمادة عمر

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

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

السلام عليكم الاخ الكريم / ابو جيداء استخدم الكود التالي لتنفيذ طلبك ان شاء الله Sub sama() With Range("A2") .Interior.ColorIndex = 46 .Font.Name = "Arial" .Font.Size = 12 .Font.Bold = True End With End Sub تقبل خالص تحياتي

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

بعد اذن استاذي الحبيب / ابو حنين .... جزاه الله خيرا في المرفق في العمود F ستجدي هذه الدالة =IF(D2>4000;"A";"B") اي اذا كانت قيمة الخلية D2 اكبر من 4000 تضع الدالة الحرف A وان لم يتحقق الشرط تضع الدالة الحرف B ولا داعي للاعتذار اختي الفاضلة ولكننا نحب الحفاظ علي قواعد المشاركات وتم تعديل العنوان بالفعل تقبلي خالص تحياتي

بارك الله فيكي الاخت الفاضلة / سما تقبلي خالص تحياتي

كل الشكر للقدير / ابو حنين دائما في مساعدة الجميع ================ تم تغيير العنوان حتي لا يكون مخالف لقواعد المشاركة =============== الادارة

بسم الله ما شاء الله عليك استاذي العملاق / رجب جاويش عملاق عن جد وبكل جداره ولاثراء الموضوع ... جرب الكود التالي Private Sub UserForm_Initialize() On Error Resume Next Dim mycol As Collection Dim myrng As Range Set mycol = New Collection For Each myrng In Range("a1:a10") mycol.Add myrng.Value, myrng.Text Next myrng For i = 1 To mycol.Count Me.ComboBox1.AddItem mycol(i) Next i End Sub تقبلوا خالص تحياتي

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

برجاء مراجعة عنوان موضوعك حيث انه مخالف لقواعد المشاركة في المنتدي رجاء اختيار عنوان واضح لموضوعك وذكره ... ليتم تعديله .. ويتم تنفيذ طلبك من قبل احد الاخوة والا سيتم غلق الموضوع قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

ولاثراء الموضوع في حاله انك تحدد القائمة يمكنك استخدام السطر التالي ComboBox2.List = Array("1", "2", "3", "4", "5", "6")

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

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

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

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

فعلا بحق وبكل جداره وهنيئا لصاحب الهدية

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

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك فعلا وبحق تسلم ايديك وحتي دائما اظل بجوارك ... اضافه لاتذكر علي كود سيادتكم لمسح بيانات الخلية المحددة ( لمنع التكرار فقط ) Private Sub CommandButton1_Click() Dim i As Byte '============================= Sheet1.Range("A1").Value = "" '============================= For i = 1 To 13 If Me.Controls("CheckBox" & i).Value = True Then TextBox1 = TextBox1 & Me.Controls("CheckBox" & i).Caption & "-" Sheet1.Range("A1") = Sheet1.Range("A1") & Me.Controls("CheckBox" & i).Caption & "-" End If Next i End Sub تقبل خالص تحياتي

بارك الله فيك اخي محمد مقالة جميلة جدا ومفيدة تقبل خالص تحياتي

الاخ الكريم / هاشم بركات بارك الله فيك مرور طيب وكريم من شخص كريم تقبل خالص تحياتي

اللهم فك كرب المسلمين اجمعين في كل ملأ وفي كل حين

عن ابن عباس رضي الله عنهما أن رسول الله صلى الله عليه وسلم كان يقول عند الكرب : لا إله إلا الله الحليم العظيم لا إله إلا الله رب العرش العظيم لا إله إلا الله رب السموات والأرض ورب العرش الكريم رواه البخاري ومسلم

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