Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Pop Up Box
I am using the following code, but I am want the pop up message box to
pop up when any cell in a specific cell range S2:S24 is not blank, but "Entry". I would also like the message to display the contents of the A column of the same row in the message. Is this possible? Thanks Todd Hudson Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("S2:S25") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then ' Display a message when one of the designated cells has been ' changed. ' Place your code here. MsgBox "Lizard Short" & Target.Address & " signal!" End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Message Pop Up Box
I am not sure what you conditions for display are, but as written, it
displays if the cell changed is empty or contains the word Entry. Change to suit your conditions. Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("S2:S25") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then if Target(1) = "Entry" or isempty(Target(1)) Then MsgBox "Cell " & Target.Address & " changed, column A: " & _ Cells(target(1).Row,1).Value End if End If End Sub -- Regards, Tom Ogilvy wrote in message ups.com... I am using the following code, but I am want the pop up message box to pop up when any cell in a specific cell range S2:S24 is not blank, but "Entry". I would also like the message to display the contents of the A column of the same row in the message. Is this possible? Thanks Todd Hudson Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set KeyCells = Range("S2:S25") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then ' Display a message when one of the designated cells has been ' changed. ' Place your code here. MsgBox "Lizard Short" & Target.Address & " signal!" End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pop up message | Excel Worksheet Functions | |||
Message Box | Excel Discussion (Misc queries) | |||
changing the message in an error message | Excel Worksheet Functions | |||
Displaying a message in a message box without requiring user to click anything to proceed | Excel Programming | |||
Message Box | Excel Programming |