Message Box Restriction

excelledsoftware · #3 03-22-2012, 10:38 AM

Quote:

Originally Posted by Catalin.B

I do not know how your macro looks, but basically, there is a difference between InputBox and Application.InputBox. (I guess you use the first one

)
With the last one, you can select the type of data permitted for an entry:
Type:=0 A formula
Type:=1 A number
Type:=2 Text (a string)
Type:=4 A logical value (True or False)
Type:=8 A cell reference, as a Range object
Type:=16 An error value, such as #N/A
Type:=64 An array of values

Code:

Application.InputBox("Enter a number !", Title:="Numbers", Default:=1, Type:=1)

And, as you can see, you can enter a default value if you need that...

Ah, Yes I was using the first one. Here is what my macro looks like right now.

Sub RefreshSelect()
'
' RefreshSelect Macro
' Macro recorded 3/22/2012 by JRErickson
ActiveSheet.PivotTables("PivotTable6").PivotCache. Refresh
Dim Tablenum As Integer
Tablenum = Application.InputBox("Enter Old Style Division Number", Title:="Numbers", Default:=1, Type:=1)
ActiveSheet.PivotTables("PivotTable6").PivotFields ("DIV").CurrentPage = Tablenum
End Sub

Now I just need to restrict it to a list found on another worksheet. Where does that go? in the title?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Message Box	ibrahimaa	Excel Programming	3	02-26-2012 02:32 PM
navigation arrows post form restriction	wcohan	Word	1	12-29-2011 11:58 AM
Business Contact Manager "assigned to" restriction rule?	kossae	Outlook	0	05-25-2011 10:54 AM
Error message	White House	Outlook	1	12-07-2010 04:52 AM
Outlook Restriction? php link suffix	MWE	Outlook	0	11-17-2010 07:25 PM