Previous Topic Next Topic

Roman number series (macro)

Closed
Caines87 Posts 1 Registration date Wednesday April 27, 2011 Status Member Last seen April 27, 2011 - Apr 27, 2011 at 10:37 PM
RWomanizer Posts 365 Registration date Monday February 7, 2011 Status Contributor Last seen September 30, 2013 - Apr 28, 2011 at 03:50 AM
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

Answer 1 / 1
RWomanizer Posts 365 Registration date Monday February 7, 2011 Status Contributor Last seen September 30, 2013 120
Apr 28, 2011 at 03:50 AM
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.
0