Input Box Formatting

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Doctorjones_md - 31 Jan 2007 20:02 GMT

I have the following code with pops up a conditional message box and
inserts Text into Cell D10 (which is prepopulated using =Now() to insert
Date/Time. I need format of Cell D10 to change to General so that the Text
"Closed" -- inserted by the Input Bos will display properly.

Here's my code:

If MsgBox("Is this a Closed Deal?", vbQuestion + vbYesNo) = vbYes Then

Sheets("Analysis").Range("D10").Value = InputBox("Enter CLOSED for a Closed
Deal and CLICK OK, or CLICK Cancel to save an Opportunity?")

End If
'Call RollupTrackingSpecificData

End Sub
=================
How would I modify the code to ensure that the date in the Input Box is
displayed at text in D10?

Thank you in Advance

Reply to this Message

Corey - 31 Jan 2007 20:36 GMT

works fine for me as is??

>I have the following code with pops up a conditional message box and
>inserts Text into Cell D10 (which is prepopulated using =Now() to insert
[quoted text clipped - 17 lines]
>
> Thank you in Advance

Reply to this Message

JLGWhiz - 31 Jan 2007 23:38 GMT

You can insert this line before your input box just to be sure.

ActiveSheet.Range("$D$10").NumberFormat = "General"

> I have the following code with pops up a conditional message box and
> inserts Text into Cell D10 (which is prepopulated using =Now() to insert
[quoted text clipped - 17 lines]
>
> Thank you in Advance

Reply to this Message