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

مساعدة فى كود الترحيل


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

السلام عليكم

ياأخي ، هذا ليس الملف الذي به الأكواد والمسميات

غير كما تشاء في الملف الأصلي ولاتحذف منه أسماء النطاقات أو الأكواد

ثم أنه تم حل الموضوع مرة أخري علي الرابط

http://www.officena.net/ib/index.php?showtopic=40899

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

السلام عليكم

أخي الحبيب

الأكواد في مثل حالتك هذه يتم تفصيلها (إن جاز التعبير) علي شكل وتنسيق البيانات التي أعطيتها أنت في الأول

ولايجوز بعدها أن تغير أسماء الأعمدة (العناوين) ، إذا كانت تمثل معيارا في الكود

وإذا نظرت للكود ستجد الأمر التالي

    C1 = WorksheetFunction.Match(x, [B4:CX4], 0) + 1 'Asas columns begining

وهو أمر Match حيث (x) هي أساس 1 أو أساس 2 أو .. أساس 6

كما بالأسطر السابقة له

فلابد أن يكون العناوين بالصف الرابع من الورقة ولابد ان تكون تلك العناوين أساس 1 أو أساس 2 أو .. أساس حتي تجد الدالة Match مرجع تعود به

قد أكون أخطأت في طريقة التفصيل هذه

ولكن إن أردت الكود بصورة عامة يأخذ أي شكل أنت تتخيله لإدخال البيانات سيكون كود كبير للغاية ومعقد وليس من السهل عليا أنا شخصيا إيجاد الوقت لذلك

عفوا للإطالة ولكني أحببت ان تأخذ فكرة كافية عن الموضوع

والآن أمامك احد الحلول التالية

إما أن تلتزم بالعناوين والأماكن التي وضعت بها السؤال أولا

وإما أن تعيد الصياغة بصورة نهائية (ثم تلتزم أيضا بالعناوين والأماكن التي ستضعها)

وإما أن تنتظر أحد الإخوة (يكون لديه وقت كافي)

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information