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

Рет қаралды 20,153

عماد غازى رحمه

Күн бұрын

Пікірлер: 64

@derkaouiabdelkader7366 6 жыл бұрын

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

@Emad_ghazi 6 жыл бұрын

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

@algathmi 4 жыл бұрын

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

@روائعالاسلام-ن6ر 6 жыл бұрын

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

@الراقيأبتغيرضىربي 6 жыл бұрын

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

@Emad_ghazi 6 жыл бұрын

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

@dihmanbelaid9366 5 жыл бұрын

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

@عبدالرحمنالمطيري-ظ8ب 4 жыл бұрын

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

@Emad_ghazi 4 жыл бұрын

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

@amerhh3047 6 жыл бұрын

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

@Emad_ghazi 6 жыл бұрын

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

@awadhbinamro948 6 жыл бұрын

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

@Emad_ghazi 6 жыл бұрын

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

@awadhbinamro948 6 жыл бұрын

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

@karimak4339 6 жыл бұрын

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

@لخضرلخضر-ق4ذ 6 жыл бұрын

بارك الله فيك

@Emad_ghazi 6 жыл бұрын

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

@rabahghouti7070 6 жыл бұрын

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

@Emad_ghazi 6 жыл бұрын

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

@belgsat12 4 жыл бұрын

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

@bahramkhoshnaw9520 6 жыл бұрын

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

@bidouamdbidouamd 4 жыл бұрын

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

@ahmedsa6047 4 жыл бұрын

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

@abubelal1132 5 жыл бұрын

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

@AbuOmar9 6 жыл бұрын

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

@Emad_ghazi 6 жыл бұрын

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

@ahmedrahil5988 3 жыл бұрын

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

@ashrafabdallaattyaelfeky2639 6 жыл бұрын

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

@Emad_ghazi 6 жыл бұрын

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

@abnh2003 6 жыл бұрын

شكراً

@2c586 5 жыл бұрын

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

@rachid18setexam 11 ай бұрын

Bravo ___________[] 👍 []

@loukkadsaid6205 3 жыл бұрын

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

@kadahenni5506 2 жыл бұрын

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

@mohamedgomaa7277 3 жыл бұрын

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

@محمدعمرعبيدسالم 8 ай бұрын

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

@dihmanbelaid9366 5 жыл бұрын

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

@هلالالعبسى-ش2ش 6 жыл бұрын

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

@APOP-dr8ux 6 жыл бұрын

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

@Sameer-cz5tx 5 жыл бұрын

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

@عبدالرحمنالمطيري-ظ8ب 9 ай бұрын

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

@nalsoraby 2 жыл бұрын

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

@derkaouiabdelkader7366 6 жыл бұрын

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

@derkaouiabdelkader7366 6 жыл бұрын

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

@fahadghazi7470 6 жыл бұрын

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

@joseflama7286 6 жыл бұрын

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

@salemalghamdi1170 4 жыл бұрын

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

@redatafeel 3 жыл бұрын

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

@Emad_ghazi 3 жыл бұрын

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

@seemoon6338 6 жыл бұрын

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

@midohabeeb8398 6 жыл бұрын

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

@fadeafarouk2011 5 жыл бұрын

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

@ملفاتإدارية Жыл бұрын

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

@amerhh3047 6 жыл бұрын

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

@Ali1for1ever 4 жыл бұрын

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

@TXX-pm2jo 6 жыл бұрын

السلام عليكم ورحمة الله وبركاتة اخي عماد غازي اريد البحث في اكثر من ورقة عمل ساقوم باضافة الكود هنا والرجاء اكتشاف الخلل اين انا لدي اكثر من شيت اقوم بالترحيل لها تمام ما في اي مشكلة لكن عند البحث يقوم عمل البحث في الشيت الاول فقط وانا اريد عملية البحث في اكثر من شيت هذا بالنسبة لتكست بوكس 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 6 жыл бұрын

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