View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Bob Phillips
 
Posts: n/a
Default VBA help (and other) please


"cjtj4700" wrote in message
...
Me again,
A few items:
1) I have plugged this into VB to deny print unless user has selected

valid
info from dropdowns:

Private Sub Workbook_BeforePrint_(Cancel As Boolean)
Cancel As Boolean
Cancel = IsEmpty(ShippingRequestForm)(W11, W13, B10, B14, B18, B23,
B37, D37, N37)

Needless to say, ain't workin' & I know nada about VB but trying! Where

did
I muck this up at?


Guessing here

Private Sub Workbook_BeforePrint_(Cancel As Boolean)
Cancel = Application.COUNTA(Worksheets("ShippingRequestForm ").Range( _
"W11, W13, B10, B14, B18, B23, B37, D37, N37"))
End Sub

2)I have 2 cells with DV (W11 & W13). Trying to make it so user can not
bypass these without choosing from dropdowns. Formula works:
(=IF($W$13="Prepaid,Collect","okay","Invalid"). I can still tab right
through it. If I type anything other than, the error message does work
though. What do I need to add? Additional nested function? Or seperate
formula all together?


Don't you just assume Invalid then? Is that wrong? You could use the
BeforeClose to trap these fileds,a nd if not filled, don't let them close.

3)Dynamic DV list, @ $D$37 for "Description", want same "IsEmpty" rule

also
with the ability for me to nest a list of invalid entries ("Documents",
"Docs", "Gift" etc) resulting in error message.
Thx for the email Debra. Gord, Dave et al have been above and beyond. Feel
like I've attended an XL seminar!
Hey Gord, after these my (Your!) beloved Shipping Request Form will be

done.
I'll send a copy to you for Xmas! LOL


Don't understand about nested invalid entries.