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

[الشافعي]

السلام عليكم 

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

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

مرفق المرفق 

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

Book1.xlsxFetching info...

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

[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

 

[الشافعي]

اخي العزيز 

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

 

[محمد هشام.]

  في 27‏/7‏/2024 at 11:09, الشافعي said:

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

Expand  

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

ضع  الصيغة التالية في الخلية (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.xlsxFetching info...

[الشافعي]

  في 27‏/7‏/2024 at 23:18, محمد هشام. 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

Expand  

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

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