ارفقت صفحة العمل واحتاج للحل

[saif.almfrji]

في المرفق ملف السجل كام مع كود الترحيل . الخلل انه عند الترحيل يتم تضليل عدة صفوف في السجل العام 

وكذلك لا اعرف كيف اثبت داله في حقل السعر الكلي فهي تنقل ايضا مع البقية

سجل المحل.rar

[بن علية حاجي]

السلام عليكم

جرب الملف المرفق لعل فيه ما تريد....

بن علية حاجي

سجل المحل.rar

[saif.almfrji]

اخي العزيز بن عليه حاجي , لم تتم اي تغييرات على الملف !!

[بن علية حاجي]

السلام عليكم

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

بن علية حاجي

[saif.almfrji]

نفس النتائج لم يحصل تغيير

 

[بن علية حاجي]

وأين الملف المرفق على هذه النتائج مع توضيح الخلل عليها؟

[saif.almfrji]

الخلل هو عند الرحيل يتم تضليل عدد من الصفوف ولا اعرف السبب !!

[بن علية حاجي]

السلام عليكم

أرفق إليك ملفا تنفيذيا تم تحضيره من الملف الذي أرفقته بالأعلى بعد تطبيق الكود عليه... لاحظ النتائج المتحصل عليها... عندك ربما ما زلت تعمل بالكود القديم... بالنسبة للكود الجديد فقد أضفت له الأمر Range("A3").Select الذي يقوم بتحديد (الانتقال إلى) الخلية A3 من شيت "السجل العام" بعد عملية الترحيل مباشرة وقبل العودة إلى شيت "ورقة حساب يومي"...

بن علية حاجي

سجل المحل.rar

[saif.almfrji]

ارجوا الاطلاع على هذا المقطع لترى مايحصل معي 

سجل المحل.rar

[بن علية حاجي]

السلام عليكم

هل يمكن أن أرى مضمون الكود الذي تم تنفيذه؟

بن علية حاجي

[saif.almfrji]

نعم هذا مضمون الكود

[بن علية حاجي]

السلام عليكم
قلت لك إنك تعمل بالكود القديم... عليك تبديله بالكود التالي:

Sub one()
Dim lr As Integer
Sheets(3).Activate
lr = [a1000].End(xlUp).Row
Range("a3:i1" & lr).Copy
Sheets(2).Activate
Range("a" & [a1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Range("a3").Select
Sheets(3).Activate
Range("a3:i1000").SpecialCells(xlCellTypeConstants, 23).ClearContents
Range("a3").Select
x = MsgBox("تم الترحيل")
End Sub

بن علية حاجي

[saif.almfrji]

لقد عمل بشكل صحيح . انا شاكر جدآ لمجهودك الكبير ,, بقي عندي سؤال اذا كان بوسعك مساعدتي

[بن علية حاجي]

السلام عليكم

اطرح سؤالك وإن لم أوفّق في الإجابة عليه، ستجد إن شاء الله المساعدة من أحد الإخوة في المنتدى...

بن علية حاجي

[saif.almfrji]

في حقل السعر الكلي كيف استطيع ان ((اثبت الدالة)) دون ان تحذف اثناء الترحيل .. مع الشكر والتقدير 

[ناصر سعيد]

27 دقائق مضت, بن علية حاجي said:

TypeConstants,

مامعنى هذه الجمله من فضلك ؟

[بن علية حاجي]

السلام عليكم

تقصد الكلمة الموجودة في الأمر:

Range("a3:i1000").SpecialCells(xlCellTypeConstants, 23).ClearContents

هذا الأمر في الكود يمسح كل القيم الثابتة فقط (ِConstants) في النطاق A3:I1000 دون المعادلات والتنسيقات والتأطيرات وغيرها...

والكلمة xlCellTypeConstants تعني "كل الخلايا التي مضمونها قيم ثابتة"... والله أعلم

بن علية حاجي

[saif.almfrji]

لماذا لم يعد يعمل الكود الجديد !!! 

[بن علية حاجي]

السلام عليكم

هذا الخلل يظهر عندما لا تكون هناك قيم ثابتة أو نصية في النطاق المحدد... ولأجل هذا قمت بتعديل الكود إلى الكود التالي:

Sub one()
Dim lr As Integer
Sheets(3).Activate
lr = [A1000].End(xlUp).Row
If lr < 3 Then MsgBox ("!!!لا توجد بيانات للترحيل"): Exit Sub
Range("A3:I" & lr).Copy
Sheets(2).Activate
Range("A" & [A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Range("A3").Select
Sheets(3).Activate
Range("A3:I1000").SpecialCells(xlCellTypeConstants, 23).ClearContents
Range("A3").Select
x = MsgBox("تم الترحيل")
End Sub

بن علية حاجي

[saif.almfrji]

انا ممتن جدآ لجهودك استاذ الف شكر لك