ترحيل

[فوزى فوزى]

السلام عليكم ورحمة الله وبركاته ممكن معادلة ترحل لى الأسماء من جدول توزيع الأدوار الى جدول الترحيل بمعنى اذا وضعت رقم امام الاسم يذهب مباشرة الى جدول الترحيل امام رقمه في جدول الترحيل مثال محمد امامه رقم 1 ، 4 ، 5 المفروض يتم توزيعه ثلاث مرات في جدول الترحيل امام مسلسل رقم 1 ، 4 ، 5 وهذا مثال على ذلك

ترحيل.xlsx

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

وعليكم السلام

ريما

Sub test()
Dim a, b, c
Dim i&, ii&
a = Cells(3, 2).CurrentRegion
b = Cells(3, 10).CurrentRegion.Offset(2).Columns(1)
ReDim c(1 To UBound(b) - 2)
    For i = 2 To UBound(a)
        For ii = 3 To UBound(a, 2)
            If (a(i, ii)) <> "" Then c(Application.Match(a(i, ii), b, 0)) = a(i, 2)
        Next
    Next
    Cells(5, 11).Resize(UBound(c)) = Application.Transpose(c)
End Sub

 

[فوزى فوزى]

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

 بعد اذن أستاذ محى الدين  ممكن تطبق لى الكود على الشيت الاساسى لانه حدث خطأ عندى اثناء تطبيق الكود على الشيت

الجمعية الشهرية.xlsm

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

هكذا؟ 

عادل ماذا عنه

 

الجمعية الشهرية (2).xlsm

[فوزى فوزى]

جزاكم الله خير ما شاء الله هو المطلوب ربنا يجزيكم الجنة والف شكر تعبتك معى

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

[فوزى فوزى]

وليد ماذ عنه الشرح داخل الشيت

الجمعية الشهرية (2).xlsm

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

 

ما معنى هذه الكلمة UBound

Ubouind(a) 

من أبعاد المصفوفة a

مثال مصفوفة 4×3

Ubound(a,1) =4

Ubound(a,2) =3

 

[فوزى فوزى]

جزاكم الله على هذا الشرح ممكن تكملة الباقى بعد اذنك