Using MSG BOX to enter data

[Gregfox]

Hello, I would appreciate help on a problem with MSG BOX.
I would like to have a MSG BOX open and ask questions, and as a result to answering the questions, have the answered put in 4 different cells.
I.e.: MSG BOX-What date?... date put into Cell A1 (format A1 DATE)
What NAME… name put into Cell b1 (format B1 TEXT)
What Amount… amount put into Cell C1 (format C1 $)
Etc. etc.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Thanks.<o></o>
gregfox<o></o>

 

[VoG]

You need an InputBox. Try like this (dates are the trickiest)

Sub test()
Dim sDate As String
sDate = InputBox("Enter date", "Date Input", Format(Date, "dd/mm/yyyy"))
Range("A1").Value = DateValue(sDate)
End Sub

 

[Gregfox]

Thanks, I'll try it.

 

[Gregfox]

When I modified the code to:

Sub DateIn()
Dim sDate As String
sDate = InputBox("Enter date", "Date Input", Format(Date, "dd/mm/yyyy"))
Range("A1").Value = DateValue(sDate)
Dim sTest As String
sTest = InputBox("Enter Derivitive", "Text Input", Format(Text))
Range("B1").Value = TestValue(sStock)
End Sub


^^^
TestValue was highlited and I received a Compiler error: Sub or Function not defined.

 

[Smitty]

Welcome to the Board!

Unless you've done so somewhere else, you haven't set either of these as variables:

TestValue(sStock)

So VBA doesn't know what they are.

And with your Input Box, it should probably be Range("B1").Value = sTest

HTH,

 

[Gregfox]

I tried:

Sub DateIn()
Dim sDate As String
sDate = InputBox("Enter date", "Date Input", Format(Date, "dd/mm/yyyy"))
Range("A1").Value = DateValue(sDate)

Dim sTest As String
sTest = InputBox("Enter Derivitive", "Text Input", Format(Text))
Range("B1").Value = sTest(sStock)
End Sub

But I get sTest highlighted Compiler error: Expected array.
Sorry I don't yet get it....

 

[VoG]

Try

Sub test()
Dim sDate As String, sName As String, sCurrency As String
sDate = InputBox("Enter date", "Date Input", Format(Date, "dd/mm/yyyy"))
sName = InputBox("Enter name")
sCurrency = InputBox("Enter value (number only)")
Range("A1").Value = DateValue(sDate)
Range("B1").Value = sName
With Range("C1")
    .NumberFormat = "$0,000.00"
    .Value = Val(sCurrency)
End With
End Sub

 

[Gregfox]

I just got it, with:
Sub DateIn()
Dim sDate As String
sDate = InputBox("Enter date", "Date Input", Format(Date, "dd/mm/yyyy"))
Range("A1").Value = DateValue(sDate)
Dim sTest As String
sTest = InputBox("Enter Derivitive", "Text Input", Format(Text))
Range("B1").Value = sTest
End Sub

Can you explain why on A1 one uses: Range("A1").Value = DateValue(sDate)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
But on B1 I had to use: Range("B1").Value = sTest<o></o>
Why is DateValue(sDate) vs. sTest, <o></o>
and not<o></o>
DateValue(sDate) vs. DateValue(sTest)?<o></o>
Thanks!

 

[VoG]

See my post here http://www.mrexcel.com/forum/showpost.php?p=2684341&postcount=7

An InputBox returns Text. If you don't want a text value then you need to do a conversion - DateValue for dates, Val for numbers (or currency).

Note that my code has no error checking - that can be built in as well.

If you want to keep requesting this type of information a userform with 3 textboxes and a Submit button would be more user friendly.

 

[Gregfox]

Thank you for all the great help!
gregfox