copy cell if containing the value to the previous column but the same row

Zeanah · Apr 26th 2017

Hi Helpers

I am new to vba but I know that it is very helpful to do heavy data in excel. My question is that I want to find value contains in column B and if found I would copy them to column A in the same row. For example if the value in B4 contains my search value i.e "*CASH*" then copy that to A4 and the same goes to the rest. I have a macro given in the attached .xls but if I run this in sheet1 the result will be like as given in "macro test result" sheet without giving the one required like as shown in "result needed" sheet. can anyone help on this code?? your answer is very much appreciated.

Thanks in advance

**Carim** · Apr 26th 2017

Re: copy cell if containing the value to the previous column but the same row

Hello,

Congratulations on your first macro ...!!! :wink:

In fact, you do not need the variable x ...

Code

Sub Test()
    Dim bottomB As Integer
    bottomB = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
     
    Dim c As Range
    For Each c In Sheets("sheet1").Range("B1:B" & bottomB)
        If c.Value Like "*CASH*" Then
            c.Copy Worksheets("Sheet1").Range("A" & c.Row)
        End If
    Next c
End Sub

Display More

Hope this will help

Zeanah · Apr 27th 2017

Re: copy cell if containing the value to the previous column but the same row

Thanks Karim... it works perfectly

**Carim** · Apr 27th 2017

Re: copy cell if containing the value to the previous column but the same row

Glad you could fix your problem ...:wink:

Thanks ... for your thanks ..:smile:

copy cell if containing the value to the previous column but the same row

Participate now!

Share