مشكلة في ترحيل ناتج معادلة

[علي الشيخ]

السلام عليكم ورحمة الله

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

فضلا لدي مشكلة في ترحيل قيمة خلية معينة وهي تحتوي على معادلة

فأنا اقوم أولا بترتيب عمود ترتيب تنازلي

ومن ثم ترحيل قيم 3 خلايا ألى جدول في نفس الشيت

المشكلة أن في قيمة خلية منهم يكون ناتج المعادلة فيها مثلا 50 ولكن عند الترحيل يتم كتابة الرقم 1

مع العلم ان هناك معادلة أخرى في الخلية الثالثة ويتم ترحيل القيمة بشكل سليم

 

مرفق الملف وموضح عليه المشكلة أرجو المساعدة

testPORC23.rar

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

أخي الفاضل اطلعت على الملف ولا أدري ما هو المطلوب بشكل واضح ..ما هي شكل النتائج بعد الترحيل .. وهل يتم الترتيب أولا قبل الترحيل ؟ وعلى أي أساس تقوم بالترحيل ؟؟ وما هو المراد ترحيله ..

[علي الشيخ]

السلام عليكم مشكور اخي على ردك

 

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

اللي انا وصلت له حاليا واللي انا عاوزه هو اني لما اكتب كود الدولة Country code

تقوم المعادلة في الخانة الثانية Country serial بالبحث في أخر رقم مورد في هذه الدولة  +1  ليكون هو الكود الجديد

وهكذا في الخانة الثالثة التي تحتوي على عدد الموردين الإجمالي

 

بمعنى أخر لما اختار كود الدولة اللي عاوز اضيف منها مورد يتم توليد الكود الثاني والثالث تلقائيا

ولما اضغط على زر الترحيل يتم ترحيل بيانات المورد الجديد

( زر الترتيب التصاعدي هو عشان يرتب عمود Country serial ) عشان المعادلة تقدر تجيب أخرى رقم عميل تم إضافته في كل بلد )

لو اخر عميل تم اضافتة لدولة مصر مثلا رقمه   041-071-3235

041 كود الدولة

071 رقم تسلسل المورد بالنسبة للدولة

3235 رقم تسلسل المورد بالنسبة لإجمالي الموردين

 

لما اجي انا اضيف مورد جديد اول ما اكتب 041

يتم توليد باقي الكود تلقائيا ليكون كالتالي

041-072-3236

 

اتمنى تكون وضحت أخي وجزاك الله خيرا

تم تعديل أبريل 1, 2015 بواسطه A.El Sheikh

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

جرب الكود بهذا الشكل لعله يكون المطلوب

Sub trans()
    lastrow = Range("A10000").End(xlUp).Row + 1
    Range("A3:C3").Copy
    Cells(lastrow, 1).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

[علي الشيخ]

هو بالظبط ده المطلوب الله يجزاك الخير ويرزقك من حيث لا تحتسب

جزاك الله كل خير اخي الفاضل