moving cells over to the left

[daveyc18]

hello....there's an issue in my source file where if the account name contains "B BASILIJEVIC," the data is incorrectly shifted one column more to the right.


so, "B BASILIJEVIC" is supposed to be in column U, but is actually in column V. this has shifted anything to the right of "B BASILIJEVIC" one column over as well. e.g., the final column should be "AF", but for the ""B BASILIJEVIC" rows the data it's in column AG.

so what I manually need to do is highlight all the rows containg ""B BASILIJEVIC"m starting from column V to AG, cut then paste to column to U.

essentially, I'm looking for a macro that loops through column V to look for ""B BASILIJEVIC" and then shift the data from column V to AG to column U to AF (ie one column to the left).

 

[JLGWhiz]

Sub t()
Dim c As Range
With ActiveSheet
    For Each c In .Range("V2", .Cells(Rows.Count, "V").End(xlUp))
        If c.Value = "B BASILIJEVIC" Then
            c.Resize(, 11).Cut c.Offset(, -1)
        End If
    Next
End With
End Sub

 

[alansidman]

Option Explicit


Sub DaveyC()
    Dim i As Long, lr As Long
    lr = Range("V" & Rows.Count).End(xlUp).Row
    For i = 1 To lr
        If Range("V" & i) = "B BASILIJEVIC" Then
            Range("V" & i & ":AG" & i).Cut Range("U" & i)
        End If
    Next i
End Sub

 

[My Aswer Is This]

Edit. I see you have a answer

 

[spidertech]

This is great. I'd like to add discuss a question to this if this is ok. How do I remove/delete a text contains "SUB" and be able to shift the remain of the data in row one cell over to the left?

A1	A2	A3	A4	A5
SUB	B1	B2	B3	B4
C1	C2	C3	C4	C5
Result:
A1	A2	A3	A4	A5
B1	B2	B3	B4	B5

 

[JLGWhiz]

This thread is 18 months old, please start a new thread for questions beyond the scope of the original thread.