PuntingJawa
Board Regular
- Joined
- Feb 25, 2021
- Messages
- 140
- Office Version
- 365
- 2019
- Platform
- Windows
I'd like to add to the end of my code after pressing "ReceivingSubmit_Click()" button for it to save the workbook.
VBA Code:
Private Sub ReceivingSubmit_Click() 'Command button submit
erow = Sheets("Semec Corp 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 #
End Sub