Difference between column then show difference

[PuntingJawa]

I have a sheet for packing slips quantity vs physical count quantity. Column F5 down for what the paperwork says we should receive. Column G5 down for the physical count. Both columns grow with each item received.
Is there a single formula that can show + or - the difference for F5 down vs G5 down and show nothing if equal?

 

[DanteAmor]

This is what you need?

varios 16jul2024.xlsm
	F	G	H
5	1	2	-
6	2	1	+
7	1	1
8	2	2
Hoja2

Cell Formulas
Range	Formula
H5:H8	H5	=IF(F5<G5,"-",IF(F5>G5,"+",""))

Or this:

varios 16jul2024.xlsm
	F	G	H
5	1	2	+
6	2	1	-
7	1	1
8	2	2
Hoja2

Cell Formulas
Range	Formula
H5:H8	H5	=IF(F5<G5,"+",IF(F5>G5,"-",""))

 

[PuntingJawa]

That but with the quantity difference

 

[DanteAmor]

It would help if you give an example of what you have and what you expect from the result.
Try:

varios 16jul2024.xlsm
	F	G	H
5	1	2	-1
6	2	1	1
7	1	1
8	2	2
Hoja2

Cell Formulas
Range	Formula
H5:H8	H5	=IF(F5=G5,"",F5-G5)

 

[PuntingJawa]

Fair enough. What I am trying to do is show any that are over/under the quantity received.
Column F is what the packing slip says.
Column G is what the physical count is.
I think I may place the formula in column M or N to show the quantity over/under.

The issue I am running into is I am hoping for one formula that will cover the columns as they increase downward with each input. I have a Userform that I utilize for the input of information and if the formula goes further than the last inputted line, the userform is going to try and place that information at the very end.

L-8.5-1 Shipping receiving log Userform - Copy.xlsm
	A	B	C	D	E	F	G	H	I	J
4	Date	Supplier	Project	Description	Part Number	On PS if ≠ than received	Received	Rejected	Comments	152-2
5	7/16/2024	ULINE	SHOP	PACKING TABLE	H-9005-WOOD	3	1			PO 0001
6	7/16/2024	ULINE	SHOP	INSPECTION TAG	S-928PS	4	1			PO 0001
7	7/16/2024	ULINE	SHOP	MASTERWRAP	S-741	200	24			PO 0001
8	7/16/2024	ULINE	SHOP	POLYTUBE	S-1123	5	1			PO 0001
Semec Corp Receiving

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
F5:G1048576	Expression	=$F5<>$G5	text	NO

 

[DanteAmor]

I have a Userform that I utilize for the input of information and if the formula goes further than the last inputted line, the userform is going to try and place that information at the very end.

In that same userform, when entering the line with data, you can add the formula or the result of the calculation to that line.

For example:

  'After putting the data on the sheet, put the following line (adapt "lastrow" with the name of your variable)
  Range("M" & lastrow).Value = Range("F" & lastrow).Value - Range("G" & lastrow).Value

 

[PuntingJawa]

It may be easier to give you my userform. I utilized "erow" for this. I am unsure how to proceed.

Private Sub RecDate_Change() 'Date

End Sub

Private Sub RecNCR_Change()
    RecNCR.Text = UCase(RecNCR.Text) 'NCR #
End Sub

Private Sub RecRMA_Change()
    RecRMA.Text = UCase(RecRMA.Text) 'RMA #
End Sub

Private Sub RecSupplier_Change()
    RecSupplier.Text = UCase(RecSupplier.Text) 'Supplier
End Sub

Private Sub RecProject_Change()
    RecProject.Text = UCase(RecProject.Text) 'Project #
End Sub

Private Sub RecDescription_Change()
    RecDescription.Text = UCase(RecDescription.Text) 'Item Description
End Sub

Private Sub RecPartNumber_Change()
    RecPartNumber.Text = UCase(RecPartNumber.Text) 'Part #
End Sub

