saif.almfrji قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 في المرفق ملف السجل كام مع كود الترحيل . الخلل انه عند الترحيل يتم تضليل عدة صفوف في السجل العام وكذلك لا اعرف كيف اثبت داله في حقل السعر الكلي فهي تنقل ايضا مع البقية سجل المحل.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 السلام عليكم جرب الملف المرفق لعل فيه ما تريد.... بن علية حاجي سجل المحل.rar 1 رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 اخي العزيز بن عليه حاجي , لم تتم اي تغييرات على الملف !! رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 السلام عليكم كيف لم تتم أي تغييرات على الملف؟ ما هو المشكل بالضبط؟ ضع بعض البيانات في الملف وطبق الكود عليه وارفق النتيجة المتحصل عليها في المرفقات مع تحديد المطلوب عليها... بن علية حاجي رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 نفس النتائج لم يحصل تغيير رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 وأين الملف المرفق على هذه النتائج مع توضيح الخلل عليها؟ رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 الخلل هو عند الرحيل يتم تضليل عدد من الصفوف ولا اعرف السبب !! رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 السلام عليكم أرفق إليك ملفا تنفيذيا تم تحضيره من الملف الذي أرفقته بالأعلى بعد تطبيق الكود عليه... لاحظ النتائج المتحصل عليها... عندك ربما ما زلت تعمل بالكود القديم... بالنسبة للكود الجديد فقد أضفت له الأمر Range("A3").Select الذي يقوم بتحديد (الانتقال إلى) الخلية A3 من شيت "السجل العام" بعد عملية الترحيل مباشرة وقبل العودة إلى شيت "ورقة حساب يومي"... بن علية حاجي سجل المحل.rar رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 ارجوا الاطلاع على هذا المقطع لترى مايحصل معي سجل المحل.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 السلام عليكم هل يمكن أن أرى مضمون الكود الذي تم تنفيذه؟ بن علية حاجي رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 نعم هذا مضمون الكود رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 السلام عليكم قلت لك إنك تعمل بالكود القديم... عليك تبديله بالكود التالي: 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 بن علية حاجي رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 لقد عمل بشكل صحيح . انا شاكر جدآ لمجهودك الكبير ,, بقي عندي سؤال اذا كان بوسعك مساعدتي رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 السلام عليكم اطرح سؤالك وإن لم أوفّق في الإجابة عليه، ستجد إن شاء الله المساعدة من أحد الإخوة في المنتدى... بن علية حاجي رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 في حقل السعر الكلي كيف استطيع ان ((اثبت الدالة)) دون ان تحذف اثناء الترحيل .. مع الشكر والتقدير رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 27 دقائق مضت, بن علية حاجي said: TypeConstants, مامعنى هذه الجمله من فضلك ؟ رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 السلام عليكم تقصد الكلمة الموجودة في الأمر: Range("a3:i1000").SpecialCells(xlCellTypeConstants, 23).ClearContents هذا الأمر في الكود يمسح كل القيم الثابتة فقط (ِConstants) في النطاق A3:I1000 دون المعادلات والتنسيقات والتأطيرات وغيرها... والكلمة xlCellTypeConstants تعني "كل الخلايا التي مضمونها قيم ثابتة"... والله أعلم بن علية حاجي رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 لماذا لم يعد يعمل الكود الجديد !!! رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يناير 6, 2018 مشاركة قام بنشر يناير 6, 2018 السلام عليكم هذا الخلل يظهر عندما لا تكون هناك قيم ثابتة أو نصية في النطاق المحدد... ولأجل هذا قمت بتعديل الكود إلى الكود التالي: 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 بن علية حاجي رابط هذا التعليق شارك More sharing options...
saif.almfrji قام بنشر يناير 7, 2018 الكاتب مشاركة قام بنشر يناير 7, 2018 انا ممتن جدآ لجهودك استاذ الف شكر لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان