Subtracting using VBA Userform

[Strugglin Exceller]

So I have two userforms. one to add a quantity to inventory and one to subtract. In the userform, when you look up the part number. it will fill in a description of the part and the amount in inventory. If you enter a quantity in the add Field. it will take the number in inventory and add the quantity you are adding to the existing amount. My code works great for adding.

So i used the same code for removing inventory and it does a whacky calculation. if there are 200 in inventory and I want to remove a hundred. it changes the new total to -100


This is my code to add

Private Sub SubmitAdd_Click()
    Dim Part_No As Long
    Part_No = PartNo.Text  
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row    
    For I = 2 To lastrow
       If Sheet1.Cells(I, 1).Value = Part_No Then
          Sheet1.Cells(I, 32).Value = QtyAdd.Text + Sheet1.Cells(I, 32).Value          
    MsgBox "Your inventory quantity has been updated to " & Sheet1.Cells(I, 32).Value        
    End If
Next
Unload AddQtyToInv
End Sub

This is my code to remove

Private Sub SubmitRemove_Click()
    Dim Part_No As Long
    Part_No = PartNo.Text    
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row    
    For I = 2 To lastrow
       If Sheet1.Cells(I, 1).Value = Part_No Then
           Sheet1.Cells(I, 32).Value = QtyRemoved.Text - Sheet1.Cells(I, 32).Value          
    MsgBox "Your inventory quantity has been updated to " & Sheet1.Cells(I, 32).Value
        End If
Next
Unload RemoveQtyFromInv
End Sub

You can see in the uploaded image what it's doing. I'm guessing I'm just overlooking something really simple
Thanks in advance for your help

 

[Micron]

If this Sheet1.Cells(I, 32).Value is 200
and QtyRemoved.Text is 100 then you're saying
Sheet1.Cells(I, 32).Value = 100 - 200 which of course, is -100
You want to subtract the removed from the current count, not subtract the current count from the removed.

 

[Strugglin Exceller]

If this Sheet1.Cells(I, 32).Value is 200
and QtyRemoved.Text is 100 then you're saying
Sheet1.Cells(I, 32).Value = 100 - 200 which of course, is -100
You want to subtract the removed from the current count, not subtract the current count from the removed.

Micron...I agree that is the case. And I forgot to add that bit of info. I tried to reverse the order. it throws an error.

Sheet1.Cells(I, 32).Value - Sheet1.Cells(I, 32).Value=Qtyremoved.text

When I add this line. it puts the Minus right against the sheet name.

 

[Micron]

The "something equals" must come first. Try
Sheet1.Cells(I, 32)=Sheet1.Cells(I, 32)-QtyRemoved.Text
Otherwise if the stock count was 500 and the removed is 100 you're saying
500-500=100

 

[Strugglin Exceller]

The "something equals" must come first. Try
Sheet1.Cells(I, 32)=Sheet1.Cells(I, 32)-QtyRemoved.Text
Otherwise if the stock count was 500 and the removed is 100 you're saying
500-500=100

Thanks, Micron. I'll try this. Unfortunately when I opened my sheet this morning. it said it was corrupt and that it lost the active X control. I check all the backup versions and appear to have been corrupted a couple of days ago. this is a brand-new sheet. So not sure what happened. But now I have to recreate everything from scratch. this may take me a bit before I can test your suggestion.

 

[Micron]

Sorry to learn of your troubles. Good luck!

 

[Strugglin Exceller]

Sorry to learn of your troubles. Good luck!

Back up and running. Your suggestion worked! thank you for your help!!!!!

 

[Micron]

Glad I could help. I usually say thanks for the recognition as well, but you marked your post as the solution.

 

[smozgur]

Back up and running. Your suggestion worked! thank you for your help!!!!!

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.