Search for Data in Column "C" and move to Column "B"

[mrjojo]

How would I go about using the Macros in Excel 2007 to Search for any Data in Column "C" and "cut-and-paste" it into Column "B" in the same row? It will need to search the entire column except for anything in Row 1.

Any help would be greatly appreciated.

 

[taurean]

If you have Excel 2003 macro then it will still work!

 

[mrjojo]

I don't have Excel 2003. All I need is the VB Code...

 

[taurean]

From your first post, I got impression that you were having 2007- version code.
Code 1:

Public Sub CopyPaste()
Application.ScreenUpdating = False
Dim lLastRow As Long
lLastRow = Range("C" & Rows.Count).End(xlUp).Row
For i = 2 To lLastRow
    If Range("C" & i).Value <> "" Then Range("C" & i).Cut Range("B" & i)
Next i
Application.ScreenUpdating = True
End Sub

Another way:

Public Sub CopyPaste1()
Application.ScreenUpdating = False
Dim r As Range
For Each r In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
    If r.Value <> "" Then r.Cut r.Offset(, -1)
Next r
Application.ScreenUpdating = True
End Sub

 

[Biz]

Another variant

Sub CopyPaste1Biz()
    Application.ScreenUpdating = False
    Dim r As Range
    For Each r In Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
        If r.Value <> "" Then
            r.Offset(, -1) = r
            r.ClearContents
        End If
    Next r
    Application.ScreenUpdating = True
End Sub

 

[mrjojo]

Thanks so much. This will help me out.