ترحيل بيانات

[محمد أبو يوسف]

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

للقيام بالوظيفة التالية:

ورقة العمل عندى بها ثلاثة أعمدة سابق وحالي وجملة

مطلوب شهريا ترحيل الاجمالي ليكون السابق

والحالي قيمته صفر للكتابه عليه

دون المساس بالمعادلات ودون المساس بورقة الأجمالي

شكراً للاهتمام والمساعدة

ترحيل بيانات من الاجمالي الى السابق.xls

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

ما رأيك بهذا

Sub test()
    Dim ar As Range
    Dim sh As Worksheet
    Dim i As Long
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "TOTAL" Then
Set sh = Sheets(i)
            For Each ar In sh.Cells(3, 3).Resize(26).SpecialCells(xlConstants).Areas
                ar.Offset(, -1) = ar.Value
                ar.Value = 0
            Next
        End If
    Next
End Sub

 

ترحيل بيانات من الاجمالي الى السابق.xls

[محمد أبو يوسف]

السلام عليكم
جزاكم الله خيراً
حل رائع لكن لو أمكن نقل البيانات

من عمود الإجمالي لعمود السابق 

وليس من عمود الحالي للسابق

جزيل الشكر لخبراءنا

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

استبدل بـ

Sub test()
    Dim ar, arl As Range
    Dim sh As Worksheet
    Dim i As Long
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "TOTAL" Then
            Set sh = Sheets(i)
            For Each ar In sh.Cells(3, 4).Resize(26).SpecialCells(xlCellTypeFormulas, 1).Areas
                ar.Resize(ar.Count - 1).Offset(, -2) = ar.Value
                ar.Resize(ar.Count - 1).Offset(, -1) = 0
                Set arl = ar
            Next
            arl.Resize(1).Offset(arl.Count - 2).AutoFill Destination:=arl.Resize(1, 2).Offset(arl.Count - 2, -1)
        End If
    Next
End Sub

 

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

بالعودة للكود الأول

يمكن تعديله

Sub test()
    Dim ar As Range
    Dim sh As Worksheet
    Dim i As Long
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "TOTAL" Then
            Set sh = Sheets(i)
            For Each ar In sh.Cells(3, 3).Resize(26).SpecialCells(xlConstants).Areas
                ar.Offset(, -1) = ar.Offset(, 1).Value
                ar.Value = 0
            Next
        End If
    Next
End Sub

 

[محمد أبو يوسف]

الكود ممتاز جداً
محتاج أتعلم مكوناته وماذا يرمز إلي بتبسيط 
حتى إذا أحببت تغير أسماء الصفحات أو زيادة عدد الصفوف أكون على دراية بماذا أفعل

جزيل الشكر

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

أخي العزيز

انظر الكود في المرفق لعله يفيدك 

ولا تتردد في اي استغسار أحر

تحياتي

ترحيل بيانات من الاجمالي الى السابق.xls

[محمد أبو يوسف]

كل الشكر والتقدير

الحمد لله أستفتدت كتير من الكود ومن الشرح

جزاكم الله خيراً