أريد اكمال هذا الملف للأهمية(ترحيل بيانات)

[عادل حنفي]

السلام عليكم

الاخت الفاضله

ان شاء الله لكن دعواتك

تجياتي

[Nadia Khalil]

للرفع

up

[عادل حنفي]

السلام عليكم

الاخت الفاضلة

من باب اختصار الوقت و الجهد

ارجو كتابة صفحة كامله باقصي شيئ ممكن ان تكون علية

البيانات داخل البصفحة و ارشادي الي اي الخلايايا الهامه

التي يجب ان نعمل لهاhistory و هي ايضا ما سيتم استدعاؤها

[Nadia Khalil]

أخى aah_aah2008 كل عام وانتم بخير ورمضان كريم على الجميع

آسفة لتأخرى فى الرد

وأرجو منك كرما لا أمرا اكمال الملف

مرفق ملف معدل لآخر ما تم الوصول اليه

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

D374FB20.rar

[خالد القدس]

السلام عليكم

أستاذي الفاضل aah_aah2008

مجهود كبير ورائع

سلمت يداك

وأجزل الله لك الثواب

[Nadia Khalil]

UP

للرفع

[عادل حنفي]

السلام عليكم

الاخ الحبيب خالد القدس

اشكرك اخي علي كلماتك و مرورك الكريم

الاخت الفاضلة

عذرا علي التاخير

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

ملحوظه

اناقد عملت علي زر save & clear و شيت explorePO فقط

خالص تحياتي

D374FB30.rar

[Nadia Khalil]

أخى عادل للأسف لم يتضح لى ما فعلته بملفك المرفق

كل التغير الذى رأيته هو اضافة هذا الكود فقط

m = Sheets("POstore").Cells(i, 1).Address

n = Sheets("POstore").Cells(i, 70).Address

'p = Sheets("POstore").Cells(i - 1, 1).Address

'o = Sheets("POstore").Cells(i - 1, 70).Address

'Range(p, o).Select

'Selection.Copy

أعتقد أخى انك لم تفهم ما أقصده كرما لا أمرا - ارفقت لك ملف سيتضح به الكثير - وهذا الملف المرفق هو ملف العمل الأساسى بالنسبة لى وقد وضحت به ما أريد هذه ناحية من الناحية الأخرى - تفضلا منك ارجو شرح لى ما فائدة اضافة الكود بالأعلى الى كود الملف الرئيسى (للافادة فقط لعلنى احتاجه) وأيضا لى سؤال آخر هذه الصيغة

Dim i As Integer

i = Sheets("POstore").Range("A65536").End(xlUp).Row + 1

هذه الصيغة تقوم بادخال وترحيل باقى الكود الى الصف الثانى - أين يمكننى التعديل فى هذه الصيغة لأتحكم فى ادخال باقى الكود ليبدأ من الصف الذى أريد؟

وآسفة لتعبك وازعاجك أخى

أنتظر ردك

file0132.rar

[عادل حنفي]

السلام عليكم

الاخت الفاضلة

كلماتك الموجودة سابقا ليس هو ما حدث و هي

أخى عادل للأسف لم يتضح لى ما فعلته بملفك المرفق

كل التغير الذى رأيته هو اضافة هذا الكود فقط

فقد بدات بالعمل علي ملفك و هممت بالفعل لانشاء الكواد كما اردتي و عند الدخول علي تحرير الاكواد وجدت

بالفعل اكواد جاهزه و تحقق ما تريديه و لكن غير مضبوطة علي ملفك فقمت بالتعدل علي الملف اولا بضبط عدد الاعمده و الغاء الزائد منها

ثم ضبط الكود علي ملفك كما تم التعديل علي كافة المعادلات الموجودة بشيت استدعاء البيانات لتلائم ما تريدي ان يقوم به ملف الاستدعاء

اذن فقد تم العمل علي الملف و ليس كما اشرتي انت ان الاكواد كما هي!!!!!!!

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

تحياتي

[Nadia Khalil]

جزاك الله خيرا اخى عادل

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

والله يعلم كم انا محرجة من حضرتك - لأنى أعلم انشغالك وأعمالك وعدم وجود الوقت الكافى لتلبية كل المساعدات ولكنك تبذل ما فى وسعك

بشكل مبسط أخى : أرفقت لك ملف فى المشاركة السابقة - أرجو منك النظر فيه

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