terça-feira, 15 de julho de 2014

Aula 1 Cadastro VBA

Amigos para saber acesse

Zé das Planilhas veja o video faça o Download da planilha e seja feliz.


Abaixo o código que eu utilizei.


Private Sub CommandButton1_Click()
linha = 2
Do Until Sheets("Fornecedores").Cells(linha, 1) = ""
linha = linha + 1
Loop
Sheets("Fornecedores").Cells(linha, 1) = linha - 1
Sheets("Fornecedores").Cells(linha, 2) = TextBox2
Sheets("Fornecedores").Cells(linha, 3) = TextBox3
MsgBox "Cadastro realizado com sucesso", vbOKOnly, TextBox3.Text
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""


End Sub

Nenhum comentário:

Postar um comentário