طلب مساعدة بخصوص دالة rept

[bander22122]

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

أخواني أعضاء المنتدى أواجه مشكلة فى دالة rept حيث أنني أطبقها على قوائم منسدلة لتكرار الحصص 

والمشكلة إختفاء الدالة عند تغيير الحصة كما هو موضح في الصورة

 

 

 

 

 

والملف بالمرفقات

 

أتمنى المساعدة منكم وشكرا

bander2015.rar

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

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

يمكن التعديل في الكود ليشمل نطاق أكبر

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Target.Offset(, 1) = Target: Target.Offset(, 2) = Target: Target.Offset(, 3) = Target
    End If
    If Not Intersect(Target, Range("C2")) Is Nothing Then
        Target.Offset(, 1) = Target: Target.Offset(, 2) = Target
    End If
    If Not Intersect(Target, Range("D2")) Is Nothing Then
        Target.Offset(, 1) = Target
    End If
End Sub

Worksheet_Change Instead Of REPT Function.rar

[bander22122]

فعلا هذا المطلوب 

شكرا أستاذي ورزقك الله من حيث لا تحتسب

تم حل المشكلة

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

الحمد لله أخي الكريم أن تم حل المشكلة

يمكنك تحديد المشاركة رقم 2 كأفضل إجابة ، حتى تظهر للأعضاء أن الموضوع مجاب ..