Cells() value holding

[masarup11]

Is there any way that i could store the value of

Dim num as Double
num = Cells(x,1) - Cells(x,2)

i'm kinda new to excel vba so im not sure if there's another way around this code

TIA..

 

[RoryA]

What's the problem exactly? That code is perfectly valid as long as x is a valid value and both cells are numeric.

 

[masarup11]

What's the problem exactly? That code is perfectly valid as long as x is a valid value and both cells are numeric.

Sir, i think it's not valid. i'm always getting a run-time error when running this code

 

[masarup11]

What's the problem exactly? That code is perfectly valid as long as x is a valid value and both cells are numeric.

i got it sir thanks for the hint

 

[RoryA]

You may think that, but it is valid, subject to the items I mentioned. What is the full code, what is the error, and what is in the cells in question when the error occurs?

 

[masarup11]

You may think that, but it is valid, subject to the items I mentioned. What is the full code, what is the error, and what is in the cells in question when the error occurs?

well i got a little. but i still have a problem, yes it's computing but it only computes for Range("A1") + Range("B1")

 

[RoryA]

If x = 1 then it will subtract B1 from A1. If x has another value it will subtract Bx from Ax. You still have not explained what your problem is.

 

[masarup11]

If x = 1 then it will subtract B1 from A1. If x has another value it will subtract Bx from Ax. You still have not explained what your problem is.

i need to automatically compute other rows for example

Cells(x,5) = Cells(x,1) -

is there anyway to do this? heres my code

Dim numbers(), arrItem, maxItem, result, searchNum
Dim x As Integer
x = 1
    searchNum = Cells(x, 1) - Cells(x, 2)            'search number
    numbers = Array(1, 3125, 3542, 4375, 6042, 8958, 13542, 23958)
    maxItem = Application.Max(numbers)      'get max of array item
    For Each arrItem In numbers             'loop through each array item
    
        If Abs(searchNum - arrItem) < maxItem Then
            maxItem = Abs(searchNum - arrItem)
            result = arrItem
        End If
    Next arrItem
    
    Cells(x, 7) = searchNum - Results

 

[masarup11]

anyway kindly delete this thread i've solved it thanks

 

[RoryA]

We don't delete threads. It would be nice if you posted your solution for the benefit of others who may come looking for something similar later.