Hi,

I am really new to VBA programming and was seeking some help and thi
seems like a great place to do it.

Here is the code that i have at the moment:


Public Sub AddNames()

Dim FirstName As String
FirstName = InputBox("What is your firstname?", "First Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Va lue
_\"=FirstName_"

End Sub


My aim is to get an input box to prompt a user to input their firs
name and after the user does so, excel will input the user's name int
the particular cell. I think my problem is what i've underline
("=FirstName")... i don't know what i should put after the value to ge
it to do what i need it to do. Maybe i've made other mistakes too?

Any help would be great. Thanks

--
nhan
-----------------------------------------------------------------------
nhanh's Profile: http://www.excelforum.com/member.php...fo&userid=1501
View this thread: http://www.excelforum.com/showthread.php?threadid=26637

Hi
use
activesheet.range("A1").value=firstname

--
Regards
Frank Kabel
Frankfurt, Germany

"nhanh" schrieb im Newsbeitrag
...

Hi,

I am really new to VBA programming and was seeking some help and this
seems like a great place to do it.

Here is the code that i have at the moment:


Public Sub AddNames()

Dim FirstName As String
FirstName = InputBox("What is your firstname?", "First Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Va lue =
_\"=FirstName_"

End Sub


My aim is to get an input box to prompt a user to input their first
name and after the user does so, excel will input the user's name
into
the particular cell. I think my problem is what i've underlined
("=FirstName")... i don't know what i should put after the value to
get
it to do what i need it to do. Maybe i've made other mistakes too?

Any help would be great. Thanks!


--
nhanh
---------------------------------------------------------------------
---
nhanh's Profile:
http://www.excelforum.com/member.php...o&userid=15019
View this thread:
http://www.excelforum.com/showthread...hreadid=266371

It was a simple mistake you made.....try this....

Public Sub AddNames()

Dim FirstName As String
FirstName = InputBox("What is your firstname?", "First Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Va lue = FirstName

End Sub

Note i have removed the " from both ends and the = as formulae o
answers to arguments have =, you have already declared Firstname.

Hope this helps.

Simo

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=26637

Try:
Worksheets("sheet1").Range("B2").Value = FirstName


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"nhanh" wrote in message
...

Hi,

I am really new to VBA programming and was seeking some help and this
seems like a great place to do it.

Here is the code that i have at the moment:


Public Sub AddNames()

Dim FirstName As String
FirstName = InputBox("What is your firstname?", "First Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Va lue =
_\"=FirstName_"

End Sub


My aim is to get an input box to prompt a user to input their first
name and after the user does so, excel will input the user's name into
the particular cell. I think my problem is what i've underlined
("=FirstName")... i don't know what i should put after the value to get
it to do what i need it to do. Maybe i've made other mistakes too?

Any help would be great. Thanks!


--
nhanh
------------------------------------------------------------------------
nhanh's Profile:
http://www.excelforum.com/member.php...o&userid=15019
View this thread: http://www.excelforum.com/showthread...hreadid=266371

Public Sub AddNames()

Dim FirstName As String
Do
FirstName = InputBox("What is your firstname?", "First Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Va lue =FirstName
loop until FirstName < ""

End Sub

--

HTH

RP

"nhanh" wrote in message
...

Hi,

I am really new to VBA programming and was seeking some help and this
seems like a great place to do it.

Here is the code that i have at the moment:


Public Sub AddNames()

Dim FirstName As String
FirstName = InputBox("What is your firstname?", "First Name")
ActiveWorkbook.Worksheets("sheet1").Range("B2").Va lue =
_\"=FirstName_"

End Sub


My aim is to get an input box to prompt a user to input their first
name and after the user does so, excel will input the user's name into
the particular cell. I think my problem is what i've underlined
("=FirstName")... i don't know what i should put after the value to get
it to do what i need it to do. Maybe i've made other mistakes too?

Any help would be great. Thanks!


--
nhanh
------------------------------------------------------------------------
nhanh's Profile:
http://www.excelforum.com/member.php...o&userid=15019
View this thread: http://www.excelforum.com/showthread...hreadid=266371

Nice Bob!,

Wish i had thought of the lines you added.......Do.....loop unti
FirstName < ""


Simo

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=26637