احتاج دالة نقل بيانات من جدول بطريقة عمودية

[الشافعي]

السلام عليكم 

ارجو المساعدة احتاج دالة في نقل المبلغ من الجدول حسب المدة 

بطريقة عمودية وتجاهل المدة اللي امامها صفر وتكملة المدة بالمبلغ الموجودة بها عدد

مرفق المرفق 

اشكركم مقدما للمساعدة

Book1.xlsx

تم تعديل يوليو 26 بواسطه الشافعي
راس الموضوع

[lionheart]

Try this code

Sub Test()
    Const SROW As Long = 6
    Dim w, m As Long, r As Long, n As Long
    Application.ScreenUpdating = False
        With ActiveSheet
            .Columns("L:M").ClearContents
            m = SROW
            For r = SROW To .Cells(Rows.Count, "J").End(xlUp).Row
                n = .Cells(r, "I").Value
                If n > 0 Then
                    .Cells(m, "L").Resize(n).Value = .Cells(r, "J").Value
                    m = m + n
                End If
            Next r
            m = m - SROW
            w = Evaluate("ROW(1:" & m & ")")
            .Range("M" & SROW).Resize(UBound(w, 1)).Value = w
        End With
    Application.ScreenUpdating = True
End Sub

 

[الشافعي]

اخي العزيز 

اشكركم على مجهودك ولكن انا احتاج دالة وليس كود اذا امكن 

 

[محمد هشام.]

12 ساعات مضت, الشافعي said:

احتاج دالة وليس كود اذا امكن

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

ضع  الصيغة التالية في الخلية (E6) مع سحبها للاسفل 

=IFERROR(INDEX($J$6:$J$11,MATCH(TRUE,MMULT(--(ROW($J$6:$J$11)>=TRANSPOSE(ROW($J$6:$J$11))),$I$6:$I$11)>=ROWS($1:1),0)),"")

في حالة الرغبة بتسلسل عمود  المدة بقدر بيانات عمود المبلغ  في الخلية (F6) مع سحب المعادلة للاسفل 

=IF(E6<>"",ROWS($A$1:A1),"")

 

 

Book1.xlsx

[الشافعي]

22 ساعات مضت, محمد هشام. said:

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

ضع  الصيغة التالية في الخلية (E6) مع سحبها للاسفل 

=IFERROR(INDEX($J$6:$J$11,MATCH(TRUE,MMULT(--(ROW($J$6:$J$11)>=TRANSPOSE(ROW($J$6:$J$11))),$I$6:$I$11)>=ROWS($1:1),0)),"")

في حالة الرغبة بتسلسل عمود  المدة بقدر بيانات عمود المبلغ  في الخلية (F6) مع سحب المعادلة للاسفل 

=IF(E6<>"",ROWS($A$1:A1),"")

 

 

Book1.xlsx 41.25 kB · 5 downloads

اشكرك جدا استاذ محمد هشام على مجهودك وربنا يجعله في ميزان حسناتك 

اشكرك جدا استاذ محمد وربنا يجعله في ميزان حسناتك