كود ترحيل

[احمد علي 1981]

السلام عليكم

اخواني الكرام

لدى ملف اريد عمل استدعاء لبيانات sheet1  و sheet2  الى sheet3  حسب النوع عند اختياره في sheet3  ان يتم وضع القيم في الجدول وفي جدول التكلفة ان يجلب فقط بيانات التكلفة والنقل فقط بدون التامين  كما في المرفق

 

 

وشكرا

Book1.rar

[سليم حاصبيا]

عسى ان ينال اعجابك

منتوجات زراعية.rar

[احمد علي 1981]

شكرا اخي سليم عمل رائع وهو المطلوب بالفعل لكن هل يمكن عمله بالكود ؟؟

 

مع الشكر

[سليم حاصبيا]

تم التحويل الى كود

انظر الى الصفحة الاضافية

منتوجات كود زراعية.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي سليم

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

إضافة بسيطة جداً لكودك الرائع للحصول على قيم فقط

Sub montougat()
    [a5] = [b1]
    [b5:c5].Formula = "=INDEX(Sheet1!$B$2:$C$100,MATCH($A5,Sheet1!$A$2:$A$100,0),MATCH(B$4,Sheet1!$B$1:$C$1,0))"
    [b5:c5].Value = [b5:c5].Value
    [a10] = [b1]
    [b10:c10].Formula = "=INDEX(Sheet2!$B$2:$D$100,MATCH($A10,Sheet2!$A$2:$A$100,0),MATCH(B$9,Sheet2!$B$1:$D$1,0))"
    [b10:c10].Value = [b10:c10].Value
End Sub

وذلك تخفيفاً من حجم الملف في حالة التعامل مع بيانات كثيرة..

تقبل تحياتي

[سليم حاصبيا]

 بارك الله بك اخي ياسر على هذه الاضافة

لم اضعها صراحة لان الملف صغير جداً 15 كيلو

[ياسر خليل أبو البراء]

 بارك الله بك اخي ياسر على هذه الاضافة

لم اضعها صراحة لان الملف صغير جداً 15 كيلو

أحب أن أنوه إليك أن المرفقات في غالب الأمر بتكون نماذج مصغرة للملف الأصلي

والملف الأصلي ممكن يكون به بيانات كثيرة جداً ..

مشكور على الكود الرائع والحل الجميل باستخدام الدالة Index (ننتظر منك شرح للدالة في الموضوع المخصص له ..لإثراء الموضوع ، ولعلمي المطلق أنك مجيد في استخدام المعادلات بشكل لا يقارن

تقبل تحياتي وودي وحبي في الله

[احمد علي 1981]

اخي سليم اخي ياسر جزيل الشكر لكم

الكود يعمل بشكل رائع جدا

[احمد علي 1981]

عذرا اخواني

الكود يعمل بشكل رائع لكن عند سحبه على ملف اخر الكود لا يعمل وفي القيم يطلع الخطا التالي N/A#

 

وعذرا على الازعاج

[ياسر خليل أبو البراء]

أخي الكريم أحمد فؤاد

تم إزالة الخطأ باستخدام IFERROR والخطأ ناتج عن عدم تطابق عملية البحث أي أن المنتج المراد البحث عنه غير موجود بورقة البيانات

إليك الملف المرفق فيه التصحيح لكلا الحلين : المعادلات والأكواد (اختر منهما ما شئت)

Agricultural Products.rar

[احمد علي 1981]

شكرا اخي ياسر

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

[ياسر خليل أبو البراء]

ارفق ملفك بعد التعديل للإطلاع عليه ..

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

[احمد علي 1981]

شكرا لصبرك علي 

حجم الملف الذي اعمل عليه كبير جدا 

تم تعديل يونيو 8, 2015 بواسطه احمد علي 1981

[ياسر خليل أبو البراء]

سؤال : إنت اخترت هتشتغل على ايه ؟ المعادلة أم الكود ؟؟

ثانياً ارفق الملف كنموذج مصغر بلاش الملف الأصلي ...فقط لمعاينة التعديل الذي قمت به وإرشادك إلى ما يجب عمله

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

أرجو أن تكون الفكرة قد وصلت

[تامر عطاالله]

بارك الله فيك

[احمد علي 1981]

السلام عليكم

اتعامل مع الكود وليس المعادلات

مرفق الملف 

book.rar

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub ee()
    [a5] = [b1]
    [b5:c5].Formula = "=IFERROR(INDEX(p!$B$3:$C$100,MATCH($A5,p!$A$3:$A$100,0),MATCH(B$4,p!$B$2:$C$2,0)),"""")"
    [b5:c5].Value = [b5:c5].Value
 End Sub

[احمد علي 1981]

شكرا اخي ياسر

الكود لا يعمل على نفس الملف الذي اريده لكن عند وضعه على ملف اخر يعمل بشكل رائع جدا

احتمال يكون الخلل في الملف الذي اعمل عليه

 

شكرا لجهودك 

[احمد علي 1981]

شكرا اخي ياسر

قمت بالتعديل على الكود كالتالي وهو يعمل بشكل ممتاز

 

 

"(((b4:c4].Formula = "=(INDEX(sheet1!$c$3:$c$3000,MATCH(sheet2!$B$2,sheet1!$a$3:$a$3000,0]

 

 

شكرا جزيلا لكم وجهودكم