ياسر فاروق

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

9 قام بنشر الثلاثاء في 09:05 السلام عليكم ورحمة الله وبركاته الساده الافاضل اولا اشكر كل من ساعدنى ويساعد كل محتاج للمعرفة وقد استفدت كثيرا من هذا الموقع ولكنى لا استطيع فهم الـ VBA إلا بسيطا جدا مع المحاولات ولذلك تجدون ان هناك دائما استفسار منى كثيرا فارجو أل يتضايق القائمين على الموقع من هذا مرفق جدول به كود ضرب - مساعده من اساتذة الموقع الافاضل- خلايا ووضعها فى خليه أخرى وهذه الجداول كثيرة وبها شيتات وصفحات والحمدالله وصلت الى كود عملية الضرب ويتم إجراءه مره واحده على جميع الصفحات فى جميع الشيتات المساعده تتمثل فى: كود يتم من خلاله تجميع كل صفحة على حدا فى أخر كل صفحة (المجموع) كما هو مبين بالمرفق شكرا على تعاونكم

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

الساده السلام عليكم ورحمة الله وبركاته أولاً لم أبحث فى موقعنا عن هذا الموضوع ولكن اود ان أنشر الموضوع لانه يهم قطاع كبير من مستخدمى الأوفيس (المرفق صوره وبها الماكرو + المعادلة) وهو تحويل ملفات PDF باللغة العربية إلى الوورد أو الاكسيل - تظهر الحروف غريبة وبالبحث وجدت ماكرو + كتابة معادلة فى الخانة المراد تعديل الكتابة بها وهذا يتم على ملف الاكسيل

9 قام بنشر الثلاثاء في 09:05 السلام عليكم ورحمة الله وبركاته الساده الافاضل اولا اشكر كل من ساعدنى ويساعد كل محتاج للمعرفة وقد استفدت كثيرا من هذا الموقع ولكنى لا استطيع فهم الـ VBA إلا بسيطا جدا مع المحاولات ولذلك تجدون ان هناك دائما استفسار منى كثيرا فارجو أل يتضايق القائمين على الموقع من هذا مرفق جدول به كود ضرب - مساعده من اساتذة الموقع الافاضل- خلايا ووضعها فى خليه أخرى وهذه الجداول كثيرة وبها شيتات وصفحات والحمدالله وصلت الى كود عملية الضرب ويتم إجراءه مره واحده على جميع الصفحات فى جميع الشيتات المساعده تتمثل فى: كود يتم من خلاله تجميع كل صفحة على حدا فى أخر كل صفحة (المجموع) كما هو مبين بالمرفق شكرا على تعاونكم Sample GxE=D.xlsm

الساده أرجو مساعدتى فى عمل الاتى عند وضع رقم فى خلية يتم ضربها فى خلية أخرى (الرقم متغير والخلية متغيرة ) مرفق الملف ومظلل الخلايا التى يتم فيها Sample.xlsx

9 قام بنشر الثلاثاء في 09:05 السلام عليكم ورحمة الله وبركاته الساده الافاضل اولا اشكر كل من ساعدنى ويساعد كل محتاج للمعرفة وقد استفدت كثيرا من هذا الموقع ولكنى لا استطيع فهم الـ VBA إلا بسيطا جدا مع المحاولات ولذلك تجدون ان هناك دائما استفسار منى كثيرا فارجو أل يتضايق القائمين على الموقع من هذا مرفق جدول به كود ضرب - مساعده من اساتذة الموقع الافاضل- خلايا ووضعها فى خليه أخرى وهذه الجداول كثيرة وبها شيتات وصفحات والحمدالله وصلت الى كود عملية الضرب ويتم إجراءه مره واحده على جميع الصفحات فى جميع الشيتات المساعده تتمثل فى: كود يتم من خلاله تجميع كل صفحة على حدا فى أخر كل صفحة (المجموع) كما هو مبين بالمرفق شكرا على تعاونكم Sample GxE=D.rar

السلام عليكم ورحمة الله وبركاته الساده الافاضل اولا اشكر كل من ساعدنى ويساعد كل محتاج للمعرفة وقد استفدت كثيرا من هذا الموقع ولكنى لا استطيع فهم الـ VBA إلا بسيطا جدا مع المحاولات ولذلك تجدون ان هناك دائما استفسار منى كثيرا فارجو أل يتضايق القائمين على الموقع من هذا مرفق جدول به كود ضرب - مساعده من اساتذة الموقع الافاضل- خلايا ووضعها فى خليه أخرى وهذه الجداول كثيرة وبها شيتات وصفحات والحمدالله وصلت الى كود عملية الضرب ويتم إجراءه مره واحده على جميع الصفحات فى جميع الشيتات المساعده تتمثل فى: كود يتم من خلاله تجميع كل صفحة على حدا فى أخر كل صفحة (المجموع) كما هو مبين بالمرفق شكرا على تعاونكم Sample GxE=D.rar

