abo_abdelrahmaan قام بنشر أكتوبر 25, 2020 مشاركة قام بنشر أكتوبر 25, 2020 السلام عليكم المطلوب عند اضافة بيانات في حصيلة اليوم في MainSheet يتم جمعها على الحصيلة الاجمالية في DataSheet شكرا Book1.xlsx رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أكتوبر 26, 2020 مشاركة قام بنشر أكتوبر 26, 2020 هكذا؟ وعلىفرض أن ترتيب الأسماء في الشيتين هو نقسه تماما ABO.xlsm 1 رابط هذا التعليق شارك More sharing options...
abo_abdelrahmaan قام بنشر أكتوبر 26, 2020 الكاتب مشاركة قام بنشر أكتوبر 26, 2020 عند تشغيل الملف يعطي الرسائل Doc1.docx رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أكتوبر 26, 2020 مشاركة قام بنشر أكتوبر 26, 2020 هل تريد الترحيل عندما تكون حصيلة اليوم فارغة ؟ على كل استبدل الكود بهذا لمعالجة المشكلة Sub test() Dim a As Variant Dim i With Sheets("MainSheet") On Error Resume Next a = .Cells(2, 3).Resize(.Cells(Rows.Count, 3).End(xlUp).Row - 1) If UBound(a) Then With Sheets("DataSheet") For i = 1 To UBound(a) .Cells(i + 1, 3) = .Cells(i + 1, 3).Value + a(i, 1) Next End With End If .Cells(2, 3).Resize(.Cells(Rows.Count, 3).End(xlUp).Row - 1).ClearContents End With End Sub 1 رابط هذا التعليق شارك More sharing options...
abo_abdelrahmaan قام بنشر أكتوبر 26, 2020 الكاتب مشاركة قام بنشر أكتوبر 26, 2020 نعم قد يكون حصيلة اليوم لبعض العملاء فارغة رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أكتوبر 26, 2020 مشاركة قام بنشر أكتوبر 26, 2020 هل استبدلت الكود؟ رابط هذا التعليق شارك More sharing options...
abo_abdelrahmaan قام بنشر أكتوبر 26, 2020 الكاتب مشاركة قام بنشر أكتوبر 26, 2020 نعم استبدلت الكود ولكن عند كتابة قيمة امام اسم علي والضغط على ترحيل لايتم تجميع بياناته رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر أكتوبر 26, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 26, 2020 ABO.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر أكتوبر 26, 2020 مشاركة قام بنشر أكتوبر 26, 2020 abo_abdelrahmaan أين انت من كل هذه الإجابات الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.