Copy paste formula

I need a way to move values in Column J  to the left (1 cell over) if the value in J is not an "R".  The value I want to move is a number.
leezacAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
NorieConnect With a Mentor VBA ExpertCommented:
Try.
Dim I As Long
    For I = 2 To Range("J" & Rows.Count).End(xlUp).Row
        If Range("J" & I).Value <> "R" Then
            Range("I"& I).Value = Range("J" & I).Value
            Range("J" & I).Value = ""
        End If
    Next I

Open in new window

0
 
leezacAuthor Commented:
That is moving the R's also
0
 
leezacAuthor Commented:
This may be OK - I need to test more.
0
 
NorieVBA ExpertCommented:
It worked on the sample data I tested it on.

Can you attach a sample workbook?
0
All Courses

From novice to tech pro — start learning today.