inexplicable 0

[ndendrinos]

this is a sheet change event that does the following:
So as I type starting in A17
If value in column B is less than the value in column A then the difference is shown in column C
And it works perfect like this:

A17=5...B17=5...C17...s/b empty
A18=8...B18=8...C18...s/b empty
A19=3...B19=3...C19...s/b empty
A20=7...B20=6...C20...s/b 1

EXCEPT that in C17 I get 0 (zero) instead of an empty cell (all the rest of the "empty" are indeed empty without a zero)

Well that zero in C17 has to go for it interferes with my other code

Many thanks

'If Not Intersect(Target, Range("B17:B35")) Is Nothing Then
   ' x = Target.Row
    'Cells(x, 3) = Cells(x, 1) - Cells(x, 2)
'End If

P.S all cells in C17:C35 are formatted general

 

[tfaulkes]

can't you just test if the subtraction is 0 first to get around this? I am surprised the other values are really empty and not 0..

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B17:B35")) Is Nothing Then
    x = Target.Row
    If Cells(x, 1) - Cells(x, 2) = 0 Then
        Cells(x, 3) = ""
    Else: Cells(x, 3) = Cells(x, 1) - Cells(x, 2)
    End If
End If
End Sub

 

[AlphaFrog]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B17:B35")) Is Nothing Then
        x = Target.Row
        If Cells(x, 1) > Cells(x, 2) Then
            Cells(x, 3) = Cells(x, 1) - Cells(x, 2)
        Else
            Cells(x, 3).ClearContents
        End If
    End If
End Sub

 

[ndendrinos]

and yet they are empty tfaulkes but your code took care of my problem
so is your solution AlphaFrog

So now I have a bigger problem than initially and that is witch of the two codes to use.
(joking) Thank you both for your responses