adding cells

[Luis939]

bascially i want to take the value of the activecell and add it with the value of the cell that is 3 rows above, but i want to put the answer in that same cell, i tried this code but it didnt work

ActiveCell.Value = ActiveCell.Value + ActiveCell.Offset(-3, 0).Range("A1&quot.Select

I dont see why that woudlnt work, but anyone have any ideas, thanks!

 

[Zathras]

As you should have seen when you ran the macro, using .Select changed the active cell. This is more like what you want:

ActiveCell.Value = ActiveCell.Value + ActiveCell.Offset(-3, 0).Value

 

[xlbo]

4335 - you must REALLY learn not to use that select. That's the 2nd time you've posted and the select has been a problem

To put a value in a cell, you use

Range("Cell_Ref&quot.value = SomeValue

There is no select necessary. In fact SELECT is very very rarely needed at all........for anything Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde

 

[Luis939]

yea, true thanks

 

[Luis939]

just to follow up, can i use any function within a cell, if that function refers to a cell, for example, if i want to see whether the activecell is exact to the cell 3 rows above, i tried

ActiveCell.FormulaR1C1 = "=exact(activecell.value, activecell.offset(-3, 0).value)"

and i get an error, i tried

ActiveCell.FormulaR1C1 = "=exact(activecell, activecell.offset(-3, 0))"

and it doesnt recognize that i want whats in the activecell, not the actual word activecell or activecell.offset

is it possible to do what i want, thanks!

 

[Zathras]

Try putting

  MsgBox ActiveCell.FormulaR1C1

and see to what extent it is equal to

  "=exact(activecell, activecell.offset(-3, 0))"

I find that frequent use of MsgBox helps me a great deal when I am writing macros.

To answer your question try

  if ActiveCell.Value = ActiveCell.Offset(-3, 0).Value Then
    MsgBox "Equals"
  else
    MsgBox "Not equal"
  end if