Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA OR statement
Why does the OrRstatement for "y" does not work?
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 3 Then If (Target.Text = "Y" Or "y") Then Target.Offset(0, 1).FormulaR1C1 = Now() Target.Offset(0, 2).Interior.ColorIndex = 5 Target.Offset(0, 3).Interior.ColorIndex = 4 End If End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA OR statement
Mybe you should use:
If (Target.Text = "Y" Or Target.Text = "y") Then OR: If (ucase(Target.Text) = "Y") Then |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA OR statement
If Target.Text = "Y" Or Target.Text = "y" Then
Gordon Rainsford -- wrote: Why does the OrRstatement for "y" does not work? Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 3 Then If (Target.Text = "Y" Or "y") Then Target.Offset(0, 1).FormulaR1C1 = Now() Target.Offset(0, 2).Interior.ColorIndex = 5 Target.Offset(0, 3).Interior.ColorIndex = 4 End If End If End Sub -- Gordon Rainsford London UK |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA OR statement
The syntax is wrong. Use something like
If (Target.Text = "Y") Or (Target.Text = "y") Then Or, to simplify and get rid of the Or altogether, you could use If StrComp(target.Text, "y", vbTextCompare) = 0 Then ' equal Else ' not equal End If Additionally, if you put 'Option Compare Text' as the first line in your code module (outside of and before any procedure or public variable), all text comparisons will ignore case, so you could write If Target.Text = "y" Then -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com wrote in message oups.com... Why does the OrRstatement for "y" does not work? Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 3 Then If (Target.Text = "Y" Or "y") Then Target.Offset(0, 1).FormulaR1C1 = Now() Target.Offset(0, 2).Interior.ColorIndex = 5 Target.Offset(0, 3).Interior.ColorIndex = 4 End If End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IF statement inside a SUMIF statement.... or alternative method | Excel Worksheet Functions | |||
Reconcile Bank statement & Credit card statement & accounting data | Excel Worksheet Functions | |||
Embedding an OR statement in an IF statement efficiently | Excel Discussion (Misc queries) | |||
appending and IF statement to an existing IF statement | Excel Worksheet Functions | |||
If..Else Statement in Excel | Excel Programming |