["VBA"] subtracting the same value

[montecarlo2012]

Hi, so far this little code work, but when I tried to used with ABS[....] then whatever I did, is not working

Sub d()
[AB2:AB8909] = [B2:B8909 -AB1]
[AC2:AC8909] = [C2:C8909 - AC1]
[AD2:AD8909] = [D2:D8909 - AD1]
[AE2:AE8909] = [E2:E8909 - AE1]
[AF2:AF8909] = [F2:F8909 - AF1]
End Sub

Please if you can show me a loop for this would be good, and I am looking for the absolute value.
thanks.

 

[JLGWhiz]

Sub t()
Dim i As Long, j As Long
    For i = 28 To 32
        For j = 2 To 8909
            Cells(j, i) = Abs(Cells(i - 26, j).Value - Cells(1, i).Value)
        Next
    Next
End Sub

 

[FormR]

when I tried to used with ABS[....] then whatever I did, is not working

Hi, did you try like this..

[AB2:AB8909] = [ABS(B2:B8909 -AB1)]

 

[montecarlo2012]

Thank you Mr. FormR, and yes Sir, work for me, I really appreciate the time you spend for me.

 

[montecarlo2012]

Sub t()
Dim i As Long, j As Long
    For i = 28 To 32
        For j = 2 To 8909
            Cells(j, i) = Abs(Cells(i - 26, j).Value - Cells(1, i).Value)
        Next
    Next
End Sub

thank you so much, go job

 

[JLGWhiz]

thank you so much, go job

happy to assist,
regards, JLG