If nothing is found move on to next row

[keith05281967]

Greetings,

The below code loops thru a column of data and adds spacing where needed. But currently if it finds a blank cell it errors out. I need a line of code that says if you find a blank cell then move on to the next row. The code in red doesn't work because it's looking for another "For" but the logic gives the basic idea of what i'm trying to accomplish.


For i = 2 To lastrow
If Cells(i, ColumnnNmber).Value = "" Then
Next i
Else
s = Cells(i, ColumnNumber).Value
s = Trim(s)
s = Left(s, Len(s) - 2) & " " & Right(s, 2)
Cells(i, ColumnNumber).Value = s
Next i


running Excel 2007

thank,
Keith

 

[AlphaFrog]

For i = 2 To lastrow
   If Cells(i, ColumnnNmber).Value [COLOR="Red"]<>[/COLOR] "" Then
      s = Cells(i, ColumnNumber).Value
      s = Trim(s)
      s = Left(s, Len(s) - 2) & " " & Right(s, 2)
      Cells(i, ColumnNumber).Value = s
   End If
Next i

 

[keith05281967]

By the way, thank you alpha frog. That was a simple solution and it works.

 

[Weaver]

Hope you spotted the typo!