ترحيل البيانات الى عدة اوراق حسب اسم الناقل

[ابو نبأ]

السلام عليكم

تم اعادة صياغة سؤالي وكما مبين بالملف المرفق

راجين التفضل بالنظر اليه 

ولكم  منا الشكر والعرفان

السلام عليكم

تصفية وجبة.rar

[أبو حنــــين]

السلام عليكم

جرب المرفق

 

تصفية وجبة.rar

[ابو نبأ]

السلام عليكم

جزاك الله عنا الف خير يا ابو حنين

 

بس اكو ملاحظة صغيرة لم اذكرها في سؤالي وهي : اريد التسلسل بـ ورقة البيانات نفسه يرحل الى ورقة الناقل

 

وفقكم الله والسلام عليكم

[saad abed]

_{ابوحنين}

_{اكوادك رائعة واستجابتكم للاعضاء وطلباتهم سريعة}

_{جزاك الله خيرا}

[أبو حنــــين]

السلام عليكم

هذا هو التعديل كما طلبت

 

تصفية وجبة-2.rar

[أبو حنــــين]

أخي  :  سعد عابد

 

 

[خالد الرشيدى]

 

أستاذى / ابو حنين

لا اجد ما اقوله سوى

بارك الله لك فى علمك ونفعك ونفعنا به

جزاك الله خيراً

هذه طريقه اخرى كنت قد عملت عليها قبل مشاركتك اسمح لى بعرضها

 

الترحيل بأسلوبين

 

 

http://www.gulfup.com/?0GSRJB

 

http://www.gulfup.com/?fBNLGU

تم تعديل يناير 24, 2014 بواسطه خالد الرشيدى

[أبو حنــــين]

أخي خالد الرشيدي

 

 

 

 

 

عمل متقن

بارك الله فيكم

و اختلاف الحلول شيئ جميل بل و ضروري ليعرف السائل كيف تم تنفيذ الكود بأكثر

من طريقة

 

 

[ابو نبأ]

السلام عليكم

 

اشكرك مرة ثانية على حل السؤال

 

جزاكم الله وجعلها صدقة لك ولوالديك 

 

السلام عليكم

 

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

 

وسؤالي الجديد هو : في حالة تغيير السعر ، كيف يتم تغييره

والطلب الثاني جزاك الله خيراً : هو : في حالة الضغط على (الترحيل) تكرر البيانات ، فارجو حل هذه المسألة 

 

ومشكور على هذه الجهود

 

السلام عليكم

[محمود_الشريف]

بعد إذن أستاذى ومن تعلمت منه الكثير القدير / أبو حنين

 

تفضل اخى الكريم 

نموذج لما طلبتم حتى تتلاشى عملية التكرار

ثانيا عندما تريد تغيير السعر ادخل على محرر الأكواد وقم بتغيير السعر كما تحب

بالضغط على alt+f11

تظهر لك صفحة على يسارك توجد كلمه Modul1

قم بالضغط عليها كليك مرتين

يظهر لك الكود

سأرفق لك جزئية تغير السعر لأبين لك الطريقة

      S.Range("B" & P).PasteSpecial xlPasteValues
            S.Range("A" & P) = P - 1
If S.Range("E" & P) = "بصره" Then S.Range("M" & P) = S.Range("J" & P) * 30
If S.Range("E" & P) = "بيجي" Then S.Range("M" & P) = S.Range("J" & P) * 16
            S.Range("N" & P) = S.Range("K" & P) * 750
        

غير الأرقام كما تحب ( 30 أو 16 أو 750)

ثالثا إذا اردت أن تضيف جهة تحميل جديده سجلها بالعمود s 

رابعا إذا اردت تسجيل اسم ناقل جديد سجله بالعمود T

وقم بإختيارها من القائمة المنسدله 

وتقبلوا منى وافر الإحترام والتقدير

تصفية وجبة 1.rar

[ابو نبأ]

السلام عليكم

 

مشكور اخي بارك الله فيك

 

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

[خالد الرشيدى]

 

 

إستكمالاً لما بدأت

تفضل اخى الكريم

إسلوبى الترحيل وكلاهما بلا تكرار

 

http://www.gulfup.com/?CjTCW4

 

http://www.gulfup.com/?mhBiXX

 

 

تم تعديل الطريقه الثانيه فى المشاركه الاولى ليصبح عدد الصفوف الممكن ترحيلها فى  ورقه البيانات حتى50000

تم تعديل يناير 25, 2014 بواسطه خالد الرشيدى

[أبو حنــــين]

و اضافة لما ذكره الاخوة الكرام جزاهم الله خيرا

ترحيل بدون تكرار

والتكراريعتمد على العمود الأول  A  

ويمكن  التحكم في تغيير السعرمن خلال الخلايا : N- O -P

 

 

تصفية وجبة-3.rar

[عادل ابوزيد]

الاستاذ الفاضل ابو حنين حلول ولا اروع

جعلها فى ميزان حسناتك ونفعك بها الله فى الدنيا والاخرة

[أبو حنــــين]

أخي عادل أبو زيد

 

[ا بو سليمان]

الله المستعان  كوكبة م النجوم  في الموضوع 

 

يا ترى اين انت اخي ابو حنين  

 

كم اشتقنا اليه  

 

يعلم الله اننا مشتاقين  الى  رؤيتك هنا