CADASTRO DE CLIENTES
Abra a Guia Desenvolvedor em seguida Abra o editor do Visual Basic.
Na aba Propriedades no campo Caption digite:
CADASTRO DE CLIENTES
Crie Rótulos e caixas de textos para os campos:
Nome:: TXTnome
Endereço:: TXTEnd
Telefone:: TXTTel
e um botão para ação:: btnEnviar
O formulário deverá ficar como a seguir:
No Visual Basic digite:
Sub cadastro()
Sheets("cadastro").Select
UserForm1.Show
End Sub
Digite o código abaixo dando duplo clique no btnenviar.
Private Sub btnenviar_Click()
Sheets("cadastro").Select
'posiciona o cursor na planilha cadastro
ActiveCell.Offset(1, 0).Range("a1").Select
'cursor posicionado uma celula para baixo ( primeira em branco)
End Sub.
Para os campos receberem os valores digitados.
A planilha aqui esta com o cursor posicionado na célula nomeada. Ela deve receber a informação digitada no controle conhecido como txtnome (caixa de texto do formulário)
Veja como fica:
ActiveCell.Value = Me.txtnome.Text
'a celula atual ter o seguinte valor
Com esta linha a célula atual será capaz de receber o valor inserido no controle.
Agora vamos posicionar o cursor na célula a direita , utilizando o método offset.
ActiveCell.Offset(0, 1).Activate
'posiciona o cursor uma célula para a direita
Note que o cursor receberá o conteúdo de um controle do formulário, desta vez o controle txtend.
Crie o mesmo procedimento para txtend.
ActiveCell.Value = Me.txtend.Text
'a celula atual ter o seguinte valor
ActiveCell.Offset(0, 1).Activate
'posiciona o cursor uma célula para a direita
Crie o mesmo procedimento para txttel.
ActiveCell.Value = Me.txttel.Text
'a celula atual ter o seguinte valor
ActiveCell.Offset(0, 1).Activate
'posiciona o cursor uma célula para a direita
Nesta etapa seu código deverá estar assim:
Insira o código abaixo, para que o seu cursor posicione na célula abaixo e limpe o formulário para nova digitação:
ActiveCell.Offset(1, -3).Activate
'posiciona o cursor uma linha abaixo e 3 colunas a esquerda.
Me.txtend = ""
Me.txtnome = ""
Me.txttel = ""
Me.txtnome = SetFocus
O código completo desta aplicação é:
Rode a aplicação para testar.
Espero ter ajudado
Veremos-nos em Breve com mais Dicas de uso VBA
