اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

لذا ارجوا تبسيط الكود بحيث مهما زادت الاسماء واوراق العمل لا يبدو كبيرا مع امكانية مسح البيانات القديمه قبل الاستيراد

ويوجد كود اخر لمسح البيانات ارجو تبسيطه  ..والشكر مقدما للجميع

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

file.rar

رابط هذا التعليق
شارك

انا بصمم برنامج والملف الذي به البيانات يتم استخراجه من الجدول المدرسي الخاص بالمستخدم  واسماء الشيتات تختلف من مستخدم لاخر والمطلوب ان استورد هذه البيانات للبرنامج ..بمعنى اخر الملف الذي به البيانات لن يكون في متناولى كمصمم 

 

رابط هذا التعليق
شارك

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

ملاحظة:  لماذا  في  ملف  الجداول  كل  جدول  يبدا  من السبت  الى  الاربعاء  ويحتوي  على  عمود  به  0 بينما  عند  استيراد  البيانات  في  ملف الاستيراد يبدا من الاحد  الى الخميس  ولا يوجد  العمود  الذي  يحتوي  على 0 (  اختلاف  في  تركيبة الجدول ) ..كيف  سيتم  الاستيراد  في  هذه  الحالة ؟

 

رابط هذا التعليق
شارك

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

For r = 1 To 100
If Cells(r, 21) = "" Then Exit For
mhname = Cells(r, 21).Value
ok.Activate
Worksheets(mhname).Select
Range("c3:j12").Copy
ThisWorkbook.Activate
Sheets("æÑÞÉ1").Select
Cells(r * 13, 2).PasteSpecial xlPasteAllMergingConditionalFormats
Next

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information