مساعدة فى عمل كود

[hitech]

السلام عليكم

اريد عمل كود بحيث عند ربطه بزر والضغط عليه يقوم باظهار النتائج من 1 الى 50 وعند كتابة من 51 الى 100 يقوم باظهار النتائج من 51 الى 100 وهكذا

مسلسل.xlsx

[حسين مامون]

تفضل

Sub test()
Dim RG1, RG2
Dim r, x
Set RG1 = [D3]: Set RG2 = [E3]
r = 2
Application.ScreenUpdating = False
If RG1 > 51 Then MsgBox "ادخل فقط من 1 الى50", vbExclamation: Exit Sub
If RG2 > 100 Then MsgBox "لا يمكن ادخال اكبر من 100", vbExclamation: Exit Sub
Range("j2:j1000000").ClearContents
For x = RG1 To RG2
Range("j" & r).Value = x
r = r + 1
Next x
Application.ScreenUpdating = True

End Sub

 

مسلسل.xlsm