حصريا اسهل واسرع طريقة للترحيل من الاكسل الى الورد وطباعة التقارير على الورد بدون دمج المراسلات

[@derkaouiabdelkader7366]

درس وشرح ممتاز جدا مزيدا من التقدم والنجاح يارب
شكرا جزيلا لك على هذه المجهودات والمساعدات
تقبل تحياتي

[@Emad_ghazi]

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

[@algathmi]

الله ينور عليك ياعم عماد وكتب لوالديك ووالديهم ولكل من له حق عليك أوفر الحظ والنصيب ويصلح لكم النية والذرية.

[@الراقيأبتغيرضىربي]

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

[@Emad_ghazi]

جزاك الله خير استاذى

[@روائعالاسلام-ن6ر]

ماشاء الله روعة جزاك ربى كل خير

[@dihmanbelaid9366]

شكرا جزيلا استاذ عماد على المجهودات

[@ahmedrahil5988]

جزاكم الله خيرا على المجهود الرائع والمفيد نفعك الله بعلمك . فقط ارجو تحميل الملف مرة اخري لان الملف غيرموجود

[@ashrafabdallaattyaelfeky2639]

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

[@Emad_ghazi]

وحضرتك طيب استاذ اشرف عام سعيد عليك ان شاء الله

[@karimak4339]

جزاك الله كل خير شكراً ..أستاذ عماد

[@belgsat12]

اللهم اجعل هذا العمل في ميزان حسناتك يا أستاذ

[@amerhh3047]

شكرا جزيلا أستاذ عماد بارك الله فيك

[@Emad_ghazi]

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

[@bidouamdbidouamd]

يارب اجعل كل اعماله في ميزان حسناته

[@AbuOmar9]

والله إنني أدعي لك بظهر الغيب .. أسأل الله أن يبارك لك في أهلك و عمرك ومالك وأن يحقق لك ما تتمنى

[@Emad_ghazi]

امين امين يارب العالمين
جزاك الله خير اخى الكريم

[@awadhbinamro948]

جزاك الله خير اخي عماد شكرا جزيلا

[@Emad_ghazi]

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

[@awadhbinamro948]

عماد غازى رحمه لوكان عندي ثلاث شيتات واريد اطبع من كل شيت؟كيف اعمل...هل مثلا اعمل كود لكل شيت....وشكرا منتظر ردك جزاك الله خير

[@عبدالرحمنالمطيري-ظ8ب]

الله يعطيك العافيه

[@Emad_ghazi]

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

[@bahramkhoshnaw9520]

جزاك الله ... استاذ عماد

[@rabahghouti7070]

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

[@Emad_ghazi]

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

[@لخضرلخضر-ق4ذ]

بارك الله فيك

[@Emad_ghazi]

جزاك الله خير استاذى

[@ahmedsa6047]

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

[@mohamedgomaa7277]

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

[@kadahenni5506]

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

[@abubelal1132]

الله يجزيك الجنة

[@nalsoraby]

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

[@loukkadsaid6205]

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

[@2c586]

هل بالامكان استخراج اكثر من طالب في ورقة وحدة او في جدول واحد في دمج المراسلاات

[@Sameer-cz5tx]

بعد كتابه الكود وعند الحفظ يظهر خطأ باللون الأصفر كما أن رابط تحميل الكود لا يعمل اذا امكن نشر الكود هنا في تعليق وجزاك الله عنا خير الجزاء

[@joseflama7286]

جزيل الشكر أستاذ لو وضحت لنا دالة exportasfixed و هل تعمل في نظام office2003/2007 و ماهي مكتبة vba المسؤولة عن الدالة لانني طبقت مانشرته من قبل و لم يعمل عندي
مع جزيل الشكر

[@abnh2003]

شكراً

[@fahadghazi7470]

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

[@seemoon6338]

مرحبة استاذ عماد ممكن سوال خارجي .. مشكور مقدما كيف يمكن عمل ترقيم تلقائي بضغطة زر فيvba لكن انا اريد في كل سنه جديدة ان يتم الترقيم من رقم واحد .. وهكذا وشكرا لك

[@هلالالعبسى-ش2ش]

