Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"ElseIf c.Value = "X_Clear" Then" and "...Target.Cells.Count 1"don't work
The target.cells.count allows more than 1 cell selected in range, but takes the input in the activecell of the multiple cell selection.
The ElseIf "X_Clear" works fine from a separate sub, but it won't respond in the change event macro. Thanks. Howard Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("$A$1:$H$10")) Is Nothing Or Target.Cells.Count 1 Then Exit Sub Dim c As Range Dim Data1 As Range Set Data1 = Range("A1:H10") For Each c In Range("Data1") If c.Value = 0 Then c.Interior.ColorIndex = xlNone ElseIf c.Value = 5 Then c.Interior.ColorIndex = 4 ElseIf c.Value <= 4 Then c.Interior.ColorIndex = 3 ElseIf c.Value = "X_Clear" Then Dim Ans As Variant Ans = MsgBox(" " _ & " Clear Data1 ?", vbYesNo) Select Case Ans Case vbYes Range("Data1").ClearContents Range("Data1").Interior.ColorIndex = xlNone Case vbNo Exit Sub End Select End If Next End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
If changed array formula reduce ""\""\""\ - signs to #Missing, will it make ... | Excel Programming |