Cadastro e Pesquisa de Produtos com VBA

Prévia do material em texto

CÓDIGOS VBA
Cadastro
Private Sub cadastra_produto_Click()
Dim contador As Integer
Dim fim As Boolean
fim = False
contador = 15
Do While fim = False
If Worksheets("Produto").Cells(contador, 2).Value = "" Then
Worksheets("Produto").Cells(contador, 2).FormulaR1C1 = contador - 14
Worksheets("Produto").Cells(contador, 3).FormulaR1C1 = produto
Worksheets("Produto").Cells(contador, 4).FormulaR1C1 = qtde
Worksheets("Produto").Cells(contador, 5).FormulaR1C1 = medida
Worksheets("Produto").Cells(contador, 6).FormulaR1C1 = data_entrega
produto = ""
qtde = ""
medida = ""
data_entrega = ""
fim = True
End If
contador = contador + 1
Loop
End Sub
Pesquisar
Private Sub pesquisa_produto_Click()
Dim codigo_informado As String
Dim teste As String
Dim contador As Integer
codigo_informado = InputBox("Informe o Código do Produto", "Pesquisa")
teste = codigo_informado + 14
For contador = 1 To codigo_informado
 If codigo_informado = contador Then
 MsgBox (Range("C" + teste).Value)
 Exit For
 End If
Next contador
End Sub