كود لنسخ صفوف معينة بشروط معينة مع اضافة صفوف باسماء ثابتة بين الصفوف المنسوخة

[mka1761975]

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

Book1.rar

[mka1761975]

السلام عبيكم ورحمة الله وبركاته

نلرجو سرعة الرد

[حمادة باشا]

الأخ الكريم/ mka1761975

السلام عليكم ورحمة الله وبركاته

أرجو أن يكون هذا المطلوب

تقبل تحياتي

 

Book1-Copy Table & Format.rar

[محمد ابو البـراء]

أخي // حمادة باشا

جزاك الله خيراً

كود مميز

[mka1761975]

الله ينور وهو المطلوب فعلا ولكن كما قلت اريدها فى مدى معين اي مثلا من المحطة 300 الى 500

هدف اخر

وهو انى بعد نسخ هذا المدى كما تفضلتم بفعله ساستخدم معادلة ثابتة لصفوف الارقام وليكن اول عمود فى العمود الثالث وشكرا

[حمادة باشا]

الأستاذ الفاضل/محمد أبو البراء

السلام عليكم ورحمة الله وبركاته

شاكرا لكم المرور - تقبل تحياتي

[حمادة باشا]

الأخ الكريم/ mka1761975

السلام عليكم ورحمة الله وبركاته

تم تنفيذ المطلوب - الشرح في الملف

بالنسبة للمعادلة المطلوب نسخها أرجو التوضيح بمثال

تقبل تحياتي

 

Book1-Copy Table & Format.rar

[mka1761975]

الاستاذ حمادة باشا

الله ينور عليك

كنت قد عملت منذ فترة المثال المرفق ولكن بالمعادلات مما يكون حجمه يكبر تدريجيا كما يكون عبئا على الجهاز لكثرة المعادلات وهو ما جعلنى الجأ اليكم لعمله عن طريق الكود حتى نقلل من اثر المعادلات

المعادلات الموجودة  فى العمود f الى اخر عمود هى ثابتة وتتكرر فى كل بيان اما الاعمدة الاولى فقد تفضلتم وعملتوها بالكود

المطلوب ان اكتب هذه المعادلات عند الضغط على ذر استدعاء الجدول

وهذا سيؤدى الى ان الملف اثناء تحميله لن يوجد به الا البيانات فقط

Bookg22tst.rar

[حمادة باشا]

الأخ الكريم/ mka1761975

السلام عليكم ورحمة الله وبركاته

تم إضافة المعادلات حسب الفهم من الجدول الأخير

رجاء التأكد من صحة المعادلات ونتائجها

تقبل تحياتي

Book1-Copy Table & Format-2.rar

[mka1761975]

بارك الله فيك يا اخى العزيز وواضح انه ان شاء الله  كويس

تم تعديل فبراير 9, 2014 بواسطه mka1761975

[mka1761975]

عايز اكتب الكود دا ومش عارف

SH1.Range("A" & LR).Offset(0, 2).value = SH2.Range("C" & I) - SH2.Range("T1")

[mka1761975]

ارجو تصليح ما فى الملف المرفق من خطأ فى الضغط على button 162

وعايز اضيف هذا السطر

SH1.Range("A" & LR).Offset(0, 2).value = SH2.Range("C" & I) - SH2.Range("T1")

Book1-Copy Table & Format-5.rar

تم تعديل فبراير 10, 2014 بواسطه mka1761975

[mka1761975]

السلام عليكم
معلهش اسئلتى كثرت
كمان لو انا فى المعادلات عايز اعمل هذا الشكل فى الكود الذي ارسلته
d2=$c2+$d$1*$b2
مع العلم ان رقم الخلية سيتغير عند كل صف يطابق البحث المطلوب
يعنى كانها
di=$ci+$d$1*$bi
وانا ساكمل باقى المعادلات
حيث اننى لا اعرف ان اكتب احداثيات الخلية المقصودة
كمتغير ilastrow
فى المعادلة

[حمادة باشا]

الأخ الكريم/ mka1761975

السلام عليكم ورحمة الله وبركاته

السؤال الأول - تم بعض التعديلات البسيطة وإحضار البيانات يعمل من الفورم

السؤال الثاني - المعادلة المذكورة تكتب هكذا ( حيث i = رقم السطر )

Sheet1.Range("D" & i).Formula = "=$C" & i & "+$D$1*$B" & i

تقبل تحياتي

 

 

Book1-Copy Table & Format-5.rar

[عبدالله المجرب]

بارك الله فيك اخي حمادة على هذا العمل المميز

[mka1761975]

بارك الله فيكم جميعا

[حمادة باشا]

الأستاذ الفاضل/ عبدالله المجرب

السلام عليكم ورحمة الله وبركاته

شاكرا لكم المرور العطر - وتقبل تحياتي