أ/ ali mohamed ali السلام عليكم ورحمة الله وبركاته شكرا على مساعدتك وإفادتك الأخيرة قمت باستقطاع أول سطرين من الكود الاول واخر سطر قبل النهاية وتم تجربته وأدى ما كنت أبحث عنه بفضل مساعدتك والاستاذ الفاضل (صاحب الكود) ولى رجاء فى المساعده ومرفق الملف وهو عباره عن عدة شيتات تنتهى بتجميع كل صفحة ويتم نقلها بعد ذلك اسفل الشيت برقم الصفحة ويتم نقلها الى اخر الملف بشيت تجميع هل تستطيع مساعدتى فى عمل كل هذا عن طريق VBA Sub Test() For s = 1 To Sheets.Count Sheets(s).Select Dim LR As Long LR = Range("C" & Rows.Count).End(xlUp).Row Range("i1:i" & LR) = Evaluate("C1:C" & LR & "*D1:D" & LR) Next s End Sub وشكرا مره اخرى B01.rar

أ/ ali mohamed ali السلام عليكم ورحمة الله وبركاته شكرا على مساعدتك السريعة والمفيده وأزيد من علمك أن تجعل الكود يعمل على كل الشيتات الموجوده بالملف مره واحده دون المرور على كل شيت وشكرا مره اخرى

أ/ ali mohamed ali السلام عليكم ورحمة الله وبركاته أشكرك على اهتمامك والاستجابة برجاء شرح خطوات الكود بسبب وجود جداول تتغير فيها أحرف الاعمدة وهل الكود يعمل على كل الشيتات الموجوده بالملف وشكرا مره اخرى

الساده السلام عليكم ورحمة الله وبركاته المرفق كود عمليه ضرب عمودين ووضع الناتج فى العمود الثالث من احد الساده الافاضل بالموقع وأريد شرح لخطوات الكود حتى أستطيع الاستفاده منه فى ملف أخر (اختلاف الأعمدة ) Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "I")) = False Then Cells(r, "F").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub

الساده السلام عليكم ورحمة الله وبركاته المرفق كود عمليه ضرب عمودين ووضع الناتج فى العمود الثالث من احد الساده الافاضل بالموقع وأريد شرح لخطوات الكود حتى أستطيع الاستفاده منه فى ملف أخر (اختلاف الأعمدة ) Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "I")) = False Then Cells(r, "F").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub

أ/ أحمد يوسف شكرا على اهتمامك ومرفق الملف وبه التوضيح sample.rar أ / anegoumi شكرا ولكن الاجراء لم يتم كما شرحته وأيضا يوجد الكثير من هذه البنود

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

أ/تومى محمد شكرا على وقتك ولكن الملف وورد وليس إكسيل

الساده الافاضل السلام عليكم ورحمة الله وبركاته برجاء المساعده فى إيجاد طريقة لعملية ضرب خلايا بملف وورد صفحات كثيرة QFD- BOQ-Annex.docx

الساده السلام عليكم ورحمة الله وبركاته برجاء المساعده فى يوجد ملف به اكثر من 16 شيت اريد تجميعه هذه الشيتات أسفل بعضها بترتيبها من الشمال بنفس التنسيق وشكرا BOQ.rar

السلام عليكم ورحمة الله وبركاته شكرا على الرد ومرفق الملف وتم تظليل السطر المراد إلغاء الخط منه (مثال يطبق على جميع السطور الفاضية Div. 15a.rar

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

الساده السلام عليكم ورحمة الله وبركاته المرفق كود عمليه ضرب عمودين ووضع الناتج فى العمود الثالث من احد الساده الافاضل بالموقع وأريد شرح لخطوات الكود حتى أستطيع الاستفاده منه فى ملف أخر ولكن مسمى الأعمدة مختلفة Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "I")) = False Then Cells(r, "F").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub وشكرا

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

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

الساده السلام عليكم ورحمة الله وبركاته عذرا لم أرفق الملف المراد التطبيق عليه كود عملية لضرب ووضع الناتج فى العمود الاخر 1- (العمود H × العمود G = الناتج فى العمود F ) 2- ويتم التجميع فى نهاية الشيت أمام كلمة (المجموع المرحل إلى ملخص جدول الكميات) 3- ويتم ترحيل كل شيت امام الخانة الخاصة به فى شيت (Bill summary) هذا الجدول غير ثابت فى عدد الشيتات ويطبق على كافة الشيتات مره واحده شكرا على مجهودكم ووقتكم BOQ.rar

الساده السلام عليكم ورحمة الله وبركاته المرفق كود عمليه ضرب عمودين ووضع الناتج فى العمود الثالث من احد الساده الافاضل بالموقع وأريد شرح لخطوات الكود حتى أستطيع الاستفاده منه فى ملف أخر ولكن مسمى الأعمدة مختلفة Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "I")) = False Then Cells(r, "F").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub وشكرا