استاذ عماد هل اوفيس 2013 يملك هذه الخاصية

[@fadeafarouk2011]

استاذ عماد عملت الخطوات وتمام لكن يعطني رسالة بخطأ في كتابة الكود (Sub PastsToWord()) باللون الأصفر ايه السبب لو سمحت

[@APOP-dr8ux]

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

[@عبدالرحمنالمطيري-ظ8ب]

لو سمحت إذا برحل عميل واحد فقط واطبعه

[@dihmanbelaid9366]

هل من الممكن طباعة نطاق محدد وشكرا

[@amerhh3047]

ماهي المهمة من كتابة Set appword = Nothing وفي حال
اردنا ان يكون مستند الوورد في الامام كيف يتم كتابة الكود

[@derkaouiabdelkader7366]

ممكن عند ظغط على زر طباعة
يطبع البيانات اريده يغلق وورد
وشكرا

[@derkaouiabdelkader7366]

ممكن عمل هذا المطلوب استاذ

[@محمدعمرعبيدسالم]

ممكن رفع ملف العمل تانى

[@midohabeeb8398]

أرجو من حضضرتك شرح ترحيل البيانات الي خلايا مقسمة جزئين

[@rachid18setexam]

Bravo ___________[] 👍 []

[@Ali1for1ever]

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

[@ملفاتإدارية]

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

[@salemalghamdi1170]

يعطيك العافيه استاذ عماد
انا الكود لم تنفع معي ابدا ماهو الحل ؟

[@redatafeel]

الملف غير موجود يرجى تجديد الرابط

[@Emad_ghazi]

تم تحديث الرابط

[@TXX-pm2jo]

السلام عليكم ورحمة الله وبركاتة اخي عماد غازي اريد البحث في اكثر من ورقة عمل ساقوم باضافة الكود هنا والرجاء اكتشاف الخلل اين
انا لدي اكثر من شيت اقوم بالترحيل لها تمام ما في اي مشكلة لكن عند البحث يقوم عمل البحث في الشيت الاول فقط وانا اريد عملية البحث في اكثر من شيت
هذا بالنسبة لتكست بوكس
Private Sub TextBox8_Change()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
Sheets(1).Activate
ListBox1.Clear
ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
k = 0
For Each c In Range("b2:b" & ss)
b = InStr(c, TextBox8)
If b > 0 Then
ListBox1.AddItem
ListBox1.List(k, 0) = Cells(c.Row, 2).Value
ListBox1.List(k, 1) = Cells(c.Row, 1).Value
ListBox1.List(k, 2) = Cells(c.Row, 3).Value
ListBox1.List(k, 3) = Cells(c.Row, 4).Value
ListBox1.List(k, 4) = Cells(c.Row, 5).Value
ListBox1.List(k, 5) = Cells(c.Row, 6).Value
ListBox1.List(k, 6) = Cells(c.Row, 7).Value
k = k + 1
End If
Next c
End Sub
وهذا بالنسبة لليست بوكس
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Value = ListBox1.List(i, 1)
TextBox2.Text = ListBox1.List(i, 0)
TextBox3.Text = ListBox1.List(i, 2)
TextBox4.Text = ListBox1.List(i, 3)
TextBox5.Text = ListBox1.List(i, 4)
TextBox6.Text = ListBox1.List(i, 5)
TextBox7.Text = ListBox1.List(i, 6)
End If
Next i
End Sub
ارجوك اريد الخلل اين في اسرع وقت ممكن

[@Emad_ghazi]

سيتم عمل شرح للكود ان شاء الله

[@خيثريعقوب]

شكرا جزيلا أستاذ عماد بارك الله فيك

[@Emad_ghazi]

الشكر لله وحدة
اشكرك على مرورك العطر

[@mido7771]

جزاك الله خير

[@Emad_ghazi]

جزاك الله خيراً وبارك الله فيك اخي الكريم

[@nouichichaouki5962]

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

[@yahyayacoubi5434]

استاذ عماد عملت الخطوات وتمام لكن يعطني رسالة بخطأ في كتابة الكود (Sub PastsToWord()) باللون الأصفر ايه السبب لو سمحت