Making a pup-up

  • Thread starter Thread starter blommerse
  • Start date Start date
B

blommerse

Hi Everyone,

I was wondering if you can make an pop up, when a answer from a
formule is "XXXXXX"
My file contains multiple sheets - if sheet "Budget" cell D53 is
XXXXXX then a pop up has to appear.
The formule in cell D53 is linked to another sheet called "Jobspecs"

Hope someone can help me with this!

Thank you!

Regards Berry
 
When would you like the "popup" to display? When you activate the Budget
sheet, or whenever the value of Budget!D53 = XXXXXXX?
 
Actually both,

When budget!D53 = XXXXXX and then activate the budget sheet.
Because D53 is this formule =IF(AND(Info!D9>162,Jobjacket!
H4="DE"),"XXXXXX",VLOOKUP(Jobjacket!B9,K53:L61,2,0))

So if you fill in DE in the jobjacket sheet and more then 162 in the
info sheet, you go to budget sheet. If D53 is XXXXXX the pop up has to
appear!
Hope you can help me with this!

Thanks!
 
Go to the Info sheet tab, right click and select VIEW CODE.

Enter this in the code for the INFO SHEET

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myWS As Worksheet

Set myWS = Target.Parent

If Not Intersect(Target, myWS.Range("D9")) Is Nothing Then
If Sheets("Budget").Range("D53").Value = "XXXX" Then
MsgBox ("Budget value = XXXX")
End If
End If
End Sub


You can do something similar for the JobJacket code.

If you want it to check when you activate the BUDGET sheet. Use this code
for that sheet:

Private Sub Worksheet_Activate()
Dim myWS As Worksheet
Set myWS = ActiveSheet
If myWS.Range("D53").Value = "XXXX" Then
MsgBox ("Budget value = XXXX")
End If
End Sub
 
Hi Bar,

Still have one question for you:
Is it possible to personalise the MsgBox,
So the MsgBox ( &B40&"Budget value = XXXX")
In B40 is a name off an contact person.

Hope you can help me again.
Thanks

You can do something similar for the JobJacket code.

If you want it to check when you activate the BUDGET sheet. Use this code
for that sheet:

Private Sub Worksheet_Activate()
Dim myWS As Worksheet
Set myWS = ActiveSheet
If myWS.Range("D53").Value = "XXXX" Then
MsgBox ("Budget value = XXXX")
End If
End Sub
Click to expand...

!
 
Back
Top