Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Target Cell Problem
Using Excel 97
I'm trying to get a message box to appear when cell F5 of page "Labour Details" is selected. Then if ybYes is selected "Hire Calculation" page is shown and if vbno the message box dissapears.... This is the chunk of code that I'm trying to get to work... As you can guess it doesn't!!!! Can anyone help???? Thanks Wayne Private Sub worksheet_selectionChange(ByVal Target As Excel.Range) If Sheets("Labour Details").Target.Address = "$f$5" Then If ActiveCell.HasFormula Then MsgBox ("Change Value via Hire calculation Page") MsgBox = MsgBox & MsgBox(vbLf) MsgBox = MsgBox & ("Go to Hire Calculation Page?") Title = "Protected Cell" COnfig = vbYesNo Ans = MsgBox(Msg, COnfig, Title) If Ans = vbNo Then End Else If Ans = vbYes Then Sheets("Hire Calculation").Select End If End If End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Target Cell Problem
Hi,
The following, placed in the Worksheet module of "Labour Details", would do the main part of your requirement. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Res If Target.Address < "$B$5" Then Exit Sub Res = MsgBox("Change Value Hire calculation Page ?", vbYesNo, "") If Res = vbNo Then Exit Sub Sheets("Hire Calculation").Select End Sub I think you have a small problem with syntax of the MsgBox. Your reference to "$B$5" also looks a little unusual. regards, Don "Wayne" wrote in message ... Using Excel 97 I'm trying to get a message box to appear when cell F5 of page "Labour Details" is selected. Then if ybYes is selected "Hire Calculation" page is shown and if vbno the message box dissapears.... This is the chunk of code that I'm trying to get to work... As you can guess it doesn't!!!! Can anyone help???? Thanks Wayne Private Sub worksheet_selectionChange(ByVal Target As Excel.Range) If Sheets("Labour Details").Target.Address = "$f$5" Then If ActiveCell.HasFormula Then MsgBox ("Change Value via Hire calculation Page") MsgBox = MsgBox & MsgBox(vbLf) MsgBox = MsgBox & ("Go to Hire Calculation Page?") Title = "Protected Cell" COnfig = vbYesNo Ans = MsgBox(Msg, COnfig, Title) If Ans = vbNo Then End Else If Ans = vbYes Then Sheets("Hire Calculation").Select End If End If End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Target cell reference moves when target is cut and pasted | Excel Discussion (Misc queries) | |||
In cell drop down menu with seprerate numerical target cell | Excel Discussion (Misc queries) | |||
In adjacent cell, show last date modified of target cell. | Excel Discussion (Misc queries) | |||
How find if target is object in Worksheet_Change (ByVal Target As.. ?) | Excel Programming | |||
How to find and sub total a specific number of cell above the target cell | Excel Programming |