معادلة تحديث جلب البيانات المدخلة بصفحة اخرى بتسلسل

[وادي سلي]

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

Classeur1.xlsx

[سليم حاصبيا]

السؤال غير مفهوم 

على اي اساس تختار قيمة التغذية مثلا (الصف الاول او الثاني)

[ابراهيم الحداد]

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

ربما تقصد هذا

اليك الملف

 

Classeur1.xlsx

[الرائد77]

تفضل

تتغير اوتوماتيكيا حسب تغير اسم البرنامج. يمكنك سحب المعادلة في حالة اضافة برامج أخرى

Classeur1.xlsx

[وادي سلي]

بارك الله فيك الله يحفظك هذا ماكنت أريد وصح فطورك وتقبل الله منا ومنكم أميييين

السلام عليكم أستاذ الرائد77 أريد منك أن لا تتوقف عند c14أريدها مالا نهاية وشكرا

[الرائد77]

Classeur1 (2).xlsx

[عبدالفتاح في بي اكسيل]

بعد  اذن  الاساتذة   هذ ا كود  ديناميكي 

Sub TransferData()

Dim a, b, i&, Dic As Object
Set Dic = CreateObject("scripting.dictionary")

a = Sheets("Sheet1").[B7].CurrentRegion
ReDim b(1 To UBound(a), 1 To 10000)

For x = 2 To UBound(a)
    If Not Dic.exists(a(x, 2)) Then
        i = i + 1
        Dic.Add a(x, 2), i
        b(1, i) = a(x, 2)
    End If

    i = Dic(a(x, 2))
    For y = 2 To UBound(b)
        If IsEmpty(b(y, i)) Then
            b(y, i) = a(x, 3)
            Exit For
        End If
    Next
Next

Sheets("Sheet2").[C8].Resize(UBound(b), UBound(b, 2)) = b

End Sub

 

POSTING.xls