Message Box Restriction

excelledsoftware · #1 03-22-2012, 11:12 AM

Quote:

Originally Posted by Catalin.B

For selecting a value from a list, is better to create a form, with a list field, you can find here lots of examples. If you cannot find one, i will give you tomorrow an example.

Hmmmn Ive allready got that with the Pivot Table. Oh well my goal was to have the user type in a number from 1-9 (6 is not always a valid number though) and it restrict them to that. The reason I wanted it as a macro was so the pivot table will refresh each time they click it.

Catalin.B · #2 03-22-2012, 11:17 AM

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

excelledsoftware · #3 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 · #4 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