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

أخي الحبيب صلاح لا فائدة من البكاء على اللبن المكبوب (المسكوب يعني) خلاص اللي عدا متندمش عليه ، عشان هتضيع أد اللي عدا في الندم ، وهيفوتك شوية من الحاضر ، فخليك مع اللحظة (عيش اللحظة مع أوفيسنا) تقبل تحياتي

جرب Cells.ClearFormats يقوم السطر بإعادة ضبط التنسيق العام للخلايا كلها (التنسيق الافتراضي)

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى المحبب إلى قلوبنا .. أقدم لكم اليوم شرح فيديو ، لكيفية عمل تصفية متقدمة Advanced Filter بالأكواد .. . والشرح مقدم في عدد 2 فيديو .. الأول لكيفية إدراج موديول وكتابة الأسطر الخاصة بتنفيذ التصفية المتقدمة ، والفيديو الثاني لكيفية تنفيذ الكود بدون أزرار بمجرد التغير في ورقة العمل أو التغير في شروط التصفية .. رابط الفيديو الأول : التصفية المتقدمة بالأكواد رابط الفيديو الثاني ومرفق لكم ملفين ..الملف الأول Advanced Filter VBA خاص بالفيديو الأول ، والملف المسمى Advanced Filter Worksheet_Change خاص بالفيديو الثاني أرجو أن ينال الدرس إعجابكم ، وتستفيدوا منه ولا أنتظر منكم سوى دعوة بظهر الغيب ، وادعوا الله لي أن يجعل أعمالنا صالحة ولوجهه خالصة ، وأن يجعل أعمالنا في ميزان حسناتنا يوم القيامة ، إنه ولي ذلك والقادر عليه كان معكم أخوكم أبو البراء من منتدى أوفيسنا (دي القفلة بتاعتي لو تلاحظوا .. مش شعبان عبد الرحيم بس اللي عنده القفلة !) حمل الملف من هنا

هل تم الأمر معك .. ونجحت في إنهاء الحلقة الأولى ؟؟ استمر وواصل ومعك نواصل ..

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

الأخ الفاضل شوقي ربيع بالمعادلات أقدم حل آخر ..والنتائج مختلفة حساب قيمة الخلايا وعدد الخلايا.rar

الأخ الفاضل طارق إليك الكود التالي . Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim LRWS As Long, LRSH As Long Dim X As Long, I As Long Set WS = Sheets("bon de livraison "): Set SH = Sheets("الارشف") LRWS = WS.Cells(50, 1).End(xlUp).Row X = Application.WorksheetFunction.CountA(WS.Range("A20:A" & LRWS)) Application.ScreenUpdating = False For I = 1 To X LRSH = SH.Cells(Rows.Count, 2).End(xlUp).Row + 1 SH.Cells(LRSH, 2).Value = WS.Range("B17") SH.Cells(LRSH, 3).Value = WS.Range("B11") SH.Cells(LRSH, 4).Value = WS.Cells(19 + I, 2).Value SH.Cells(LRSH, 5).Value = WS.Cells(19 + I, 1).Value SH.Cells(LRSH, 6).Value = WS.Cells(19 + I, 5).Value Next I MsgBox "تم الترحيل بحمد الله", vbInformation, "YasserKhalil" Application.ScreenUpdating = True End Sub وأيضاً إليك الملف المرفق فيه ما طلبت بإذن الله .. Tarhil YasserKhalil.rar

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

بفرض أن النص في الخلية A1 للحصول على الحروف الكبيرة اكتب المعادلة في الخلية B1 بهذا الشكل : =UPPER(A1) وللحصول على الحروف الصغيرة استخدام المعادلة =LOWER(A1)

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

نعم أخي تبقي الكود في الملف ، لكي تستطيع أن تستخدمه !! وإلا قد أكون أسأت في فهم سؤالك ..

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

عند الحفظ إذا كان الامتداد xlsx يظهر للك رسالة فيها Yes و No .. إذا ضغطت Yes فلن يتم الاحتفاظ بالأكواد ، ولذلك يجب الضغط على No وتغيير الامتداد من نوع الملف Macro-Enabled Macro أو ما يسمى xlsm ...

هل اطلعت على المشاركة رقم 8 ؟

تفضل أخي إبراهيم الرابط التالي http://www.officena.net/ib/index.php?showtopic=59869

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. بناءً على طلب الأخ الحبيب إبراهيم أبو ليلة أقدم لكم هذا الملف والذي يحتوي على دالتين معرفتين UDFs ، تقوم كلتا الدالتين بإرجاع القيمة True إذا كنت متصلاً بالانترنت ، وإرجاع القيمة False إذا كنت غير متصل بالانترنت . كما يوجد داخل المرفق كود يظهر رسالة تفيد إتصالك بالانترنت من عدمه ... لتحديث الدالة يرجى الضغط على Ctrl + ALT + F9 في حالة أردت تجربة الدوال .. تقبلوا تحيات أخوكم أبو البراء :fff: Check Internet Connection.rar

سجلت لك هذا الفيديو أخي الحبيب اطلع على رابط الموضوع http://www.officena.net/ib/index.php?showtopic=59867

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

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

نعم أخي من التبويب Data ثم Data Validation اختر كلمة Decimal من القائمة المسماة Allow للتعامل مع الأرقام والكسور ، ثم في الحقل المسمى Mimimum أدخل بداية الأرقام التي تريد إدخالها وليكن 1 وفي الحقل maximum أدخل نهاية الأرقام التي تريد التعامل معها وليكن 9 في الخلايا التي قمت فيها بتطبيق الخطوات السابقة ستكون مقيد بإدخال الأرقام ما بين 1 و 9 وفقط .. هذا هو التقيد