[Beginner's] Increasing numbers in a table
 

Please give full code for a macro that gives the user a user-friendly
way to determine a number, then makes this number the value of a
certain cell and increases the number for a certain range of cells,
like this:

http://img136.imageshack.us/img136/8185/numbers.gif

Thanks!

Increasing numbers in a table
 

Try this it does what your example shows

Sub Button1_Click()
Dim s As String
s = InputBox("What is the number")
Range("A1") = s
Range("B1:D1").FormulaR1C1 = "=RC[-1]+20"
Range("A1:D1").AutoFill Destination:=Range("A1:D20"),
Type:=xlFillDefault
End Sub

Increasing numbers in a table
 

On 7 Mar, 17:12, CurlyDave wrote:
Try this it does what your example shows

Sub Button1_Click()
* * Dim s As String
* * s = InputBox("What is the number")
* * Range("A1") = s
* * Range("B1:D1").FormulaR1C1 = "=RC[-1]+20"
* * Range("A1:D1").AutoFill Destination:=Range("A1:D20"),
Type:=xlFillDefault
End Sub

Actually, that doesn't work - "Syntax error".

Increasing numbers in a table
 

"pnumminen" ha scritto nel messaggio
...
On 7 Mar, 17:12, CurlyDave wrote:
Try this it does what your example shows

Sub Button1_Click()
Dim s As String
s = InputBox("What is the number")
Range("A1") = s
Range("B1:D1").FormulaR1C1 = "=RC[-1]+20"
Range("A1:D1").AutoFill Destination:=Range("A1:D20"),
Type:=xlFillDefault
End Sub

Actually, that doesn't work - "Syntax error".

Sub Button1_Click()
Dim s As String
s = InputBox("What is the number")
Range("A1") = s
Range("B1:D1").FormulaR1C1 = "=RC[-1]+20"
Range("A1:D1").AutoFill Destination:=Range("A1:D20"), Type:=xlFillDefault
'<== change this line
End Sub

Look to the sintax at commented row (before last row).
Regards,
John

Increasing numbers in a table
 

On Mar 8, 9:03*am, pnumminen wrote:
On 7 Mar, 17:12, CurlyDave wrote:

Try this it does what your example shows

Sub Button1_Click()
* * Dim s As String
* * s = InputBox("What is the number")
* * Range("A1") = s
* * Range("B1:D1").FormulaR1C1 = "=RC[-1]+20"
* * Range("A1:D1").AutoFill Destination:=Range("A1:D20"),
Type:=xlFillDefault
End Sub

Actually, that doesn't work - "Syntax error".

Sometimes, when pasting code to the forum, the lines get split, if a
line is in red when you paste the code in the VBA editor, chances are
that the line of code is split and you will have to join it.