جمع عمود في شيت على عمود اخر في شيت أخر

[أبو سـما]

السلام عليكم ورحمة الله وبركاته

 

الملف المرفق به ورقتي عمل الورقة الأولى وهي (المخزن) والورقة الثانية هي (إذن صرف) .

 

المطلوب إضافة الأعداد الموجودة في شيت (إذن الصرف) على الأعداد الموجودة في (المخزن) بالعمود (E) والذي يمثل اجمالي المصروف وذلك برمجيا عن طريق عمل زر أمر في شيت (إذن الصرف) عند الضغط عليه ينفذ المطلوب.

 

بحيث عند كل ضغطة على زر الامر يجمع الاعداد الموجودة في شيت (إذن الصرف) على الأعداد الموجودة في العمود E في شيت (المخزن) ثم يمسح الاعداد الموجودة في شيت (إذن الصرف) لكتابة أعداد جديدة وهكذا.

 

وجزاكم الله خير.

المخزن.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو سما

بافتراض أن البنود ثابتة بنفس الترتيب في ورقتي العمل

إليك الكود التالي عله يفي بالغرض

Sub SUMTwoSheets()
    Dim WS As Worksheet, SH As Worksheet
    Set WS = Sheets("المخزن"): Set SH = Sheets("إذن صرف")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        If MsgBox("سيتم جمع القيم في ورقتي العمل في العمود الخامس" & vbNewLine & "هل أنت متأكد من الاستمرار؟", vbYesNo) = vbNo Then Exit Sub
        
        Sheets.Add After:=Sheets(Sheets.Count)
        With ActiveSheet
            SH.Range("C8:C55").Copy .Range("A1")
            SH.Range("G8:G55").Copy .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
            WS.Range("E4:E" & WS.Cells(Rows.Count, 2).End(xlUp).Row).Copy .Range("B1")
            With .Range("C1:C" & .Cells(Rows.Count, 1).End(xlUp).Row)
                .Formula = "=IF(AND(A1="""",B1=""""),"""",SUM(A1:B1))": .Value = .Value
                .Copy: WS.Range("E4").PasteSpecial xlPasteValues
            End With
            .Delete
        End With
        
        WS.Activate
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

تقبل تحياتي

SUM Two Sheets.rar

[أبو سـما]

جزاك الله خير يا اخي الكريم ياسر وسلمت يمينك وبارك الله لك في علمك وزادك علما على علم وجعلك الله دائما في عون اخوانك وجعل اعمالك في ميزان حسناتك.

الصراحة كلمات الشكر والامتنان ما توفي قدرك.

كنت عاوز تعديل بسيط بس على الكود لو كانت الاعداد المطلوبة اكتر من الاعداد اللي في المخزون يطلع رسالة تنبيه بأن الرصيد لا يسمح.

ورسالة تنبيه أخرى بطلب كمية إضافية لو كان المتبقي في خانة الحد الادنى بيساوي او اقل من المتبقي.

وجزاك الله خير.

[ياسر خليل أبو البراء]

أعتقد أن الطلب الثاني يحتاج إلى موضوع جديد لأنه مختلف تماماً عن الطلب الأول

مع مزيد من التوضيح وإرفاق بعض النتائج المتوقعة حيث أنني لم أفهم المطلوب بشكل جيد

خصوصاً أن هناك بنود كثيرة .. فإذا تم ما تطلب ربما تظهر رسائل تنبيه كثيرة تسبب لك إزعاج ..يمكنك تخصيص عمود مساعد تضع فيه معادلات بسيطة تؤدي الغرض .. أو شوف إنت المطلوب ووضحه باستفاضة

 

وبدون كود أو تعديل في كود يمكن ببساطة استخدام التنسيق الشرطي

قمت بعمل تنسيق شرطي لعمود المتبقي بحيث إذا كانت القيمة في عمود المتبقي أقل من أو يساوي القيمة في عمود الحد الأدنى يتم تلوين السطر كنوع من التنبيه

 

تقبل تحياتي

SUM Two Sheets.rar