"excelent" can I type the code into the cell ? if not were do I type It?
maude0361

"excelent" wrote:

Right-click on sheet tab and insert kode

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3:B3")) Is Nothing Then Exit Sub
If [a3] = 0 And [b3] < 0 Then [b6] = [b6] + [b3]
If [a3] < 0 And [b3] = 0 Then [b6] = [b6] - [a3]
End Sub


"maud0361" skrev:

Using XP and Excel 2003-how do I create a formula for the following outcome:
Cell A3 is nil, cell B3 has a value of say $500.00. I want to add cell B3 to
say cell B6 which has a value of say $1000, but if cell A3 has a value and B3
is nil I want to subtract A3 value from B6.