Roman number series (macro)

Closed
Caines87 Posts 1 Registration date Wednesday 27 April 2011 Status Member Last seen 27 April 2011 - 27 Apr 2011 à 22:37
RWomanizer Posts 365 Registration date Monday 7 February 2011 Status Contributor Last seen 30 September 2013 - 28 Apr 2011 à 03:50
Hey guys.
I need to make macro witch makes series of Roman numbers (Similar to built in excel series- http://i63.photobucket.com/albums/h129/Edds87/fillseries.jpg )

So I made user-form and recorded built in "fill series" in macro and I'm trying to combine and modify them but I'm out of luck. I'm sure that this is maximum five minute job for experienced person, but I'm newbie to VBA and I'm really stuck.
Please help me.
P.S. Sorry for my terrible english.
Excel

1 response

RWomanizer Posts 365 Registration date Monday 7 February 2011 Status Contributor Last seen 30 September 2013 120
28 Apr 2011 à 03:50
Use the following macro :

Sub CustomRomanSeries()
    Dim i As Long
    On Error Resume Next
    For i = 1 To 4100
    Range("A" & i).Value = WorksheetFunction.Roman(i)
    Next i
    Application.AddCustomList ListArray:=Range("A1:A3999")
End Sub


Once the custom series added you can delete the codes.