تكرار المسلسل كل 10 صفوف

[محمد سامر]

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

اريد من الأساتذه المساعده في الترقيم التلقائي للمسلسل كل 10 صفوف. عن طريق كود.

بدءا من الخليه (B11)

"كل 10 صفوف يتم تكرار العدد من( 10:1) .....وهكذا

بشرط ادخال اي قيمه بالخليه"a" المجاوره لها، لكي يظهر الترقيم

وجزاكم الله خيرا

تكرار المسلسل كل 10 صفوف.xlsm

 

تم تعديل مايو 25, 2018 بواسطه محمد سامر

[Ali Mohamed Ali]

تفضل اخى الكريم هذا حل سريع بالمعادلات

الى ان يتم عمل كود لك من الإخوة والأساتذة

 

تكرار المسلسل كل 10 صفوف-1.xlsm

[محمد سامر]

 

مشكور على الحل الجميل بالمعادلات استاذ علي

لكني اريدها بالكود !!!!

جزاك الله خيرا

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

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

جرب هذا الكود

Sub ReSerial()
Dim Ws As Worksheet
Dim LR As Long, i As Long, x As Long
Set Ws = Sheets("data1")
LR = Ws.Range("A" & Rows.Count).End(xlUp).Row
For i = 11 To LR
x = i Mod 10
If x = 0 Then x = x + 10
If Cells(i, 1) <> "" Then
Cells(i, 2) = x
End If
Next
End Sub

 

[Ali Mohamed Ali]

بارك الله فيك استاذنا الكبير زيزو وجعله فى ميزان حسناتك

انه حقا كود رائع-جزاك الله كل خير

 

 

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

بعد اذن اخي زيزو هذا الكود

Sub Numeration()

    Range("A1").Select
    Do While ActiveCell.Offset(0, 1) <> ""
      ActiveCell.FormulaR1C1 = "1"
      Selection.DataSeries Rowcol:=xlColumns, Stop:=10
      ActiveCell.Offset(10, 0).Select
    Loop
   Range("A1").Select
End Sub

 

[محمد سامر]

جزاك الله خيرا استاذ زيزو خير الجزاء

جزاك الله خيرا استاذ سليم

بارك الله فيكم وجعله في ميزان حسناتكم

تم تعديل مايو 26, 2018 بواسطه محمد سامر