ارجو المساعدة ...

[احمد علي 1981]

اخواني

السلام عليكم

 

عندي ملف اكسل ويحتوي على سجلات كثيرة وهدا مثال بسيط المطلوب : اريد ملئ الرقم بشكل تلقائي مثلا الرقم 1 يحتوي على الرموز a , b,c,d,e  اريد تكرار الرقم على الاحرف الخاصة به 

وكلذلك للرقم 2 وغيره من الارقام مرفق مثال Book11.rar

الرقم       الرمز     value

1            a    

             b

             c          

             d       

             e        

2          a     

            b

            c      

            d

            e

            o       

             p

[عبدالله باقشير]

السلام عليكم

 

حسب ما فهمت من الطلب

استخدم الكود التالي

Sub kh_Add()
Dim Lr As Long
Dim i As Integer

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(Lr, "A").Value = WorksheetFunction.Max(Range("A2:A" & Lr)) + 1
For i = 0 To 4
    Range("B" & Lr).Offset(i, 0).Value = Array("a", "b", "c", "d", "e")(i)
Next
End Sub

تحياتي

[قنديل الصياد]

السلام عليكم

اخى العزيز مرفق ملف به تطبيق لكود استاذنا الكبير

الاستاذ / عبد الله باقشير

ahmed1981.rar

[احمد علي 1981]

شكرا اخواني 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

شكرا اخى على المعلومه الجيده