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

لتوسيع نطاق العمل قم بالدخول على التبويب Formulas ثم Name Manager ثم حدد النطاق المسمى MyDataواضغط Edit وغير ما يلزم ='بيانات أساسية'!$A$2:$AA$100 وكذلك مع النطاق Serial ='بيانات أساسية'!$A$2:$A$100

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

أخي الحبيب حسب ما فهمت من موضوع سابق لك ليس هذا هو المطلوب لأنه لم يتم عكس الأيام والشهور والدليل قم بعمل تنسيق بهذه الصيغة لكل التواريخ لديك ستجد أنه لم يتغير سوى تنسيق التاريخ فقط dd - mmmm - yyyy

الأخ الفاضل الشهابي أكيد استفدت معلومة جديدة .. بارك الله فيك

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

السلام عليكم إخواني الأحباب في المنتدى الرائع أقدم لكم درس بسيط عن الحلقة التكرارية For... Next لأهمية استخدام مثل هذه الحقات في التعامل مع الأكواد .. أرجو أن ينفع الله به المسلمين FOR...NEXT LOOP.rar

أخي الشهابي امتداد الملف oxps ما البرنامج الذي يقوم بفتح هذا الملف؟ جربت Acrobat Reader لكنه لم يفتحه .. وكيف قمت بحفظه بهذا الامتداد؟

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

جرب الكود : Sub ConvertAll() With Sheets("XYZ").Range("F4:F7") .Formula = "=SUMIF($B$4:$C$14,E4,$C$4:$C$14)" .Value = .Value End With With Sheets("XYZ").Range("G4:G7") .Formula = "=COUNTIF($B$4:$B$14,E4)" .Value = .Value End With With Sheets("XYZ").Range("I4:I7") .Formula = "=VLOOKUP(E4,$E$4:$H$7,4,0)" .Value = .Value End With End Sub

ارفق ملفك أخي

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

السلام عليكم إخواني الكرام إليكم بالمرفق كود يقوم بعمل تقويم ميلادي للعام بأكمله أرجو أن ينال إعجابكم ، وينفعكم وينفع به المسلمين Create Calendar.rar

ارفق ملف به مثال لإحدى الدوال التي تريدها أخي عبد العظيم

جميل يا أبو صلاح الله ينور عليك تسلم الأيادي

تفضل مثال بسيط لتحويل المعادلة إلى كود : مثلا نريد أن نقوم بترقيم البيانات .. بفرض أن البيانات في النطاق B1:B10 بالمعادلة بمكن الترقيم بهذا الشكل =IF(B1="";"";ROW()) ثم سحب المعادلة إلى الخلية A10 بالكود : Sub ConvertFormula() Dim LastR As Long LastR = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row With Sheets("Data").Range("A1:A" & LastR) .FormulaR1C1 = "=IF(RC2="""","""",ROW())" .Value = .Value End With End Sub يتم في الكود استخدام المعادلة مع بعض التغييرات فمثلا ; تتحول إلى , وأقواس التنصيص توضع بين أقواس تنصيص أخرى واستخدام الإشارة للخلايا يتم باستخدام R1C1 وفي المعادلة المرفقة كتب R فقط إشارة إلى نفس الصف ، وC2 إشارة للعمود الثاني الذي هو عمود B Convert Formula.rar

بالنسبة للنص مثلا في الخلية B2 هل الشهر هو يناير أم فبراير .. يعني زيه زي التنسيق في النطاق B10:B13 ولا مختلف

أخي الفاضل ممكن ترفق ملف آخر به نطاق A1:A15 مثلا وتحدد في كل نطاق شكل التنسيقات المختلفة حتى أستطيع استيعاب الأمر حيث أن الأمر التبس عليا صراحة

تفضل أخي الكريم المرفق التالي يمكنك في الكود تغيير مسار الملفات ، وتغيير النطاق المراد نسخه في كل الملفات يتم نسخ النطاق المراد بشكل أفقي كما أرفقت في مثالك Merge Files.rar

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

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

الأخ علي فتحي تفضل المرفق التالي ويمكنك تغيير شكل التاريخ من خلال الكود بكل سهولة Format Dates.rar

جرب الملف التالي أخي الكريم Bills.rar

وهذا حل آخر مشابه للسابق لكن بدون الاضطرار إلى استبدال / بعلامة * القائمة المنسدلة.rar

الأروع هي مشاركاتكم أبو صلاح مفيش داعي للأسف .. أنا بس أحب يكون فيه نظام عشان لما حد يبحث عن موضوع يلاقي اللي هو عايزه .. الحمد لله الذي بنعمته تتم الصالحات

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