Omzetten negatieve getallen naar positief en omgekeerd macro

[Yasmin]

Beste Excellers,

Ik ben op zoek naar een VBA code die alle negatieve getallen naar positief en omgekeerd omzet in kolom H – kolom I en kolom J.
Wie kan mij hieraan helpen?

Bij voorbaat dank.

 

[JeanPaul28]

= getal * (-1)

 

[edmoor]

Zoiets:

Sub Omzetten()
    For i = 2 To Cells(1).CurrentRegion.Rows.Count
        With ActiveSheet
            For j = 8 To 10
                If .Cells(i, j).Value < 0 Then
                    .Cells(i, j) = .Cells(i, j).Value * -1
                End If
            Next j
        End With
    Next i
End Sub

 

[Yasmin]

Edmoor de code zet alleen om van negatieve getallen naar positieve en niet omgekeerd.

cow18 de code werkt alleen in een range (H2:J16) maar het aantal rijen is variabel.
voor de rest zet code de bedragen wel goed om.

Graag nog een kleine aanpassing indien mogelijk.

BvD.

 

[edmoor]

Dan haal je die If controle er toch uit?

Sub Omzetten()
    For i = 2 To Cells(1).CurrentRegion.Rows.Count
        With ActiveSheet
            For j = 8 To 10
                [COLOR="#008000"]'If .Cells(i, j).Value < 0 Then[/COLOR]
                    .Cells(i, j) = .Cells(i, j).Value * -1
                [COLOR="#008000"]'End If[/COLOR]
            Next j
        End With
    Next i
End Sub

 

[Yasmin]

Bedankt Edmoor

Zo gaat ie goed.

Ook cow18 bedankt.

 

[VenA]

of

Sub VenA()
  Range("H:J").SpecialCells(2, 1).Name = "temp"
  [temp] = [temp * -1]
End Sub