[Beginner's] Increasing numbers in a table

[pnumminen]

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!

 

[CurlyDave]

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("B11").FormulaR1C1 = "=RC[-1]+20"
Range("A11").AutoFill Destination:=Range("A120"),
Type:=xlFillDefault
End Sub

 

[pnumminen]

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("B11").FormulaR1C1 = "=RC[-1]+20"
    Range("A11").AutoFill Destination:=Range("A120"),
Type:=xlFillDefault
End Sub

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

 

[bigjohn]

"pnumminen" <[email protected]> ha scritto nel messaggio

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("B11").FormulaR1C1 = "=RC[-1]+20"
Range("A11").AutoFill Destination:=Range("A120"),
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("B11").FormulaR1C1 = "=RC[-1]+20"
Range("A11").AutoFill Destination:=Range("A120"), Type:=xlFillDefault
'<== change this line
End Sub

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

 

[CurlyDave]

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("B11").FormulaR1C1 = "=RC[-1]+20"
    Range("A11").AutoFill Destination:=Range("A120"),
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.