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

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

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

أخي الكريم سليم جرب المعادلة التالية في الخلية B2 =IF(RIGHT(A2,2)=".0",MID(A2,1,FIND(".0",A2)-1),A2) تقبل تحياتي

أخي الكريم السفياني يوجد في التوقيع الخاث بي رابط لقناتي على اليوتيوب وفيها هذا الفيديو لحل مشكلتك https://www.youtube.com/watch?v=9X7hlw4G6r8

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

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

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

أخي الكريم ياسر العربي حاولت تنصيب البرنامج على ويندوز 10 64 بت ولكنه لم يفلح .. هل جريت تنصيبه على هذا النطام ؟ هل يوجد نسخة محمولة كاملة فيها كلها المراجع References حيث جربت النسخة المحمولة ولكن صادفتني مشكلة المرجع Excel Library (نفس مشكلة أخي الحبيب أبو يوسف)؟

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

أخي الكريم أبو حمادة مشكور على كلماتك وشعورك الطيب .. ولك مني مليون تحية (حبيت أختصر ألف ألف .. ) تقبل وافر تقديري واحترامي

أخي الكريم سعد يرجى تغيير اسم الظهور للغة العربية راجع الرابط التالي عله يفيدك إنشاء القوائم المنسدلة (دروس للمبتدئين)

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

أخي الحبيب مختار المغوار إليك حل آخر باستخدام المصفوفات عشان لو وصل عدد الأعمدة لألف يبقى الأكواد المقدمة مسبقاً هتكون بطيئة في التعامل (وأهو تدريب لينا على استخدام المصفوفات arrays) Sub ReverseUsingArrays() Dim myArray As Variant, Temp As Variant, LastCol As Long, I As Long, J As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column myArray = Range(Cells(4, 4), Cells(4, LastCol)).Value ReDim Temp(1 To 1, 1 To UBound(myArray, 2)) For I = UBound(myArray, 2) To 1 Step -1 Temp(1, J + 1) = myArray(1, I) J = J + 1 Next I Range("D5").Resize(, UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي

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

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

أخي الكريم أبو عبد الله الرشود سلمك الله من كل سوء ماذا تقصد بوضع المعادلة في الـ Data Validation ؟ هل تقصد عمل قائمة منسدلة للأسماء التي تم استخراجها؟ إذا كان الأمر كذلك يمكنك الاعتماد على العمود التي تم فيها استخراج الأسماء .. تقبل تحياتي

بارك الله فيك أخي الكريم محمد لم تحدد في الموضوع هل الموضوع تعليمي كما أرى .. أم أنك تريد تعديل على الكود الموجود ؟ أعتقد أنك تقدم معلومة حيث أن الكود لا مشكلة به وحيث أنه يقوم بنسخ التنسيقات من الخلية A4 ويبدأ تنسيق الخلايا من A5 بامتداد عدد محدد من الصفوف (على حسب قيمة الخلية A1) تقبل تحياتي

أخي الكريم عند عمل موضوع يراعى أن يكون هناك تفصيل وتوضيح للمطلوب وأن يرفق ملف لتوضيح المشكلة بالنسبة للأكواد يرجى وضع الأكواد بين أقواس الكود التي توجد بهذا الشكل <> هذا الكود أعتقد لأخونا الحبيب حسام عيسى .. والذي تناول فيه البحث عن الرقم الوظيفي وإظهار الاسم المرتبط بهذا الرقم بالنسبة لتصفير TextBox يكفي أن تقوم بإدراج سطر تجعل فيه الـ TextBox يساوي فراغ TextBox3.value=""

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

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

أخي الكريم أبو حماده ضع الكود التالي في حدث الفورم Private Sub TextBox1_Change() If Len(TextBox1) >= 3 Then Command16.Enabled = True End Sub تقبل تحياتي

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

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

أخي الكريم مهند جرب الملف التالي عله يفي بالغرض إجور.rar

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