Makro - Negative tal til positive og omvendt

*SS* du skal bare gange med -1 så får du ændret fortegnet.

hov.. det skulle egetnlig bare være en kommentar...

Public Sub PositivNumbers()
    Dim wksTemp As Worksheet
    Dim rCell As Range
   
    For Each wksTemp In ActiveWorkbook.Worksheets
        For Each rCell In wksTemp.UsedRange
            If IsNumeric(rCell.Value) Then
                If rCell.Value < 0 Then
                    rCell.Value = rCell.Value * -1
                End If
            End If
        Next rCell
    Next wksTemp
   
    Set wksTemp = Nothing
    Set rCell = Nothing
End Sub

Se evt. http://www.eksperten.dk/spm/256411

Du har ikke brug for en makro

du skriver -1 i en celle
kopier derefter cellen
marker de områder der skal have vendt fortegn
indsæt speciel funktionen
multiplicer
ok

alle tal er herefter vendt

Mile - husk at ovenstående går ud over formler.

flemming> linien "If rCell.Value < 0 Then " bør vel ændres til "If rCell.Value <> 0 Then"? Ellers konverteres kun de negative tal.

b_hansen/flemming

Hvad med IsNumeric(rCell) ?

b hansen - man kan jo også bare eks.  =(-a1) den virker uanset om du skal konvertere til det ene eller det andet, for minus minus giver jo altid plus.

Flemming  - din makro er skide god til at konvertere negativ til positiv men ikke omvendt....

enig mile *S*

Vedrørende dit spørgsmål til flemming, så se min kommentar 09:12:08

Har jeg rettet - MEN nu bliver alt enten negativt eller positivt....Eks. hvis jeg har fem kolonner med positive og en med negative og kører makroen, så bliver ALT negativt..

b_hansen/flemming

Det jeg mener er, er

If rCell.Value <> 0  eller If rCell.Value > 0

er vel ligegyldigt, når det er kontrolleret at der er tale om en numerisk værdi!

tida - kunsten her er at gøre det i ét huk, da der er tale om meget store projektmapper - fyldhåndtag eller ej så ville det blive et hestearbejde...

enig superjab

Ja ja - gutter diskutér I bare, men jeg har stadig ikke én der virker :-)

mile
Det er altså en diskussion, hvor vi forsøger at hjælpe dig!

Ja ja super - godt ord igen, men når man som jeg er vba blind, så fatter man jo ikke en dyt af det....

mile

Prøv med nedenstående (en lettere revision af flemmings):

  For Each wksTemp In ActiveWorkbook.Worksheets
        For Each rCell In wksTemp.UsedRange
            If IsNumeric(rCell.Value) Then
                rCell.Value = rCell.Value * -1
            End If
        Next rCell
    Next wksTemp

Hej Super

Min makro ser nu sådan ud:

Public Sub PositivNumbers()
    Dim wksTemp As Worksheet
    Dim rCell As Range
   
  For Each wksTemp In ActiveWorkbook.Worksheets
        For Each rCell In wksTemp.UsedRange
            If IsNumeric(rCell.Value) Then
                rCell.Value = rCell.Value * -1
            End If
        Next rCell
    Next wksTemp
   
    Set wksTemp = Nothing
    Set rCell = Nothing
End Sub

Men konverterer stadig alt til negativt, hvis de første kolonner er positive tal, og de sidste kolonner er negative..

Kan du se om jeg har indsat din ændring forkert ??

Det ser umiddelbart rigtigt ud - prøver den lige selv.

Har nu prøvet den på et meget lille område, men den virker fortrinligt!

hmmm...... mile, har du andet end de tal, der skal konverteres i de ark?

Du har vel ikke gemt nogle formler i dit regneark mile? For så vil du jo naturligvis få ændret negativ til negativ........

eksempel: Hvis din formel tidligere hed -sum(a1:a2), vil den efter konverteringen nu hedde sum(a1:a2), men give samme resultat, da du jo har ændret fortegn på cellerne a1 og a2.

Hmm - jeg tester lige ud fra nogle rene tal....

b hansen - du havde ret. Det var de gamle formler der drillede. Nu virker det bare...Tak for hjælpen allesammen.

superjab lægger du lige et svar ?

så ok da :-)

Den blev jo strikket sammen af jeres udmærkede samarbejde, så I må dele i porten. Tak for det. Min bruger blev stjerneglad...

Og så er vi jo alle glade... ;-)