Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trigger on leaving cell (of entire column)
The code below highlights the entire row I'm working on. When I leav field $A$1 it popups a messagebox (just by example). I don't need t make any changes to $A$1. All I have to do is leave it. My question is.... what code should be replaced by what code to make i work for every field in Column B? When the current cell is in column and I press enter or move the down-cursor (or up button) I wish th trigger to execute. Basically vertical movement in column B shoul trigger it. I assume something with the IF condition *If Target.Addres = "$A$1" Then* has to be changed, but what :) Trial and error so far. Code ------------------- Dim rTriggerCell As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Triggers highlight of target row Dim strRow As String Cells.FormatConditions.Delete With Target.EntireRow strRow = .Address .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, _ Formula1:="=COUNTA(" & strRow & ")0" .FormatConditions(1).Font.Bold = True .FormatConditions(1).Interior.ColorIndex = 34 End With 'Triggers an action upon user exiting cell A1 On Error Resume Next Application.EnableEvents = False 'Entered into Trigger cell If Target.Address = "$A$1" Then Set rTriggerCell = Target Application.EnableEvents = True On Error GoTo 0 Exit Sub End If If Not rTriggerCell Is Nothing Then 'They are leaving A1 MsgBox "You just left cell A1", vbInformation, "OzGrid.com" Set rTriggerCell = Nothing End If Application.EnableEvents = True On Error GoTo 0 End Su ------------------- -- Lav ----------------------------------------------------------------------- Lava's Profile: http://www.excelforum.com/member.php...fo&userid=2779 View this thread: http://www.excelforum.com/showthread.php?threadid=47334 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need to trigger a warning, if any cell in a column exceeds two | Excel Discussion (Misc queries) | |||
Copy cells to neighbor column after leaving the cell | Excel Worksheet Functions | |||
use same cell w/in a function in a entire column. | Excel Discussion (Misc queries) | |||
Copy one cell to entire column | Excel Discussion (Misc queries) | |||
Copy one cell to entire column | Excel Discussion (Misc queries) |