Private Sub RecSlipQTY_Change()
    RecSlipQTY.Text = UCase(RecSlipQTY.Text) 'QTY on packing slip
End Sub

Private Sub RecCountQTY_Change()
    RecCountQTY.Text = UCase(RecCountQTY.Text) 'Actual QTY count
End Sub

Private Sub RecPackNumber_Change()
    RecPackNumber.Text = UCase(RecPackNumber.Text) 'Packing Slip #
End Sub

Private Sub RecPO_Change()
    RecPO.Text = UCase(RecPO.Text) 'PO #
End Sub

Private Sub UserForm_Activate()

RecDate.Text = Format(Now(), "MM/DD/YY") 'Auto date for today


End Sub
Private Sub ReceivingSubmit_Click() 'Command button submit

erow = Sheets("Receiving").Range("a" & Rows.Count).End(xlUp).Row 'Submit on next open "A" row
    Range("A" & erow + 1) = RecDate.Value 'Date
    Range("B" & erow + 1) = RecSupplier.Value 'Supplier
    Range("C" & erow + 1) = RecProject.Value 'Project #
    Range("D" & erow + 1) = RecDescription.Value 'Decription
    Range("E" & erow + 1) = RecPartNumber.Value 'Part #
    Range("F" & erow + 1) = RecSlipQTY.Value 'Packing slip QTY
    Range("G" & erow + 1) = RecCountQTY.Value 'Actual count QTY
    Range("I" & erow + 1) = "PS " & RecPackNumber.Value 'Pack Slip #
    Range("J" & erow + 1) = "PO " & RecPO.Value 'Purchase Order #
    Range("K" & erow + 1) = RecNCR.Value 'NCR #
    Range("L" & erow + 1) = RecRMA.Value 'RMA #
    'Calculation range should go here?
    ThisWorkbook.Save

End Sub

Private Sub ReceivingClear_Click()
    RecSupplier.Value = "" 'Supplier
    RecProject.Value = "" 'Project #
    RecDescription.Value = "" 'Decription
    RecPartNumber.Value = "" 'Part #
    RecSlipQTY.Value = "" 'Packing slip QTY
    RecCountQTY.Value = "" 'Actual count QTY
    RecPackNumber.Value = "" 'Pack Slip #
    RecPO.Value = "" 'Purchase Order #
    RecNCR.Value = "" 'NCR #
    RecRMA.Value = "" 'RMA #

End Sub

 

[PuntingJawa]

Actually, I simplified it.

   Range("N" & erow + 1) = RecSlipQTY.Value - RecCountQTY.Value

I am utilizing existing formats already in the userform. Thank you for the help in leading me to an answer!

 

[DanteAmor]

Try, Try the following, this way you only add 1 in the erow variable

Private Sub ReceivingSubmit_Click() 'Command button submit
  Dim erow As Long
  erow = Sheets("Semec Corp Receiving").Range("a" & Rows.Count).End(xlUp).Row + 1 'Submit on next open "A" row

    Range("A" & erow) = RecDate.Value 'Date
    Range("B" & erow) = RecSupplier.Value 'Supplier
    Range("C" & erow) = RecProject.Value 'Project #
    Range("D" & erow) = RecDescription.Value 'Decription
    Range("E" & erow) = RecPartNumber.Value 'Part #
    Range("F" & erow) = RecSlipQTY.Value 'Packing slip QTY
    Range("G" & erow) = RecCountQTY.Value 'Actual count QTY
    Range("I" & erow) = "PS " & RecPackNumber.Value 'Pack Slip #
    Range("J" & erow) = "PO " & RecPO.Value 'Purchase Order #
    Range("K" & erow) = RecNCR.Value 'NCR #
    Range("L" & erow) = RecRMA.Value 'RMA #

    'Calculation
    Range("M" & erow).Value = Range("F" & erow).Value - Range("G" & erow).Value

  'or 

    Range("N" & erow) = RecSlipQTY.Value - RecCountQTY.Value
    
    ThisWorkbook.Save
End Sub