ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Pop Up Message (https://www.excelbanter.com/excel-worksheet-functions/196901-pop-up-message.html)

chickalina

Pop Up Message
 
I want to create a popup message for orders over a certain amount. We can
generally process purchase orders up to a certain value without a quote.
Anything over that I want a reminder that they need to email the quote to the
person entering the requisition. It's Column G in my spreadsheet.
Thanks for any help!
M

Mike H

Pop Up Message
 
Hi,

The easiest way to do this would be using the worksheet change event but if
Column G is a calculated amount then that wouldn't call the sheet change
event code. Is G a calculation or is it manually entered. If calculated is
there another cell that is manually entered that could be used?

Mike

"chickalina" wrote:

I want to create a popup message for orders over a certain amount. We can
generally process purchase orders up to a certain value without a quote.
Anything over that I want a reminder that they need to email the quote to the
person entering the requisition. It's Column G in my spreadsheet.
Thanks for any help!
M


chickalina

Pop Up Message
 
This cell is manually entered. If an amount is entered manually by the user
into the cell and it's over $5,000, I want a pop up reminder.
Thanks.

"Mike H" wrote:

Hi,

The easiest way to do this would be using the worksheet change event but if
Column G is a calculated amount then that wouldn't call the sheet change
event code. Is G a calculation or is it manually entered. If calculated is
there another cell that is manually entered that could be used?

Mike

"chickalina" wrote:

I want to create a popup message for orders over a certain amount. We can
generally process purchase orders up to a certain value without a quote.
Anything over that I want a reminder that they need to email the quote to the
person entering the requisition. It's Column G in my spreadsheet.
Thanks for any help!
M


Mike H

Pop Up Message
 
Hi,

Right click the sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("G:G")) Is Nothing Then
Application.EnableEvents = False
If Target.Value 5000 Then
response = MsgBox("You must email a quote for an amount of " &
Target.Value, vbCritical)
End If
Application.EnableEvents = True
End If
End Sub

Mike

"chickalina" wrote:

This cell is manually entered. If an amount is entered manually by the user
into the cell and it's over $5,000, I want a pop up reminder.
Thanks.

"Mike H" wrote:

Hi,

The easiest way to do this would be using the worksheet change event but if
Column G is a calculated amount then that wouldn't call the sheet change
event code. Is G a calculation or is it manually entered. If calculated is
there another cell that is manually entered that could be used?

Mike

"chickalina" wrote:

I want to create a popup message for orders over a certain amount. We can
generally process purchase orders up to a certain value without a quote.
Anything over that I want a reminder that they need to email the quote to the
person entering the requisition. It's Column G in my spreadsheet.
Thanks for any help!
M


chickalina

Pop Up Message
 
How would that fit into what I already have?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
On Error GoTo endit
Application.EnableEvents = False
If IsNumeric(Target) Then
Target.Offset(0, 8).Value = Format(Date, "mm/dd/yyyy")
DueDate = Date + Day(7)
Target.Offset(0, 9).Value = DueDate
Target.Offset(0, 7).Value = Environ("username")
End If
End If
endit:
Application.EnableEvents = True
End Sub


"Mike H" wrote:

Hi,

Right click the sheet tab, view code and paste this in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub
If Not Intersect(Target, Range("G:G")) Is Nothing Then
Application.EnableEvents = False
If Target.Value 5000 Then
response = MsgBox("You must email a quote for an amount of " &
Target.Value, vbCritical)
End If
Application.EnableEvents = True
End If
End Sub

Mike

"chickalina" wrote:

This cell is manually entered. If an amount is entered manually by the user
into the cell and it's over $5,000, I want a pop up reminder.
Thanks.

"Mike H" wrote:

Hi,

The easiest way to do this would be using the worksheet change event but if
Column G is a calculated amount then that wouldn't call the sheet change
event code. Is G a calculation or is it manually entered. If calculated is
there another cell that is manually entered that could be used?

Mike

"chickalina" wrote:

I want to create a popup message for orders over a certain amount. We can
generally process purchase orders up to a certain value without a quote.
Anything over that I want a reminder that they need to email the quote to the
person entering the requisition. It's Column G in my spreadsheet.
Thanks for any help!
M



All times are GMT +1. The time now is 09:11 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com