Use of If statement for a column

[mprasannna]

Hi All,
I have a database in which there are 3 columns named as Name , Category & New category.

Name Category New Category
George 5 1
Michel 4 1
Robert 4 7
Hunk 8 8

In the new category column, if any cell's value is <>1, then the same value require to be pasted in category column corresponding to the name. In this data mentioned above, only the category number of Robert will be changed from 4 to 7 .
Please help me with a VBA code to do this..

Thank you

 

[mprasannna]

Hi All,
Correct data is given below


Name - Category - New Category
George - 5 - 1
Michel - 4 - 1
Robert - 4 - 7
Hunk - 8 - 1

 

[MARK858]

Try on a copy of your data. Assumes "New Category" is column C.

Sub value2value()
    Dim c As Range

    For Each c In Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row)

        If c.Value <> 1 Then
            c.Offset(0, -1).Value = c.Value
        End If

    Next

End Sub

I am assuming there is no - in the cells

 

[mprasannna]

Hi Mark858,
There is no - in the cell. Thanks a lot . this code is working