Reversing the signs of selected cells - help neededddd

Hi,

I need a VBA macro code for the below mentioned problem:-

Suppose I have the following data in multiple cells, not nessecarily one after the another.

34 in Cell C6


12 in Cell C10


12 in Cell C12


What I want is the following output by clicking a button (macro inside it) in the same cells and paste them as values


-34


-12


-12


Can anyone of you brilliant minds help me out.

You don't need a macro. Put -1 in an empty cell somewhere (e.g. cell E1). Select the cell with the -1 in and click copy. Then click on cell C6, hold down the CTRL key and click on cell C10, then hold the CTRL key again and click on cell C12. Then right-click and choose Paste Special, and click against Values and against Multiply, then click OK and press the <Esc> key. Then you can remove the -1 from the first cell.

If you really need a macro then turn the Macro Recorder on and complete the above steps.

Hope this helps.

Pete

Select the cell(s) then run the code

Sub test()
    Dim r As Range
    For Each r In Selection
        r.Value = Val(r.Value) * -1
    Next
End Sub

@Jindon Like your code man. Thanks.! But can I mention the cells in the code instead of selecting it and running the macro. Please help me with the syntax :-(

Change Selection to something like

For Each r In Range("C6,C10,C12")

1) You must edit your last post and wrap the code with the code tag.
[code]
VBA Code here
[/code]


No idea.

Just a guess

Do While Sheets("hello").Cells(11, colNo).Value <> Datev
    Sheets("hello").Cells(11, colNo).Value = Sheets("hello").Cells(11, colNo).Value * -1
colNo = colNo + 1
Loop