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

أخي الكريم يرجى تغيير اسم الظهور للغة العربية جرب التعديل التالي عله يكون المطلوب Private Sub ComboBox6_Change() If ComboBox5.Value = "موجود" Then TextBox18.Value = TextBox6.Value & " " & TextBox7.Value & " " & TextBox8.Value ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "موجودة" Then TextBox18.Value = TextBox17.Value ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "غير موجودة" Then TextBox18.Value = "" Else TextBox18.Value = "" End If End Sub تقبل تحياتي

ما هو الجزء الناقص لتصحيح الموضوع أخي الكريم صلاح؟ يرجى الإفادة حتى لا يقع غيرك من إخوانك في مثل ما وقعت فيه

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

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

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

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

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

أخي العزيز مهند محسن الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات ومشكور على دعائك الطيب ، ولك بمثل إن شاء الله

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

عوداً حميداً أخي الغالي الجموعي لقد اشتقنا لرؤية مشاركاتك كل عام وأنت بخير

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

وعليكم السلام أخي الحبيب محي الدين يبدو أنك غير متابع للأخبار فقد امتدت الامتحانات إلى يوم 4 / 7 ..يعني لحد الوقفة ربنا يوقف حالهم وبعد العيد مفيش راحة .. امتحانات الدور الثاني للشهادة الإعدادية وبعدها امتحانات النقل .. وبعدها هيتم نقلنا للمستشفى بسبب الإرهاق وراااااااااااااح الصيف هدر كل عام وأنت بخير

