View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Trevor Shuttleworth Trevor Shuttleworth is offline
external usenet poster
 
Posts: 1,089
Default Table creation help please

One way, with a macro:

Sub CreateStations()

Const FirstPartLower = 10
Const FirstPartUpper = 11
Const SecondPartLower = 0
Const SecondPartUpper = 80
Const FinalPart = 12
Dim i As Long
Dim j As Long
Dim k As Long

k = 1

For i = FirstPartLower To FirstPartUpper Step 1
For j = SecondPartLower To SecondPartUpper Step 20
Range("A" & k) = _
Application.WorksheetFunction.Text(i, "00") & _
"+" & _
Application.WorksheetFunction.Text(j, "000")
k = k + 1
Next j
Next i

Range("A" & k) = _
Application.WorksheetFunction.Text(FinalPart, "00") & _
"+" & _
Application.WorksheetFunction.Text(0, "000")

End Sub


Adjust the constants as required

Regards

Trevor


"Dave" wrote in message
...
I have to create a worksheet for a highway design class. I need to be able
to
create a table between certain chainage stations.

example:
I need to create a table starting from 10+000 to 12+000 at 20 metre
intervals.

Is this possible so a table is created with a column of station numbers
10+000, 10+020, 10+040, 10+060....... 11+080, 12+000.

Any help or ideas is greatly appreciated.