مطلوب كود vba لنسخ بيانات بعدد معين بخلايا

[controller]

السلام عليكم ورحمة الله وبركاته 
الاساتذة الكرام 
مطلوب مساعدة كم هو واضح بعنون الموضوع الله يسعدكم 
نسخ بيانات بحسب العدد المرات المسجل  
مثال :

اسم محمد 
اريد تسخه 5 مرات 
بكود vba 
ينسخ بالخليه الاسم  ويكرر 5 مرات بالاسفل

مرفق مثال للتوضيح
شاكر لكم مسبقا اخواني

free pl.xlsm

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم

أدرج موديول جديد وضع الدالة المعرفة التالية في الموديول

Function xDupsV(fCol As Range, Optional offsetCol As Integer = -1)
    Dim a, r1 As Range, r2 As Range, c As Range, cc As Range, i As Long, j As Long
    Application.Volatile True
    Set r1 = fCol
    Set r2 = r1.Offset(, offsetCol)
    ReDim a(1 To 1)
    For Each c In r1
        Set cc = c.Offset(, offsetCol)
        If Not IsEmpty(c) And cc > 0 Then
            For j = 1 To cc
                i = i + 1
                ReDim Preserve a(1 To i)
                a(i) = c
            Next j
        End If
    Next c
    xDupsV = WorksheetFunction.Transpose(a)
End Function

ثم في الخلية C11 ضع المعادلة بهذا الشكل

=xdupsv(F3:F6)

لا تنسى أن تقوم بمسح النطاق C11 إلى آخر النطاق قبل وضع المعادلة

[controller]

استاذي الفاضل ياسر ابو البراء 
الله يطول بعمرك ويسعدك دنيا واخره 
شكرررررررررررررررررررررررررررررررررررررررررررررررررررررررا كثيرا من اعماق قلبي

 

اخي ملاحظه صغيرة 
الملف المرفق كان مثال 
كيف اعرف الاعمده من الصفوف في الكود لكي اعدلها
صراحه مبين قدامي حروف في حروف ههههههه فتورطت
فضلا شرح بسيط من قبلكم لكي اعدله بملفي الاصلي 

 

بارك الله بعلمك ونفع بك

[ياسر خليل أبو البراء]

ارفق المثال الذي تعمل عليه بالضبط أو حاول بنفسك تغيير النطاق فقط في المعادلة المستخدمة في ورقة العمل

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

controller@

 

free ppl.xlsm

[controller]

23 ساعات مضت, محي الدين ابو البشر said:

controller@

 

free ppl.xlsm 33.47 kB · 3 downloads

الاستاذ الفاضل محي الدين اسئل الله ان يبارك الله في علمك ويطول بعمرك
واشكرك كثيراً على هذا الحل الاخر 
تحياتي لك اخي الحبيب