Move Negative Number and Change to a Positive Number

Hello All,

I am looking for a vba to attach to an existing vba. Please see text below highlighted in red.

Thanks in advance,

Alvin

If Application.WorksheetFunction.CountA("K:K") = 0 Then
 [K1].Select
 Else
 On Error Resume Next
 Columns(11).SpecialCells(xlCellTypeBlanks)(1, 1).Select
 If Err <> 0 Then
 On Error GoTo 0
 [K65536].End(xlUp)(2, 1).Select
 End If
 On Error GoTo 0
 End If
 Selection.FillDown

The FillDown will bring a formula, from the cell above it and will show a resulting number.

Here is what I would like the vba to do next...

If the resulting number from the FillDown is negative, then cut and paste values one cell to the left as a positive number. If number is positive then do nothing.

Well, I figured it out, Yeah! I researched every step along with trial and error. But, I'm still getting better at this the more I do it. Fun!

If ActiveCell.Value < 0 Then
ActiveCell.copy

ActiveCell.Offset(0, -1).Activate 'means same row and one col left
Selection.PasteSpecial paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ActiveCell.copy

End If

ActiveCell.Offset(0, 1).Activate 'means same row and one col right
Selection.ClearContents

Dim cel As Range
For Each cel In Columns("J").SpecialCells(xlCellTypeConstants, 1)  'changes negative numbers to positive numbers in the entire column
    cel.Value = Abs(cel)
Next

Range("D1").Select
Selection.ClearContents

@Alvin,

Glad to hear you figured out your solution...

Administrative Note:

• Please see Forum Rule #3 about code tags and adjust accordingly...
• Added for you this time, but please use them in the future…Thanks.

Also, this may be of some help to you when writing macros...

Beyond Excel’s Macro Recorder