انشاء شيت تلقائيا عند كتابة اسم العميل بصفحة العملاء ونقل الديباجة اليه

[ابوعبدالواجد]

السلام عليكم : ممكن عند درج اسم عميل ، مثلاً في B3 نكتب أسم : عبدالله عبدالواحد خالد ، ينشأ شيت بهذا الأسم يحتوي على ما موجود في شيت الديباجة

جزيتم خيرا ، سوف ادرج نتائج الفكرة ، وهذه الديباجة تنقل في كل شيت جديد

جزيتم خيرا

 

انشاء شيت تلقائياً عند كتابة اسم معين.rar

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

أخي العزيز أبو عبد الواجد

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

 

إليك ما طلبت إن شاء الله

ستجد في موديول ورقة العملاء الكود المطلوب ..بمجرد كتابة اسم العميل سيتم نسخ ورقة العمل المسماة "الديباجة" ووضع اسم العميل في الخلية A2 ..

حمل الملف من هنا

تقبل تحياتي

[ابوعبدالواجد]

السلام عليكم

حفظك الله - زادك الله من فضله - جزيت خيرا

اشكرك استاذ ياسر

نفع الله بك - وسلمك من كل مكروه

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

وعليكم السلام أخي الفاضل أبو عبد الواجد

بارك الله فيك وجزيت خيراً على دعواتك الطيبة المباركة

الحمد لله أن تم المطلوب على خير

تقبل تحياتي

[هانى حرحش]

جزاكم الله خيرا ولكن ما فائدة المربع الموجود بأعلى الصفحة

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

أخي الكريم هاني حرحش

لا أدري ما الفائدة منه ..وجدته بالملف الأصلي كما هو ولكن ربما يكون للبحث أو خلافة ..

تقبل تحياتي

[سمير سامي]

جزاكم الله كل خير علي هذه الافاده الجميلة لكن لو اريد اضيف مع الاسم كود العميل او المسلسل

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

منذ ساعه, سمير سامي said:

جزاكم الله كل خير علي هذه الافاده الجميلة لكن لو اريد اضيف مع الاسم كود العميل او المسلسل

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

ActiveSheet.Range("A2").Value = Target.Offset(, -1).Value & " " & ActiveSheet.Name

أما إذا أردت الكود أو المسلسل في خلية أخرى فالأمر بسيط ولكن سيكون في سطر منفرد .. مع ترك السطر السابق كما هو

ActiveSheet.Range("J2").Value = Target.Offset(, -1).Value

تقبل تحياتي

[سمير سامي]

جزاكم الله كل خير علي هذه الافاده الجميلة لكن لو اريد اضيف مع الاسم كود العميل او المسلسل

استاذنا الفاضل 

حاول ادخالالسطر لكن لم ينفذ اظهار المسلسل حيث اريد اظهاركالاتي

اسم العميل : في خلية B2

كود العميل :                 B3

ولاحظت ان الكود لا يعمل اصلا في حالة التعديل 

وشكرا لك اهتمامك 

اسف جدا اخي الفاضل انا لم اطبق الكود صح 

جزاك الله كل خير وحقظك الله و جعلها في ميزان حسناتك ورزقك اعلي فراديس الجنه 

 

شكرا استاذنا ياسر

علي اهتمامك 

وجزاك الله كل خير و جيزيت اعلي فراديس الجنه و جعلها في ميزان حسناتك

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

أخي الكريم سمير

هل الملف المرفق هو ما تقوم بالتطبيق عليه أم ملف آخر ؟

لأن الخلايا A1:C2 مدمجة كلها في خلية واحدة .. أي أن الخلية B2 والخلية B3 ليس لهما وجود في هذا الدمج ..

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

ActiveSheet.Range("J2").Value=

قم بتغيير J2 إلى الخلية المطلوبة .. قم بإزالة الدمج واستخدم الخلية B2 كما ترغب

 

وكما فهمت من طلبك ..

السطر الأول يتم تعديله بهذا الشكل (السطر موجود في الكود فقط قم بتعديله)

ActiveSheet.Range("B2").Value = ActiveSheet.Name

وأضف بعده السطر التالي

ActiveSheet.Range("B3").Value = Target.Offset(, -1).Value

تقبل تحياتي

[سمير سامي]

شكرا لك اخونا الكريم جدا و استاذنا الفاضل / ياسر

و جزاك الله كل خير و بارك فيك ورزقك اعلي فراديس الجنه

 

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

وجزيت خيراً بمثل ما دعوت لي أخي الكريم سمير

والحمد لله أن تم المطلوب على خير

تقبل تحياتي