Snasui Excel Forum

Code: Select all

Sub NumOrderAcc1()
Dim ws As Worksheet
Application.EnableEvents = False
If Frm_InPut.ComboBox3.Text = "Acc1Sale" Then
    Frm_InPut.TextBox1.Text = "I " & ((Year(Now) + 543 - 2500) * 10000) + (Sheet2.Range("A" & Rows.Count).End(xlUp).Row) + 1
End If
If Frm_InPut.ComboBox3.Text = "" Then
     Frm_InPut.TextBox1.Text = ""
End If
Set ws = Worksheets("RecordDataI")
emptyrow = WorksheetFunction.CountA(ws.Range("A:A")) + 1
ws.Cells(emptyrow, 1).Value = Sheet3.Label5.Caption
ws.Cells(emptyrow, 2).Value = Sheet3.Label6.Caption
ws.Cells(emptyrow, 3).Value = Sheet3.Label1.Caption
ws.Cells(emptyrow, 4).Value = Sheet3.Label4.Caption
Application.EnableEvents = True
End Sub

Code: Select all

Private Sub CommandButton1_Click()
Call SetDate
Select Case ComboBox3.Text
    Case "Acc1Sale"
        Call NumOrderAcc1
    Case "Acc2"
        Call NumOrderAcc2
    Case "Acc1Boss"
        Call NumOrderAcc1Boss
    Case "Package"
        Call NumOrderPackage
    Case ""
        Exit Sub
End Select
'Other code