View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
JE McGimpsey JE McGimpsey is offline
external usenet poster
 
Posts: 4,624
Default Text insensitive formula

One way:

If LCase(Cells(x, 26).Text) = "add" Then

In article ,
iashorty wrote:

I have written a Do Loop to change column s when either an Add or Remove have
been added in column Z during a review process. I wanted to write the "IF"
statement to include any form of Upper/Lower case combination of Add or
Remove. i.e. ADD or rEmove. Is this possible or should I add a column to
format the text into proper case in order for the Do Loop to work?

Here is my Do Loop:
Sub AddRemoveRows()
Range("S9").Select
x = ActiveCell.Row
Do While Cells(x, 19).Value 0
If (Cells(x, 26).Text = "add") Then
Cells(x, 19).FormulaR1C1 = "2": x = x + 1
ElseIf (Cells(x, 26).Text = "Remove") Then
Cells(x, 19).FormulaR1C1 = "1": x = x + 1
ElseIf (Cells(x, 26).Text = "") Then x = x + 1
Else
MsgBox "Error in Add/Remove Column. Correct and rerun Save and
Print for Review."
End If
Loop
End Sub