msg box
 

I'm currently upgrading my company's travel expense report. As a rule, I
require all employees to provide name(s) and topic of discussion when
entertaining a customer/co-worker. Well, this rule is often violated
requiring me to follow-up with the employee to obtain the necessary info. Is
there such a macro (i.e., msgbox) that would automatically request for this
info immediately after the user populates a particular cell? In other words,
let's say the user enters $50.00 in a cell that corresponds to the row for
"Customer Entertainment Expenses". I'd like for some sort of questionairre
to pop-up that requires the user to complete before they can continue.
Moreover, I'd like for his answers to pop-up on different section of the
worksheet. If the user leaves blank, the amount is rejected. Tall order,
huh!?

msg box
 

To help you go a bit further ...
Two remarks :

1. Your "pop-up questionnaire" is a UserForm you will have to design
which will specifically show all the fields you want to have filled in
...

2. For this userform to pop-up, as soon as a given cell is updated, you
will have an event macro, attached to the worksheet, which will show the
form to be filled in ...

HTH
Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=530820

msg box
 

Hi Carim,

Sorry for the delay. Anyhow, I'm not much of a seasoned macro/UserForm
operator so I'd sure appreciate a few more details on how to create a
UserForm (incl. the related macro). I did look-up UserForms and learned how
to install a pop-up questionairre according to their sample, but I can't
figure out how to customize it to my own criteria. Moreover, I definitely
don't know how to install a macro that would activate my pop-up
questionnaire. Currently, I have the following worksheet event on my
spreadsheet:

If Intersect(Target(1), Me.Range("Y53:BN53")) Is Nothing Then Exit Sub

If Intersect(Target(1), Me.Range("Y53:BN53")) Is Nothing Then Exit Sub
If Target(1).Value = 250 Then
If MsgBox("Was vehicle held over the weekend?", _
vbYesNo) = vbYes Then
MsgBox "Please give reason with approving Manager's name"
End If
End If
End Sub

I would like for the User's "reason for the weekend rental" to appear in
cell Y104 and the "Approving Manager's Name" to appear in cell AB104.

Is this possible?

Thank you in advance.


"Carim" wrote:


To help you go a bit further ...
Two remarks :

1. Your "pop-up questionnaire" is a UserForm you will have to design
which will specifically show all the fields you want to have filled in
...

2. For this userform to pop-up, as soon as a given cell is updated, you
will have an event macro, attached to the worksheet, which will show the
form to be filled in ...

HTH
Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=530820