اتأسف لحضرتك لأنتظارك زشكرأ لتعبك المطلوب دمج السجلين بسجل واحد مع تحريك البيانات من السجل الثانى الى مواضع الجقول الموضحة بالصورة

الأخ @اشرف السيد يوسف منذ ساعة وأنا انتظرك  لما تنزل موضوع من اربع ساعات على الاقل كل ساعة ادخل اتفقد الوضع 

اسف اخي لم انتبه فعلا على العموم حل الاستاد حسونة سوف يلبي المطلوب  بالتوفيق.

انت حضرتك اشتريت بضاعة بالجملة عددها 30 قطعة وبعت منها 10 قطاعى كم يتبقى عندك             وبعدين بعت 2 جملة  كم يتبقى عندك بعد العملية الاولى والثانية                     (هذا هو الرصيد التراكمى) وهكذا بالنسبة لمرتجع الشراء والبيع

تقصد ان هدا الشكل لا يناسبك هل قمت بتجربة هدا  Sub test() Dim lCol As Long, MyRng As Range Set desWS = ActiveSheet: Set ws = Sheet2 If Len(desWS.[CA328].Value) = 0 Then Exit Sub ws.Cells.Clear For i = desWS.[CA328] To desWS.[CE328]: desWS.[BU331].Value = i Set MyRng = desWS.[BW330:CK372] Application.ScreenUpdating = False MyRng.Copy If ws.[D9] = "" Then MyRng.Copy With ws.[c5] .PasteSpecial xlPasteValues: .PasteSpecial xlPasteFormats End With Else lCol = ws.Cells(9, ws.Columns.Count).End(xlToLeft).Column + 5 MyRng.Copy With ws.Cells(5, lCol) .PasteSpecial xlPasteValues: .PasteSpecial xlPasteFormats End With End If Application.CutCopyMode = False Application.ScreenUpdating = True Next i End Sub   2024-04-11 الفواتير من 2024-04-05 الى.pdf