Substraction of cell General type value

[luolovepi]

Hi all,

I have two worksheets in different workbook, and when some conditions are satisfied, I will substract the value of Range("J" & cell.Row) in desSheet by the value of Range("J" & cell.Row) in Pr worksheet.
The variable "cell" indicates a selected cell.
The full version of code is as below:

With desSheet
        For Each cell In Range("F4", Range("F" & Rows.count).End(xlUp))
            For i = 1 To 22
                If cell.Value = Trans_Part(i) Then
                    'check whether quantity is the same
                    If .Range("J" & cell.Row).Value = Pr.Range("I" & i).Value Then
                        'delete the entire row
                        .Range("A" & cell.Row & ":N" & cell.Row).Delete
                    Else
                        'substract current quantity by the amount this row just submitted
                        .Range("J" & cell.Row).Value = CInt(.Range("J" & cell.Row).Value) - CInt(Pr.Range("I" & i).Value)
                    End If
                End If
            Next i
        Next cell
    End With

Now I receive an error message "Type mismatch" over the line:

.Range("J" & cell.Row).Value = CInt(.Range("J" & cell.Row).Value) - CInt(Pr.Range("I" & i).Value)

Could you pls help me to find out the bug and solve this problem?

Thank you very much!

yours sincerely,
lolo^^

 

[luolovepi]

Hi Sektor,

Thank you. I made some changes in other places and then the error disappears. But i don't understand why missing of value update leads to error here...

Best regards,
lolo^-^

Then you try to convert non-numeric data into Integer here:

...CInt(.[COLOR=red]Range("J" & cell.Row)[/COLOR].Value) - CInt([COLOR=red]Pr.Range("I" & i)[/COLOR].Value)