ابوسلماان

الف شكر 

استفدت كثيرا منكما ،،  بارك الله فيكما

عفوا  ابو حنين

لا استطيع تشغيله ،،  نسخته في ورقة العمل وعند التشغيل يظهر لي شاشة المايكرو فاضيه ،، فكيف يمكن تشغيل الكود لو تكرمت؟

السؤال الثاني ،، كيف استطيع تشغيل هذا الكود وانا في ورقة عمل اخرى؟

شاكر لك تعونك ،،،،،

السادة الكرام ،،،  السلام عليكم

الملف المرفق ،، يوجد فيه جدول يتم ترحيله من ملف آخر،، وعندي معادلات في الجدول يتم نسخها بناء على البيانات الموجودة في الجدول، وهذه البيانات قد تتغير بين الحين والآخر.

احتاج الى كود ينسخ المعادلات بشرط ان يكون النسخ بناء على وجود بيانات من ثاني صف فيه بيانات الى اخر صف فيه بيانات؟ 

ملاحظة :  طبعا اول صف فيه المعادلات لايتم تغييره لأننا نقوم بنسخ المعادلات منه.

وشكراً ،،

P&LL_test.rar

شكرا جزيلا لكما ،،

الفكرة الاخيرة تفي بالغرض ،، بارك الله فيكم جميعا ..

السادة الكرام ،،،  السلام عليكم

عند وضع كود لترحيل البيانات أو لاي غرض آخر ،،  وهذا الكود يحتوي على اسم ورقة العمل ( الشيت ) الذي سيتم التاثير فيه.

سؤالي: لو تم تغيير اسم الورقة ( الشيت ) هل من معالجة للكود بحيث يتغير آليا؟ 

وشكراً ،،

الاخوة الاعزاء

الملف ضبط ،، اعتقد ان الاشكالية كانت بسبب اني انفذ الكود من ورقة ثالثة.

شاكر لكم عزيزي.

الله ينور

بارك الله فيك ،،  وجزاك الله الف خير.

خالص محبتي ،،

السلام عليكم 

مرفق ملف فيه كود لعملية ترحيل البيانات في نفس الورقة Exp ،، فهل يمكن التعديل على الكود بحيث يؤثر على ورقة عمل أخرى Reports  ( العمودين الاخيرين المبلغ والاسم  ) وليس نفس الورقة ؟

Private Sub worksheet_change(ByVal target As Range)

If target.Row > 2 Then

If target.Column = 1 Or target.Column = 9 Or target.Column = 10 Then

If Cells(target.Row, "a") = "" Or Val(Cells(target.Row, "i")) + Val(Cells(target.Row, "j")) = 0 Then Exit Sub

Cells(target.Row, "k") = Cells(target.Row, "i") - Cells(target.Row, "j")

Cells(target.Row, "l") = Cell(target.Row, "B")

test2.rar

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

عملت اللي عليك وزيادة عزيزي ،،  جربت المحاولة وبرضه نفس المشكلة ،، يبدو ان هناك اشكالية في الملف الذي تم التصدير منه.

جزاك الله خيرا ،،  سأقوم بتعديلها يدوي ،،  شاكر لك تفاعلك وتعاونك ،، دمت بخير ،،،،

اول مرة جربت فيه الكود كانت أرقام ،، لكن بعدما أعدت تنفيذ الكود مرة اخرى ظهرت كنص للاسف ،،  وكررت العملية اكثر من عشرين مرة كان معظمها بنسبة 90% ينقلها كنص واحيانا ينقلها كرقم.

مش عارف اين المشكلة؟

عزيزي ابوعيد 

هناك اشكالية في الارقام المنقولة الى العمود X   لو تلاحظ ان الارقام  تنتقل على شكل نص  وليس رقم ..

هل بالامكان معرفة لماذا يحدث هذا؟؟

شكرا جزيلا ،،  اخجلتمونا بكريم اخلاقكم ،،

وانا واثق اني سأجد هنا الكثير والكثير من الحلول في عالم البرمجه .

خالص محبتي لكم ولجميع فريق العمل وللأعضاء .

تشكرات عزيزي 

وسأقوم بتغيير الاسم ان شاء الله ..  

معليش ابو عيد 

بحثت عن كيفية لتغيير اسم الظهور ولم اجدها ،،  هل بالامكان مساعدتي 

وشكرا

مساء الخيرات

الملفات المرفقة بطريقتين :

بطريقة الترحيل من شيت الى شيت في نفس ملف الاكسل ،، والطريقة الثانية ترحيل من شيت الى شيت في ملف اكسل آخر.

والمشكلة اللي عندي ،، هي انه عند نقل بيانات من شيت في ملف اكسل الى آخر،،  تظهر الأخطاء التالية :

1- في أول صف في العمود W  يظهر بعد الرقم هذا الرمز #00  ما أعرف ليه ؟؟؟  مثال "2730#00" لذلك لا يتعرف عليه الاكسل كرقم.

2- في أول صف في العمود X  يظهر هذا الرمز   F24  ومش عارف ليه، ومن فين تم نقله ؟؟؟

3- أخيراً   ،،   العمود X يمثل أرقام ولكنه عند الترحيل يظهر على شكل نص ،، ما اضطر الى اعادة تنسيقها كرقم.

ارجو المساعدة ولكم جزيل الشكر. 

الملفات مرفقة.

Trans.rar

الف الف شكر ،،   

بارك الله فيك وتقبل منك.

مساء الخيرات

احتاج الى تعديل الكود في الملف المرفق بحيث يتم التأثير على الاعمدة K و L في حالة وجود بيانات في العمود A كما هو موضح بالملفين المرفقين .

ملف اكسل +  صورة من الاشكالية.

test1.rar