Good morning all,
I have a loop that I am having trouble getting to work the way I desire. The purpose of this loop is to look in column "J", and if the value ISTEXT, offset the value 1 column,
However what is happening is that it sees the first cell in the column, and it is in fact text, and it is just offsetting 1 column, not moving the value, or continuing the loop,
Here is what I have so far, any help or guidance is appreciated,
Code
Sub Text_Loop()
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("J1", Range("J1").End(xlDown)).Rows.Count
' Select cell J1.
Range("J1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
If Application.WorksheetFunction.IsText(ActiveCell.Value) = True Then
ActiveCell.Offset(0, 1).Value
End If
Next
Application.ScreenUpdating = True
End Sub
Display More