Guru do Excel e Power BI

Private Sub cmbsair_Click()
Unload Me
ActiveWorkbook.Save
End Sub


Private Sub cmbsep_Change()
Me.txtpedido.SetFocus
End Sub
Private Sub txtpedido_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ' Se a tecla enter

Dim ultimalinha, l, contador As Integer
Dim sep As String

contador = 0
ultimalinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
     
     If cmbsep.Text = "" Then
     
     MsgBox "Pedido sem separador!!!", vbCritical, "Informe um separador!!!"
    
        Else
            
            sep = Range("c" & ultimalinha - 1).Value
            l = ultimalinha
            Do While sep = cmbsep
            l = l - 1
            contador = contador + 1
            sep = Range("c" & l).Value
            Loop
            
            If contador < 1 Then
            contador = contador + 1
            Else
            contador = contador
            End If
            Range("A" & ultimalinha) = Date
            Range("B" & ultimalinha) = txtpedido.Text
            Range("C" & ultimalinha) = cmbsep.Text[/b]
            Me.lblped.Caption = cmbsep.Text & ": " & contador & " Pedidos."
            KeyCode = "0"
            Me.txtpedido = ""
            Planilha1.Range("A" & ultimalinha).Select
      End If
End If
       If txtpedido.Value = "" Then
       Me.txtpedido.SetFocus
       End If
       
End Sub


Private Sub UserForm_Initialize()


cmbsep.AddItem "Anderson"
cmbsep.AddItem "Paulo"
cmbsep.AddItem "Marcelo"
cmbsep.AddItem "Armazenagem"
cmbsep.AddItem "Arthur"
cmbsep.AddItem "Alex"
cmbsep.AddItem "Carlos"
cmbsep.AddItem "David"
cmbsep.AddItem "Gerson"
cmbsep.AddItem "Gidalberto"
cmbsep.AddItem "Gleison"
cmbsep.AddItem "Guilherme"
cmbsep.AddItem "Henrique"
cmbsep.AddItem "Marcos"
cmbsep.AddItem "Pendente"
cmbsep.AddItem "Retira"
cmbsep.AddItem "Thiago.H"

End Sub