مساعده ( كود أو معادلة تقوم بترحيل بيانات معينة إلى شيت أخر في خلايا معينة)

[الجموعي]

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

جمعه مباركة علينا وعليكم

تحية كبيره للعلامة القدير وأستاذنا الحبيب عبد الله باقشير

على هذا الفورم الرائع جدا.وجزاه الله كل الخير

 

أريد مساعده في الفورم بالمرفق

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

أو عن طريق الفورم وإدراجه في كود الطباعه وهذا أفضل إن تم عمل ذلك

أنا إستعملت دالة VLOOKUP

على النحو التالي

= VLOOKUP('2003'!G1;data;1;TRUE)

ولم تفلح معي

 

مرن الجموعي.rar

[شوقي ربيع]

السلام عليكم

ان كان فهمي لطلبك صحيح

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

='2003'!H3

ونفس الامر بالنسبة للتاريخ

='2003'!I3

[الجموعي]

 

السلام عليكم

ان كان فهمي لطلبك صحيح

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

='2003'!H3

ونفس الامر بالنسبة للتاريخ

='2003'!I3

ماشاء الله بارك الله فيك أستاذي شوقي ربيع

معادلة رائعه جدا

هذا هو المطلوب

في إنتظار الخبراء بتزويدي بكود عن طريق الفورم

[بن علية حاجي]

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

 

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

 

 

أخوك بن علية

 

المرفق : مرن الجموعي.rar

[الجموعي]

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

 

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

 

 

أخوك بن علية

 

المرفق : مرن الجموعي.rar

أخي بن عليه

شكرا على المحاولة وبارك الله فيك

هذه المحاولة قمت بتجريبها من قبل ونجحت معي

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

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

[شوقي ربيع]

السلام عليكم

ضع هذا الكود في زر الطباعة

Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = ActiveWorkbook.Sheets("2003")
Set Sh2 = ActiveWorkbook.Sheets("ØÈÇÚÉ")

Sh2.Range("B20") = Sh1.Range("H3")
Sh2.Range("E22") = Sh1.Range("I3")

[الجموعي]

 

السلام عليكم

ضع هذا الكود في زر الطباعة

Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = ActiveWorkbook.Sheets("2003")
Set Sh2 = ActiveWorkbook.Sheets("ØÈÇÚÉ")

Sh2.Range("B20") = Sh1.Range("H3")
Sh2.Range("E22") = Sh1.Range("I3")

أخي وأستاذي شوقي ربيع

بارك الله فيك

تم وضع الكود في زر طباعه ونجحت العملية في النصف الأول من صفحة الطباعه

لكن عند إختيار شخص اخر لا يتم ترحيل محر الشهاده وتاريخ تحريرها للنصف الثاني من شيت طباعة

للعلم فإن زر الطباعه يقوم بوظيفتين

عند الطباعه المره الاولى ترحل البيانات إلى النصف الاول من شيت الطباعه

وعند الطباعه للمرة الثانية ترحل البيات للنصف الأخر

[شوقي ربيع]

السلام عليكم

تم التعديل على الملف

 

 

مرن الجموعي.rar

[الجموعي]

السلام عليكم

تم التعديل على الملف

أستاذي وأخي ربيع شوقي

بارك الله فيك وكثر الله من امثالك

إستفدت كثيرا من خبراتكم

جزاكم الله عنا كل الخير وأثابك الجنة

[الجموعي]

أستاذي نسيت هذا الطلب

اريد تعديل في زر الطباعه أريد عند طباعه المره الأولى تظهر نافذه المعاينة لان المعاينة تظهر في أمر الطباعة الثاني

انا أريدها في الامرين

[بن علية حاجي]

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

 

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

 

أخوك بن علية

 

المرفق : مرن الجموعي.rar

[الجموعي]

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

 

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

 

أخوك بن علية

 

المرفق : مرن الجموعي.rar

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

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

وكما يقول المثل زيادة الخير خيرين

على العموم مشكور وما قصرت

أنا بإنتظار الطلب الثاني الذي طلبته من الأستاذ شوقي ربيع

[بن علية حاجي]

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

 

أخي الكريم الجموعي، انظر الملف المرفق لعل فيه المطلوب... (ولا أرى ضرورة وجود أمر الطباعة -أو المعاينة- مرتين)...

 

أخوك بن علية

 

 

الملف المرفق : مرن الجموعي.rar

[الجموعي]

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

 

أخي الكريم الجموعي، انظر الملف المرفق لعل فيه المطلوب... (ولا أرى ضرورة وجود أمر الطباعة -أو المعاينة- مرتين)...

 

أخوك بن علية

 

 

الملف المرفق : مرن الجموعي.rar

بارك الله فيك أخي

كلامك صحيح

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