توزيع البطاقات على المراكز بالكود

[SELMY]

ارغب بتويع المراكز على البطاقات بالكود بحيث كل مركز ياخذ 12 بطاقة ثم ينتقل للمركز الذي يليه كما هو موضح بالشيت

توزيع اللبطاقات علي المراكز.xlsm

[أ / محمد صالح]

يمكنك تجربة هذا الكود

Sub mas_twze3()
Dim lr As Long, n As Long
lr = Cells(Rows.Count, 1).End(3).Row
n = 1
For r = 3 To lr
Range("g" & r) = "مركز توزيع رقم " & n
n = IIf((r - 2) Mod 12 = 0, n + 1, n)
Next r
MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق 

[SELMY]

السلام عليكم 

كود رائع الف شكر 

كنت ارغب فى انه يتم  استدعاء اسماء المراكز من شيت bank ( حيث ممكن استبدال المراكز باى بيان اخر كا اسماء موظفين مثلا )