Private Sub btnCadastrar_Click()
'declarar variaveis
Dim linha As Integer
Dim ws As Worksheet
Dim codigoProduto As Integer
Dim descricao As String
Dim quantidadeEstoque As Integer
Dim valorUnitario As Currency
Dim valorTotal As Currency
'Identificar qual Planilha ta a Tabela
Set ws = Worksheets(1)
'Posicionar celula abaixo da ultima prenchida
linha = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'verificar o que o usuário digitou certo
If Not IsNumeric(txtCodigoProduto.Text) Then
MsgBox "Codigo do Produto deve ser numerico"
txtCodigoProduto.Text = ""
txtCodigoProduto.SetFocus
Exit Sub
End If
If txtDescricao.Text = "" Then
MsgBox "Voce deve Digitar a Descrição do Produto"
txtDescricao.SetFocus
Exit Sub
End If
If Not IsNumeric(txtQuantidadeEstoque.Text) Then
MsgBox "Valor Quantidade deve ser Numerico"
txtQuantidadeEstoque.Text = ""
txtQuantidadeEstoque.SetFocus
Exit Sub
End If
If Not IsNumeric(txtValorUnitario.Text) Then
MsgBox "Valor Unitário deve ser Numerico"
txtValorUnitario.Text = ""
txtValorUnitario.SetFocus
Exit Sub
End If
' passar dados do formulário para planilha
'alimentar as variaveis
codigoProduto = txtCodigoProduto.Text
descricao = UCase(txtDescricao.Text)
quantidadeEstoque = txtQuantidadeEstoque.Text
valorUnitario = txtValorUnitario.Text
'jogar os dados das variáveis em cada celula
ws.Cells(linha, 1).Value = codigoProduto
ws.Cells(linha, 2).Value = descricao
ws.Cells(linha, 3).Value = quantidadeEstoque
ws.Cells(linha, 4).Value = valorUnitario
valorTotal = valorUnitario * quantidadeEstoque
ws.Cells(linha, 5).Value = valorTotal
'Avisar Usuario que deu certo
MsgBox "Cadastro Efetuado com Sucesso"
'Limpa Formulário
txtCodigoProduto.Text = ""
txtDescricao.Text = ""
txtValorUnitario.Text = ""
txtQuantidadeEstoque.Text = ""
'Colocar o foco no primeiro controle
txtCodigoProduto.SetFocus
End Sub
Private Sub txtQuantidadeEstoque_Change()
End Sub