أخي الكريم مهند محسن جرب التعديل التالي عله يفي بالغرض Private Sub CommandButton1_Click() Dim ws As Worksheet Dim iRow As Long If Me.ComboBox1.Value = "" Or Me.TextBox1.Value = "" Or Me.TextBox2.Value = "" Or Me.TextBox3.Value = "" Then: MsgBox "يرجى ادخال كل البيانات اولا", , "فاضل الباوي": Exit Sub Set ws = Sheets("Sheet2") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 Application.ScreenUpdating = False Application.Calculation = xlManual ws.Cells(iRow, 2).Value = Me.TextBox4.Value ws.Cells(iRow, 4).Value = Me.TextBox1.Value ws.Cells(iRow, 6).Value = Me.ComboBox1.Value ws.Cells(iRow, 8).Value = Me.ComboBox2.Value ws.Cells(iRow, 10).Value = Me.ComboBox3.Value ws.Cells(iRow, 12).Value = Me.TextBox2.Value ws.Cells(iRow, 34).Value = Me.TextBox3.Value ws.Cells(iRow, 1).Value = Me.Label59 If Me.Frame1.Visible = True Then ws.Cells(iRow, 14).Value = Me.Frame1.ComboBox4.Value ws.Cells(iRow, 16).Value = Me.Frame1.ComboBox17.Value ws.Cells(iRow, 18).Value = Me.Frame1.ComboBox18.Value ws.Cells(iRow, 20).Value = Me.Frame1.ComboBox19.Value ws.Cells(iRow, 22).Value = Me.Frame1.ComboBox20.Value ws.Cells(iRow, 24).Value = Me.Frame1.ComboBox21.Value ws.Cells(iRow, 26).Value = Me.Frame1.ComboBox22.Value ws.Cells(iRow, 28).Value = Me.Frame1.ComboBox23.Value ws.Cells(iRow, 30).Value = Me.Frame1.ComboBox24.Value ws.Cells(iRow, 32).Value = Me.Frame1.ComboBox25.Value ElseIf Me.Frame2.Visible = True Then ws.Cells(iRow, 14).Value = Me.Frame2.ComboBox5.Value ws.Cells(iRow, 16).Value = Me.Frame2.ComboBox8.Value ws.Cells(iRow, 18).Value = Me.Frame2.ComboBox9.Value ws.Cells(iRow, 20).Value = Me.Frame2.ComboBox10.Value ws.Cells(iRow, 22).Value = Me.Frame2.ComboBox11.Value ws.Cells(iRow, 24).Value = Me.Frame2.ComboBox12.Value ws.Cells(iRow, 26).Value = Me.Frame2.ComboBox13.Value ws.Cells(iRow, 28).Value = Me.Frame2.ComboBox14.Value ws.Cells(iRow, 30).Value = Me.Frame2.ComboBox15.Value ws.Cells(iRow, 32).Value = Me.Frame2.ComboBox16.Value ElseIf Me.Frame4.Visible = True Then ws.Cells(iRow, 14).Value = Me.Frame4.ComboBox7.Value ws.Cells(iRow, 16).Value = Me.Frame4.ComboBox36.Value ws.Cells(iRow, 18).Value = Me.Frame4.ComboBox37.Value ws.Cells(iRow, 20).Value = Me.Frame4.ComboBox38.Value ws.Cells(iRow, 22).Value = Me.Frame4.ComboBox39.Value ws.Cells(iRow, 24).Value = Me.Frame4.ComboBox40.Value ws.Cells(iRow, 26).Value = Me.Frame4.ComboBox41.Value ws.Cells(iRow, 28).Value = Me.Frame4.ComboBox42.Value ws.Cells(iRow, 30).Value = Me.Frame4.ComboBox43.Value ws.Cells(iRow, 32).Value = Me.Frame4.ComboBox44.Value ElseIf Me.Frame3.Visible = True Then ws.Cells(iRow, 14).Value = Me.Frame3.ComboBox35.Value ws.Cells(iRow, 16).Value = Me.Frame3.ComboBox34.Value ws.Cells(iRow, 18).Value = Me.Frame3.ComboBox33.Value ws.Cells(iRow, 20).Value = Me.Frame3.ComboBox32.Value ws.Cells(iRow, 22).Value = Me.Frame3.ComboBox31.Value ws.Cells(iRow, 24).Value = Me.Frame3.ComboBox30.Value ws.Cells(iRow, 26).Value = Me.Frame3.ComboBox29.Value ws.Cells(iRow, 28).Value = Me.Frame3.ComboBox28.Value ws.Cells(iRow, 30).Value = Me.Frame3.ComboBox27.Value ws.Cells(iRow, 32).Value = Me.Frame3.ComboBox26.Value End If Me.TextBox1.Value = "" Me.ComboBox2.Value = "" Me.ComboBox3.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.ComboBox1 = "" Me.ComboBox4.Value = "" Me.ComboBox17.Value = "" Me.ComboBox18.Value = "" Me.ComboBox19.Value = "" Me.ComboBox20.Value = "" Me.ComboBox21.Value = "" Me.ComboBox22.Value = "" Me.ComboBox23.Value = "" Me.ComboBox24.Value = "" Me.ComboBox25.Value = "" Me.ComboBox5.Value = "" Me.ComboBox8.Value = "" Me.ComboBox9.Value = "" Me.ComboBox10.Value = "" Me.ComboBox11.Value = "" Me.ComboBox12.Value = "" Me.ComboBox13.Value = "" Me.ComboBox14.Value = "" Me.ComboBox15.Value = "" Me.ComboBox16.Value = "" Me.ComboBox7.Value = "" Me.ComboBox36.Value = "" Me.ComboBox37.Value = "" Me.ComboBox38.Value = "" Me.ComboBox39.Value = "" Me.ComboBox40.Value = "" Me.ComboBox41.Value = "" Me.ComboBox42.Value = "" Me.ComboBox43.Value = "" Me.ComboBox44.Value = "" Me.ComboBox35.Value = "" Me.ComboBox34.Value = "" Me.ComboBox33.Value = "" Me.ComboBox32.Value = "" Me.ComboBox31.Value = "" Me.ComboBox30.Value = "" Me.ComboBox29.Value = "" Me.ComboBox28.Value = "" Me.ComboBox27.Value = "" Me.ComboBox26.Value = "" Application.ScreenUpdating = True Application.Calculation = xlAutomatic MsgBox "تم الترحيل بنجاح" Lr = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row Me.TextBox4 = Application.WorksheetFunction.Max(Sheets("Sheet2").Range("B9:B" & Lr)) + 1 End Sub تقبل تحياتي

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

أخي الكريم عادل راجع المشاركة التالية من حلقات افتح الباب من هنا

بارك الله فيك أخي الحبيب عبد العزيز ، وجزاك الله خير الجزاء ليك وحشة والله كل عام وأنت بخير

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

يمكن الاستغناء عن المعادلات والعمل بالأكواد .. فهذا سيكون أخف للملف بشكل كبير ولكن يجب أن توضح المعطيات بشكل جيد لكي يستطيع الأخوة الأعضاء تقديم المساعدة المطلوبة قم بالبحث في المنتدى عن "الملفات المغلقة" ربما تجد أحد الموضوعات التي تمت لموضوعك بصلة ، ويمكن الاستفادة منها ويرجى وضع عناوين مناسبة للموضوعات إليك الملف المرفق التالي عله يفيدك في فهم الفكرة Import Data From Closed WB Using VLOOKUP YasserKhalil.rar

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

الموضوع مكرر ؟؟؟!!!

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

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

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

وعليكم السلام ورحمة الله وبركاته أهلاً بك أخي الكريم أبو سادن ونورت المنتدى وجزيت خيراً على الكتاب الرائع والمفيد جداً لمن أراد تعلم الـ VBA

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