Message Box Restriction

excelledsoftware · #1 03-22-2012, 12:08 PM

Quote:

Originally Posted by Catalin.B

Why don't you give all the details from the begining?

All you need to do is to insert a validation line:

Code:

Tablenum = Application.InputBox("Enter Old Style Division Number, a number from 1 to 9:", Title:="Numbers", Default:=1, Type:=1)
If Tablenum < 1 Or Tablenum > 9 then 
MsgBox "Not valid!"
Exit Sub
End if
ActiveSheet.PivotTables("PivotTable6").PivotFields  ("DIV").CurrentPage = Tablenum

Ok the validation line is helpful. I will just add a dummy 6 into the table so it will always return a result for 1-9. Ill let you know how it works.

excelledsoftware · #2 03-22-2012, 02:34 PM

Quote:

Originally Posted by excelledsoftware

Ok the validation line is helpful. I will just add a dummy 6 into the table so it will always return a result for 1-9. Ill let you know how it works.

Yeah this will work. Its not the perfect solution since I really wanted a list as the validation but 1-9 works too.

Thanks

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