2 velden "samenvoegen" op elk tabblad voor 2 kolommen

[MJONK]

Goedemorgen allemaal,

Ik heb een VBA probleem waar ik niet tot een oplossing kom.

In Kolom C staat voor een artikel het aantal kilogram verkocht.
Door het splitsen vanuit het ERP programma staat er echter soms een minus teken (-) in Kolom D (dit is bij meer retour dan geleverd in de betreffende periode)

Wat ik graag zou willen is dat voor elk min-teken in Kolom D, het getal in Kolom C negatief wordt.

Voorbeeld:
KOLOM C KOLOM D
500 -

moet worden:
KOLOM C KOLOM D
-500


Ik heb echter iets van 50 tabbladen dus het zou handig zijn als dit voor ieder tabblad automatisch uitgevoerd kan worden.


Hopelijk kan iemand mij de juiste richting in sturen zodat ik zelf de code kan maken!

alvast bedankt.

MJONK

 

[wampier]

Deze code "toggled" tussen + en - op alle tabs in je workbook. De code is volgens mij redelijk makkelijk te verfijnen. indien je kolom D ook leeg wil maken kun je makkelijk een extra regel met .offset.value="" maken

Dim SheetLoop As Variant
Dim CellLoop As Variant
For Each SheetLoop In Sheets
    For Each CellLoop In SheetLoop.Cells.Range("C:C")
        If CellLoop.Value <> "" Then
            If CellLoop.Offset(0, 1).Value = "-" Then
                CellLoop.Value = 0 - CellLoop.Value
            End If
 
        End If
    Next CellLoop
Next SheetLoop

 

[MJONK]

werkt helemaal perfect! super bedankt, dit scheelt mij een hoop werk.