ياسر خليل أبو البراء

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

أخي اضغط الملف أولا ببرنامج ضغط مثل الوينرار ثم قم برفعه

أخي الفاضل هل فيه صعوبة بالنسبة لك في إرفاق ملف؟

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

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

أخي الحبيب يرجى إرفاق ملف ، ووضع الأكواد بين أقواس الكود <> حتى تظهر بشكل منضبط تقبل تحياتي

أخي الأقواس في المعادلة معناها أن المعادلة معادلة صفيف وهي لا تكتب يدوياً ..إنما يتم الضغط على Ctrl + Shift + Enter معاً ...

ارفق ملفك أخي الفاضل

أعتقد الرسالة سببها استخدام الكود في الإصدار 64 بت أو العكس

يرجى إرفاق ملف مع بعض النتائج المتوقعة أخي الفاضل ...

بارك الله فيك أخي الحبيب ولكنه لم يؤدي الغرض ..

حل المشكلة ببساطة أخي الحبيب ..قم بالذهاب إلى Excel options ثم Trust Center ثم Trust Center Settings ثم Privacy Options ثم أزل علامة الصح بجانب الخيار Remove Personal Information

الأخ الحبيب أبو إيمان .جزيت خيراً أخي الحبيب .. البرنامج عبارة عن ملف حجمه صغير غير قابل للتنصيب .. هل هناك طريقة محددة لاستخدام الملف الخاص بك؟

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

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

أخي الحبيب جرب الكود بالشكل التالي : Private Sub ComboBox1_Change() If Me.ComboBox1.Value <> "" Then Me.TextFind1.Visible = True Me.TextFind2.Visible = True End If End Sub Private Sub ComboBox2_Change() If Me.ComboBox2.Value = "المجموعة 1" Then Me.TextFind2.Visible = False Me.TextFind1.Visible = True End If '==================================== If Me.ComboBox2.Value = "المجموعة 2" Then Me.TextFind1.Visible = False Me.TextFind2.Visible = True End If End Sub Private Sub UserForm_Initialize() With ThisWorkbook.ActiveSheet ComboBox1.AddItem .Range("A1") ComboBox1.AddItem .Range("C1") End With '==================================== With ComboBox2 .AddItem "المجموعة 1" .AddItem "المجموعة 2" End With '==================================== Me.TextFind1.Visible = False Me.TextFind2.Visible = False End Sub

تسلم يا باشمهندس .. بردو التعليم بيفرق ، مش هتجيب واحد شغال مدرس زي واحد شغال مهندس (صحيح الاتنين أولهم ميم وآخرهم سين ..لكن مستواكم أعلى بالتأكيد) ربنا يوفقك ..وفي انتظار إكمال المهمة المستحيلة Mission Impossible ، بس متحرمناش من الملف النهائي .. تقبل تحياتي

الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي أخ سامي اتصالات (وخليك على اتصال keep in touch)

تسلم يا أخ مختار بارك الله فيك الملف الأخير مضبوط ..وفكرة جميلة ربنا يجازيك كل خير يا كبير

أخي الفاضل سامي جرب الكود التالي : If Intersect(ActiveCell, Range("C1:C1000")) Is Nothing Then Range("C1").Select Range("C1:C1000").Find("~*", ActiveCell, xlValues).Select

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

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

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

أخي الفاضل طارق تفضل الملف المرفق .. ملف من مكتبتي (الكود ليس لي بالطبع ..لكني أحتفظ به ..من الروائع) Print Selected Sheets.rar

أخي الحبيب أبو تراب جربت الملف ولم يعمل معي ..هل هناك مكتبة معينة يجب تفعيلها؟