Quick Question re For and Next

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Am trying to search through all of the Column E, and if any cell = "SUPPORT"
AND the offset (0,4) to that cell <> "", then it should put the word "Note 1"
in the cell's offset (0,5). I keep getting the error message 'Next Without a
For', but I have a 'for' in the code (see below). Can someone please advise
what I'm doing wrong?


With wks
Set rngToSearch = .Range(.Range("E12"), .Cells(Rows.Count, "E").End(xlUp))
End With
For Each rng In rngToSearch
If rng.Value = "SUPPORT" And rng.Offset(0, 4) <> "" Then
rng.Offset(0, 5).Value = "Note 1"
Next rng
 
Paige,

You need and EndIf to match your If. Sometimes the messages get a little
mixed up as to which pair of With/End With, For/Next, End/EndIf is missing a
piece.

hth,

Doug
 
With wks
Set rngToSearch = .Range(.Range("E12"), .Cells(Rows.Count,
"E").End(xlUp))
End With
For Each rng In rngToSearch
If rng.Value = "SUPPORT" And rng.Offset(0, 4) <> "" Then
rng.Offset(0, 5).Value = "Note 1"
end if
Next rng

Regards,
 
With wks
Set rngToSearch = .Range(.Range("E12"), .Cells(Rows.Count, "E").End(xlUp))
End With
For Each rng In rngToSearch
If rng.Value = "SUPPORT" And rng.Offset(0, 4) <> "" Then
rng.Offset(0, 5).Value = "Note 1"
end if
Next rng
 
Darn Darn Darn! I messed around with this for 2 hours. Sometimes I can't
see the forest for the trees. Thanks guys!!!
 
Back
Top