I have a simple macro that takes the content from a source cell and moves it to a target cell at the bottom of a table, then clears the contents of the source cell:
Sub ContestThreeAdd()
Dim wsSrc As Worksheet: Set wsSrc = ThisWorkbook.Sheets("Game")
Dim wsTar As Worksheet: Set wsTar = ThisWorkbook.Sheets("Game")
Dim lngNewRow As Long: lngNewRow = wsTar.Cells(Rows.Count, "U").End(xlUp).Row + 1
With wsTar
.Cells(lngNewRow, "U") = wsSrc.Range("C5")
End With
wsSrc.Range("C5").ClearContents
End Sub
In this case, the contents of the source cell will always be numeric.
I need a way to modify this macro so that when it is run, it flips the integer of the numeric value in the source cell, possibly just by multiplying by -1.
In other words, if the data in the source cell was 200, when the macro moves the data, it needs to flip it to be -200.
I appreciate any help with this!
Bookmarks