كود تسلسل تلقائى

[احمد حبيبه]

السلام عليكم 

اريد كود يقوم بعمل تسلسل ألي في العمود C 

بفاصل صفين كما هو موضح بدلالة الخلية  ....

اى عند تغيير الرقم الموجود بالخلية  A1   يتغير التسلسل تلقائيا

تسلسل الى.rar

[أبو حنــــين]

استعمل هذا الكود

Sub MyNmbr()
Dim x As Integer, i As Integer
x = 1
For i = 2 To Range("a1").Value * 3 Step 3
Cells(i, 3) = x
x = x + 1
Next
End Sub

 

[سليم حاصبيا]

بعد اذن اخي ابو حنين

نفس العمل لكن بالمعادلات 

ضع هذه المعادلة في الخلية D2 واسحب نزولاً

=IF(MAX($D$1:D1)+1>$A$1,"",IF(MOD((ROWS($A$1:A1)-1),3)<>0,"",MAX($D$1:D1)+1))

للتوضيح المرفق

في الحالة العامة   (المرفق )   يجب وضع هذه المعادلة في الخلية D2

عندها يمكن تغيير القيمتين في A1  &  F1

=IF(MAX($D$1:D1)+1>$A$1,"",IF(MOD((ROWS($A$1:A1)-1),$F$1+1)<>0,"",MAX($D$1:D1)+1))

 

تسلسل الى salim.rar

تم تعديل سبتمبر 4, 2016 بواسطه سليم حاصبيا

[احمد حبيبه]

أخى الحبيب أبو حنــــين

أخى الحبيب سليم حاصبيا

شغل رائع ومجهود ممتاز اشكركم جدا جدا جدا

[محمد ابراهيم محمد]

ابحث عن كود تسلسل تلقائى بحيث لا يقوم بالتسلسل الا اذ بحث في الأصناف الموجودة قبل ذلك حتى لا يكون في تكرار في الاصناف

[سليم حاصبيا]

2 ساعات مضت, محمد ابراهيم محمد said:

ابحث عن كود تسلسل تلقائى بحيث لا يقوم بالتسلسل الا اذ بحث في الأصناف الموجودة قبل ذلك حتى لا يكون في تكرار في الاصناف

ارفع نموذجاً عما تريد(10 اسطر)

[جلال الجمال_ابو أدهم]

 أبو حنــــين

 سليم حاصبيا

الاخوه الافاضل ما شاء الله
تحياتى

[أبو حنــــين]

أخي جلال : جزاك الله خيرا على المرور

 تقبل تحياتي 

تم تعديل سبتمبر 26, 2016 بواسطه أبو حنــــين