كلمات الشكر نفذت من كثرة الكلام ربنا يجعل كل ما تشرحة ولاتبخل به علينا فى ميزان حسناتك وتكون شفيعاَ لك يوم القيامه يارب العالمين وكل سنة وانت طيب بمناسبة العام الهجرى الجديد
شكرا جزيلا استاذ عماد ووفقك الله وسدد خطاك، لي طلب، هل يمكن وضع فلترة بين تاريخين لعميل من بين مجموعة عملاء مع الترحيل إلى ورقة عمل جديدة في نفس ملف اكسل وشكرا مجددا.
جزاك الله الف خير، استفسار لو تكرمت كيف يمكن عمل نموذج لورقة طباعه تحتوي على اماكن لعدة صور مع التعليق تحت كل صورة ، طبعا هذا النموذج بيستمد بياناته وروابط الصور من جدول في شيت الاكسل، باختصار كيف الاستغتاء عن الوورد في دمج المراسلات بين الاكسل والوورد والاكتفاء بالاكسل بعمل نفس نموذج الوورد بالاكسل
مرحبة استاذ عماد ممكن سوال خارجي .. مشكور مقدما كيف يمكن عمل ترقيم تلقائي بضغطة زر فيvba لكن انا اريد في كل سنه جديدة ان يتم الترقيم من رقم واحد .. وهكذا وشكرا لك
جزيل الشكر أستاذ لو وضحت لنا دالة exportasfixed و هل تعمل في نظام office2003/2007 و ماهي مكتبة vba المسؤولة عن الدالة لانني طبقت مانشرته من قبل و لم يعمل عندي مع جزيل الشكر
استاذ عماد تحية احترام لكم انا استخدمت الطريقة السابقة لغرض ربط الوورد مع الاكسل وواجهتني مشكلة جعلتني اترك المشروع وهي عند نسخ ارقام الى الاكسل واذهب للورد ثم اقوم بالربط اشاهد الارقام المنقولة تغيرت وفيها احرف وانا اريد نسخ نفس الارقام الضاهرة امامي على الخلية في الاكسل شكرا مقدما.
السلام عليكم ورحمة الله وبركاتة اخي عماد غازي اريد البحث في اكثر من ورقة عمل ساقوم باضافة الكود هنا والرجاء اكتشاف الخلل اين انا لدي اكثر من شيت اقوم بالترحيل لها تمام ما في اي مشكلة لكن عند البحث يقوم عمل البحث في الشيت الاول فقط وانا اريد عملية البحث في اكثر من شيت هذا بالنسبة لتكست بوكس 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 ارجوك اريد الخلل اين في اسرع وقت ممكن
درس وشرح ممتاز جدا مزيدا من التقدم والنجاح يارب
شكرا جزيلا لك على هذه المجهودات والمساعدات
تقبل تحياتي
جزاك الله خير استاذى يسعدنى مرورك
الله ينور عليك ياعم عماد وكتب لوالديك ووالديهم ولكل من له حق عليك أوفر الحظ والنصيب ويصلح لكم النية والذرية.
كل التوفيق لك أستاذ عماد كتب الله اجرك ونفع بك الأمة
جزاك الله خير استاذى
جزاكم الله خيرا على المجهود الرائع والمفيد نفعك الله بعلمك . فقط ارجو تحميل الملف مرة اخري لان الملف غيرموجود
كلمات الشكر نفذت من كثرة الكلام ربنا يجعل كل ما تشرحة ولاتبخل به علينا فى ميزان حسناتك وتكون شفيعاَ لك يوم القيامه يارب العالمين وكل سنة وانت طيب بمناسبة العام الهجرى الجديد
وحضرتك طيب استاذ اشرف عام سعيد عليك ان شاء الله
ماشاء الله روعة جزاك ربى كل خير
والله إنني أدعي لك بظهر الغيب .. أسأل الله أن يبارك لك في أهلك و عمرك ومالك وأن يحقق لك ما تتمنى
امين امين يارب العالمين
جزاك الله خير اخى الكريم
شكرا جزيلا أستاذ عماد بارك الله فيك
جزاك الله خير اخى الكريم
جزاك الله خير اخي عماد شكرا جزيلا
جزاك الله خير اخى الكريم
عماد غازى رحمه لوكان عندي ثلاث شيتات واريد اطبع من كل شيت؟كيف اعمل...هل مثلا اعمل كود لكل شيت....وشكرا منتظر ردك جزاك الله خير
شكرا جزيلا استاذ عماد على المجهودات
جزاك الله كل خير شكراً ..أستاذ عماد
اللهم اجعل هذا العمل في ميزان حسناتك يا أستاذ
الله يعطيك العافيه
جزاك الله خيراً
شكرا جزيلا استاذ عماد ووفقك الله وسدد خطاك، لي طلب، هل يمكن وضع فلترة بين تاريخين لعميل من بين مجموعة عملاء مع الترحيل إلى ورقة عمل جديدة في نفس ملف اكسل وشكرا مجددا.
يارب اجعل كل اعماله في ميزان حسناته
جازاك الله خيرا
جزاك الله خير اخى الكريم
جزاك الله الف خير، استفسار لو تكرمت كيف يمكن عمل نموذج لورقة طباعه تحتوي على اماكن لعدة صور مع التعليق تحت كل صورة ، طبعا هذا النموذج بيستمد بياناته وروابط الصور من جدول في شيت الاكسل، باختصار كيف الاستغتاء عن الوورد في دمج المراسلات بين الاكسل والوورد والاكتفاء بالاكسل بعمل نفس نموذج الوورد بالاكسل
بارك الله فيك
جزاك الله خير استاذى
شكراً لحضرتك.. طلب صغير معلش ممكن طباعة مدى متغير نتيجة لبحث عن اسم محدد من ملف الأكسيل من على الوورد
جزاك الله ... استاذ عماد
جزاك الله خيرا
بعد كتابه الكود وعند الحفظ يظهر خطأ باللون الأصفر كما أن رابط تحميل الكود لا يعمل اذا امكن نشر الكود هنا في تعليق وجزاك الله عنا خير الجزاء
بارك الله فيك . و لكن في حالو وجود عدة شيتات اكسل هل افتح لكل شيت مديول؟
هل بالامكان استخراج اكثر من طالب في ورقة وحدة او في جدول واحد في دمج المراسلاات
الله يجزيك الجنة
شكرا لك استاذي الفاضل ولكن الكود لا يعمل مع اكسل 2007 ارجو منك تعديله ليعمل على 2007 اذا تكرمت
تقبل شكري وتحياتي على جهودك المشكورة
ممكن عند ظغط على زر طباعة
يطبع البيانات اريده يغلق وورد
وشكرا
ممكن عمل هذا المطلوب استاذ
مرحبة استاذ عماد ممكن سوال خارجي .. مشكور مقدما كيف يمكن عمل ترقيم تلقائي بضغطة زر فيvba لكن انا اريد في كل سنه جديدة ان يتم الترقيم من رقم واحد .. وهكذا وشكرا لك
استاذ عماد
انا اريد انا احدد له الخليا المراد طبعتها بالاختيار اليدوى وليس من خلال كود فهل هذا ممكن
جزيل الشكر أستاذ لو وضحت لنا دالة exportasfixed و هل تعمل في نظام office2003/2007 و ماهي مكتبة vba المسؤولة عن الدالة لانني طبقت مانشرته من قبل و لم يعمل عندي
مع جزيل الشكر
استاذ عماد هل اوفيس 2013 يملك هذه الخاصية
استاذ عماد عملت الخطوات وتمام لكن يعطني رسالة بخطأ في كتابة الكود (Sub PastsToWord()) باللون الأصفر ايه السبب لو سمحت
استاذ عماد تحية احترام لكم
انا استخدمت الطريقة السابقة لغرض ربط الوورد مع الاكسل وواجهتني مشكلة جعلتني اترك المشروع وهي
عند نسخ ارقام الى الاكسل واذهب للورد ثم اقوم بالربط اشاهد الارقام المنقولة تغيرت وفيها احرف وانا اريد نسخ نفس الارقام الضاهرة امامي على الخلية في الاكسل شكرا مقدما.
ماهي المهمة من كتابة Set appword = Nothing وفي حال
اردنا ان يكون مستند الوورد في الامام كيف يتم كتابة الكود
هل من الممكن طباعة نطاق محدد وشكرا
لو سمحت إذا برحل عميل واحد فقط واطبعه
شكراً
ممكن رفع ملف العمل تانى
يعطيك العافيه استاذ عماد
انا الكود لم تنفع معي ابدا ماهو الحل ؟
أرجو من حضضرتك شرح ترحيل البيانات الي خلايا مقسمة جزئين
لكن عندما نريد طباعة ملف محتوى واحد فقط وليس كل الجدول لم تتكلم عن الطريقة
Bravo ___________[] 👍 []
الملف غير موجود يرجى تجديد الرابط
تم تحديث الرابط
السلام عليكم ورحمة الله وبركاتة اخي عماد غازي اريد البحث في اكثر من ورقة عمل ساقوم باضافة الكود هنا والرجاء اكتشاف الخلل اين
انا لدي اكثر من شيت اقوم بالترحيل لها تمام ما في اي مشكلة لكن عند البحث يقوم عمل البحث في الشيت الاول فقط وانا اريد عملية البحث في اكثر من شيت
هذا بالنسبة لتكست بوكس
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
ارجوك اريد الخلل اين في اسرع وقت ممكن
سيتم عمل شرح للكود ان شاء الله
شكرا جزيلا أستاذ عماد بارك الله فيك
الشكر لله وحدة
اشكرك على مرورك العطر
جزاك الله خير
جزاك الله خيراً وبارك الله فيك اخي الكريم
بارك الله فيكم
استاذ عماد عملت الخطوات وتمام لكن يعطني رسالة بخطأ في كتابة الكود (Sub PastsToWord()) باللون الأصفر ايه السبب لو سمحت