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!

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

On 7 Mar, 17:12, CurlyDave <davesex...@gmail.com> 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("B11").FormulaR1C1 = "=RC[-1]+20"
> * * Range("A11").AutoFill Destination:=Range("A120"),
> Type:=xlFillDefault
> End Sub

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

"pnumminen" <(E-Mail Removed)> ha scritto nel messaggio
news:17d99667-b5c2-4331-9c67-(E-Mail Removed)...
On 7 Mar, 17:12, CurlyDave <davesex...@gmail.com> 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("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

On Mar 8, 9:03*am, pnumminen <p.nummi...@suomi24.fi> wrote:
> On 7 Mar, 17:12, CurlyDave <davesex...@gmail.com> 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("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.