Macro voor omwisselen positief en negatief

[tom300]

Beste Excellisten,

Bij deze weer een leuke uitdaging:

Ik heb een groot werkblad waar in één van de kolommen een lange rij getallen staan. Sommige zijn negatief en sommige zijn positief. Ik ben op zoek naar een macro die alle getallen in die kolom omwisselt van positief naar negatief, en andersom.

Zie bijlage. Het gaat om Kolom A. De bedragen die nu negatief zijn moeten dus positief worden en de bedragen die positief zijn moeten negatief worden. Ik zie op het forum allerlei constructies met formules maar ik kan me niet voorstellen dat dat niet makkelijker kan met een macrootje.

Alvast bedankt allemaal!!!


Gr, Tom
Bekijk bijlage test.xls

 

[Niels28]

zonder macro

zet -1 in een cel kopieren => plakken speciaal => vermenigvuldigen.

Niels

 

[Niels28]

met macro

Sub test()
Dim cl
For Each cl In Range("A:A").SpecialCells(2, 1)
cl.Value = cl.Value * -1
Next
End Sub

Niels

 

[Warme bakkertje]

Met slechts 1 schrijfbewerking op het werkblad.

Sub tst()
With Sheets("Export")
    sq = .Range("A5:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 1 To UBound(sq)
        sq(i, 1) = sq(i, 1) * -1
    Next
    .Cells(5, 1).Resize(UBound(sq)) = sq
End With
End Sub

 

[snb]

of

Sub snb()
    [A5:A300] = [if(A5:A300="","",-1*A5:A300)]
End Sub