Cannot find "1-1" or "1-1M

[Otto Moehrbach]

Excel XP & Win XP

This one has me stumped. I have a column consisting of various number
combinations including:

1-1

1-1M

My code is in a For loop running down the column:

If i = "1-1" Or i = "1-1M" Then

The 1-1 has an apostrophe in front of it to preclude Excel seeing it as a
date. I checked the length of each with LEN and they are 3 and 4.

The above code cannot find/see the 1-1 or the 1-1M.

I even wrote the code as CStr(i)= and had no luck.

I am open to any suggestions. Thanks for your time. Otto

 

[Joel]

Make sure the letter M is capitalized. This code worked for me with 1-1 in
cell A1 and 1-M in cell A2

For RowCount = 1 To 2
MsgBox (Range("A" & RowCount))
If Range("A" & RowCount) = "1-1" Then
MsgBox ("Found ""1-1""")
End If
If Range("A" & RowCount) = "1-1M" Then
MsgBox ("Found 1-1M")
End If
Next RowCount

 

[egun]

Does it help if you use i.Text instead of just i? I assume that "i" is a
reference to a cell out of a "for each i in myRange.cells" loop?

Eric

 

[Mike H]

Maybe

For i = 1 To 100
If Range("A" & i) = "1-1" Then
MsgBox ("1-1 in row ") & i
ElseIf UCase(Range("A" & i)) = "1-1M" Then
MsgBox ("1-1M in row ") & i
End If
Next i

Mike

 

[exceluserforeman]

Public Sub OttoMan()
Dim strA, strM, strCell As String
Dim i As Integer
strA = UCase("1-1")
strM = UCase("1-1m")

Range("A1").Select
For i = 0 To 100
strCell = UCase(ActiveCell.Offset(i, 0).Text)
If strA = strCell Then
ActiveCell.Offset(i, 1).Value = "strA"
End If

If strCell = strM Then
ActiveCell.Offset(i, 1).Value = "strM"
End If
strCell = ""
Next
End Sub

 

[Otto Moehrbach]

Thanks to all for your help. Otto