Change column value

[wikus]

I would appreciate some help.
I've got a sheet with 13 columns and would like to change 12 columns dependant on the frist column.
If column A = "ABC" then amounts in columns B:M must be multiplied by -1.

 

[Comfy]

and if A is not ABC?

...do nothing?

 

[wikus]

That's correct.

 

[Comfy]

Sub ABCmultiply()
    Dim i As Long
    Dim rng As Range
    
    Set rng = Range(Cells(1, 1), Cells(Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row, 13))
    For i = 1 To rng.Rows.Count
        If rng.Cells(i, 1).Value = "ABC" Then Range(Cells(i, 2), Cells(i, 13)).Value = Evaluate(Range(Cells(i, 2), Cells(i, 13)).Address & "*-1")
    Next i
End Sub

try this, you may need to amend slightly depending on header rows etc

 

[wikus]

Thanks very much for your quick response, it works fine.