Copy_excel_to_word

[mennad sofiane 1,041]

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

سفيان 

Copy_excel_to_word.rar

[زياد عبد الجليل 58]

السلام عليكم استاذ مناد

بارك الله فيك على هذا العمل القيم

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

Range("A1:G30").Copy

و استبداله بهذا الكود

ActiveSheet.Range("A1:g" & [A1].End(xlDown).Row).Copy

بارك الله فيك استاذ

[بن علية حاجي 1,996]

السلام عليكم

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

بن علية حاجي