كود الترقيم التلقائي بالجملة

[aspiran]

السلام عليكم أحبابي أعضاء ورواد المنتدى

 

أطلب من  رواد المنتدى مساعدتي في إيجاد كود يقوم بالترقيم التلقائي مباشرة في العمود "A" بعد لصق مجموعة من الكلمات في العمود

"B

 

شكرامسبقا

[يحيى حسين]

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

أخي جرب هذا الكود 

Sub AddSerial()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
Range("A2").Value = 1
Range("A2:A" & LR).DataSeries xlColumns, xlLinear, , 1, LR
End Sub
    

 

و هو يعتمد على القيم المدخلة في العامود B

[aspiran]

بارك الله فيك أخي يحيى

[أبو محمد أشرف]

ولإثراء الموضوع 

بعد إذن الأستاذ يحيى حسين

هذه ملفات ترقيم تلقائي بمجرد الكتابة في الخلية B يتم الترقيم التلقائي 

وكذلك هناك ملف بالمعادلات 

ترقيم تلقائي 4.rar

كود ترقيم تلقائي 3.rar

ترقيم تلقائي بالمعادلة.rar