Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim r
With Sheets("Test")
    r = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(r, 1) = ModelBox.Text
    .Cells(r, 2) = PartNoBox.Text
    .Cells(r, 4) = ModelBox.Text
    .Cells(r, 5) = PartNoBox.Text
    .Cells(r, 7) = PGBox.Text
    .Cells(r, 8) = RGBox.Text
    .Cells(r, 9) = JigBox.Text
    .Cells(r, 11) = QtyBox.Text
    .Cells(r, 13) = TextBox9.Text
    .Cells(r, 13) = Format(Date, "[$-409]d/mmm/yy;@")
    .Cells(r, 12) = TransferBox.Text
End With
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Code: Select all

'---Other code----
    .Cells(r, 13).NumberFormat = "dd/mmm/yy"
    .Cells(r, 13) = Application.Text(TextBox9.Text, "0")
'---Other code----