Macro Print Numbers
 

Hi:


I have a macro written but the enter value does not print. . .any
thoughts?
When the user enter an order number into the message box I want the
following to print:

SyteLine Order No: 67551 or whatever the order number is

The text prints but not the number

Sub GetOrderNo()
Dim strName As String

' GetOrderNo Macro
' Macro recorded 1/23/2006
'
' Keyboard Shortcut: Ctrl+g
'
strName = InputBox(Prompt:="Enter SyteLine Order Number")
ActiveCell.FormulaR1C1 = "SyteLine Order No: " & Format("###0")

End Sub


--
dah
------------------------------------------------------------------------
dah's Profile: http://www.excelforum.com/member.php...fo&userid=6493
View this thread: http://www.excelforum.com/showthread...hreadid=504098

Macro Print Numbers
 

Format("###0")
should be:

Format(clng(strname),"###0")

strName is a string
clng(strname) converts it to a long integer.

And format likes numbers.

dah wrote:

Hi:

I have a macro written but the enter value does not print. . .any
thoughts?
When the user enter an order number into the message box I want the
following to print:

SyteLine Order No: 67551 or whatever the order number is

The text prints but not the number

Sub GetOrderNo()
Dim strName As String

' GetOrderNo Macro
' Macro recorded 1/23/2006
'
' Keyboard Shortcut: Ctrl+g
'
strName = InputBox(Prompt:="Enter SyteLine Order Number")
ActiveCell.FormulaR1C1 = "SyteLine Order No: " & Format("###0")

End Sub

--
dah
------------------------------------------------------------------------
dah's Profile: http://www.excelforum.com/member.php...fo&userid=6493
View this thread: http://www.excelforum.com/showthread...hreadid=504098

--

Dave Peterson