كيف يمكن ترحيل بيانات

[abo_abdelrahmaan]

السلام عليكم

المطلوب عند اضافة بيانات في حصيلة اليوم في MainSheet يتم جمعها على الحصيلة الاجمالية في DataSheet

شكرا

Book1.xlsx

[محي الدين ابو البشر]

هكذا؟

وعلىفرض أن ترتيب الأسماء في الشيتين هو نقسه تماما

ABO.xlsm

[abo_abdelrahmaan]

عند تشغيل الملف يعطي الرسائل

Doc1.docx

[محي الدين ابو البشر]

هل تريد الترحيل عندما تكون حصيلة اليوم فارغة ؟

على كل استبدل الكود بهذا لمعالجة المشكلة

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

 

[abo_abdelrahmaan]

نعم قد يكون حصيلة اليوم لبعض العملاء فارغة

[محي الدين ابو البشر]

هل استبدلت الكود؟

[abo_abdelrahmaan]

نعم 

استبدلت الكود ولكن عند كتابة قيمة امام اسم علي والضغط على ترحيل لايتم تجميع بياناته

[محي الدين ابو البشر]

ABO.xlsm

[أحمد يوسف]

 abo_abdelrahmaan

أين انت من كل هذه الإجابات الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