Solved: How to Recognize this string properly?

[Saladsamurai]

Hello there

I am trying to use an If-then to check and see if the first column of each row reads as follows: T (°F) CFD
If it does, then I increment j. Where am I going wrong?

Thanks!!




EDITED: typo
[vba]Sub WriteEquipmentType()
Dim i, j As Integer
j = 0
For i = 1 To 860
If Worksheets("Raw Data").Cells(i, 1) = "T (" & Chr(176) & "F CFD)" Then j = j + 1
Next i
MsgBox j




End Sub
[/vba]

[geekgirlau]

[VBA]

Sub WriteEquipmentType()
Dim i, j As Integer
j = 0
For i = 1 To 860
If Worksheets("Raw Data").Cells(i, 1) = "T (" & Chr(176) & "F) ISX" Then j = j + 1
Next i
MsgBox j
End Sub

[/VBA]

[Saladsamurai]

[vba]

Sub WriteEquipmentType()

Dim i, j As Integer
j = 0
For i = 1 To 860
If Worksheets("Raw Data").Cells(i, 1) = "T (" & Chr(176) & "F) ISX" Then j = j + 1
Next i
MsgBox j
End Sub

[/vba]

Sorry. It was supposed tp read CFD (I just copy/pasted too quickly). Edited to correct.

Thanks! I didn'teven see that my right-parenthesis was located incorrectly!

[mdmackillop]

To avoid looping
[vba]
Sub WriteEquipmentType()
Dim j As Long, k As Long
Dim rng As Range

Set rng = Worksheets("Raw Data").Cells(1, 1).Resize(860)

j = Application.WorksheetFunction.CountIf(rng, "T (" & Chr(176) & "F CFD)")
'or
k = Application.WorksheetFunction.CountIf(rng, "T (°F CFD)")

MsgBox j
MsgBox k

End Sub

[/vba]