Find and copy negative values and then change them

[tintin1012000]

Easy for someone maybe

I need to find all negative values in range A1 to C965

Then copy the values found and move them 3 colums over to the right. And also change the value from negative to positive.

Can it be done in vba

 

[Jeffrey Mahoney]

This might be a little klunky, but it works

Sub MoveAbsolute()
  Dim R As Range
  Dim OutR As Range
  
  Set R = Range("A1:C965")
  Set OutR = Range("D1:F965")
  
  Range("D1").Formula = "=Abs(A1)"
  OutR.Formula = Range("D1").Formula
  OutR.Value = OutR.Value
  
  
End Sub

 

[tintin1012000]

it works but alos brings across positive numbers, i need it to only copy negatives

 

[ER_Neha]

Hello Please try this and provide a feedback

Sub check_negative()
Dim i As Integer
Dim j As Integer
For i = 1 To 965
For j = 1 To 3
    If Cells(i, j).Value < 0 Then
    Cells(i, j).Cut Cells(i, j + 3)
    End If
Next j
Next i
End Sub

 

[navic]

copy the values found and move them

i need it to only copy negatives

I am confused by this part of your request. (Sorry, my English is bad)

So, Copy or Move?

I know this VBA below may be simpler, but still maybe it is the solution to your requirement.
I have modified some VBA examples.

Sub CopyNegativeValueAndTransformToPositiveValue()
Dim Cel As Range
Dim i As Integer
Dim j As Integer
For i = 1 To 965
For j = 1 To 3
    If Cells(i, j).Value < 0 Then
    'Copy cells
    Cells(i, j).Copy Cells(i, j + 3) 'If you want MOVE type Cut
    End If
Next j
Next i
    Columns("D:F").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    For Each Cel In Selection
        If IsNumeric(Cel.Value) Then
            Cel.Value = Abs(Cel.Value)
        End If
    Next Cel
Range("D1").Select
End Sub