CodigoVbaExcel

Formulário Cadastro de Produto
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