|
|
#6
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
|
|
|
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 |
Windows Vista 
Office 2010 32bit
Threaded Mode