Thread: Circle-function

Originally Posted by chojje

New problem, hopefully new solution.

Gonna try to explain this: I one colum(A1) where i specify the hight of one certain object. In the colum(A2) below I want to write another hight AND get that number to be A1-A2. The problem here is that i want to write one hight AND get the answer from the function in the same colum, possible?

Thanks in advance

Hi,

If you rightmouse the sheet tab, select View Code, and paste

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Application.EnableEvents = False
    Cells(2, 1).Value = Cells(1, 1).Value - Cells(2, 1).Value
    End If
    Application.EnableEvents = True
End Sub

into there it should do that.

hth
---

Originally Posted by chojje

Thanks for your help but i dont think we are working in the same prog here, I´m just working in standard Excel and can't write in any "Private Sub" etc

Excel.exe operates on Workbooks, which have Worksheets, which have Columns, Rows, and Cells as the intersection between Column and Row.

note that A1 and A2 are Cells, not columns.

At the bottom of the sheet is a small tab with the sheet name, probably Sheet1

rightmouse in that tab and follow my first post.

---

Originally Posted by Bryan Hessey

Excel.exe operates on Workbooks, which have Worksheets, which have Columns, Rows, and Cells as the intersection between Column and Row.

note that A1 and A2 are Cells, not columns.

At the bottom of the sheet is a small tab with the sheet name, probably Sheet1

rightmouse in that tab and follow my first post.

---

haha ow nice, found it, thanks man Just one more question: I´m not using A1 and A2, instead the real cells is E6-E7, how should i then change the thing u sent me? ( Never worked with this before, so please flame me )

Originally Posted by chojje

found it, thanks, Just one more question: I´m not using A1 and A2, instead the real cells is E6-E7, how should I then change the thing you sent me?

cells E6 & E7 would be

Cells(7, 5).Value = Cells(6, 5).Value - Cells(7, 5).Value

---

Originally Posted by Bryan Hessey

cells E6 & E7 would be

Cells(7, 5).Value = Cells(6, 5).Value - Cells(7, 5).Value

---

Worked, thanks man But where does this 5 comes from, so i dont have to ask more in the future?

Originally Posted by chojje

Worked, thanks man But where does this 5 comes from, so i dont have to ask more in the future?

did you change the test to

If Target.Address = "$E$7" Then

or are you still testing $A$2 ?
---

Originally Posted by Bryan Hessey

did you change the test to

If Target.Address = "$E$7" Then

or are you still testing $A$2 ?
---

5 = 5th column

---

Originally Posted by Bryan Hessey

5 = 5th column

---

Ye i did, thanks Alright i get the picture.
How do i do if i want a similair "ekvation" but just with different Cells? Cuz i did put/copied another one just below it and filled with other cells and got "worksheet_Change" error :/