Respiro Excel - Cadastro VBA

Legal de Saber:

- Tudo que eu escrever depois do apostrofe (‘) é apenas um comentário, ficará em verde, e não fará diferença na execução do comando.

Normalmente utilizamos os comentários para ajudar em possíveis atualizações no código, principalmente se for feito por outra pessoa, para que a mesma entenda o que fizemos. Também utilizamos para documentar algo, assim não esqueceremos o porque utilizamos um ou outro comando.

- Variáveis são espaços para armazenamento de informações. Como se fossem caixinhas onde guardamos coisas. Por exemplo: a variável X recebe a informação 4, então X=4, sempre que eu falar em X, estarei falando 4.

- Toda variável tem um nome. Esse nome deve começar com uma letra, e não pode ter espaço ou caracteres especiais.

- Toda variável tem um tipo, que será definido após a palavra as. As variáveis podem ser do tipo texto (string), moeda (Currency), número (byte, double, integer...), data (date)... entre outros.

- For Each repete uma mesma ação por um número de vezes definido.

- Worksheets refere-se a planilha em que trabalharemos

- Range refere-se ao intervalo em que trabalharemos

- A função IF, é SE, ela só executará uma ação SE a condição determinada for verdadeira.

- Then é então. Se uma condição for verdadeira ENTÃO executará a ação

- Offset é o comando para ler a célula abaixo ou ao lado. (0,0) o primeiro número define quantas casas deve andar para cima ou para baixo. '(0,0) o segundo número define quantas casas deve andar para esquerda ou direita

- O sinal de igual atribui um valor

- Exit sub Finaliza processo

- End If finaliza a função Se

- Next procura a próxima célula

- Unload Me fecha o formulário

Vamos lá! Agora digitaremos o código.

Lembre-se de salvar de tempos em tempo, durante a criação do seu arquivo.

O CÓDIGO

Private Sub Btn_Ok_Click()

'Definição de Variáveis

'Dim cria a variável

'As define o tipo de variável

Dim Nome As String

Dim Email As String

Dim Celular As String

Dim Telefone As String

Dim Endereco As String

Dim Bairro As String

Dim Cidade As String

Dim Estado As String

Dim Celula As Object

'For Each repete uma mesma ação por um número de vezes definido

'Repetiremos até que ele encontre uma célula em branco

'para colocar os dados que digitamos no formulario

'A busca será feita na Planilha PLAN1, na coluna A

For Each Celula In Worksheets("Plan1").Range("A:A")

'a função IF, é SE, ela só executará uma ação SE a condição determinada

'for verdadeira.

'Nesse caso, se a celula estiver vazia, ele joga os dados na planilha

'se não estiver vazia, ele pula para a debaixo, até que encontre uma vazia.

If Celula = "" Then

'Then é então. Se uma condição for verdadeira ENTÃO executará a ação

'Offset é o comando para ler a célula abaixo ou ao lado

'(0,0) o primeiro número define quantas casas deve andar para cima ou para baixo

'(0,0) o segundo número define quantas casas deve andar para esquerda ou direita

'O sinal de igual atribui um valor

'Nesse caso, uma célula receberá o valor que está no campo de texto que preenchemos

Celula.Offset(0, 0) = Txt_Nome

Celula.Offset(0, 1) = Txt_Email

Celula.Offset(0, 2) = Txt_Celular

Celula.Offset(0, 3) = Txt_Telefone

Celula.Offset(0, 4) = Txt_Endereco

Celula.Offset(0, 5) = Txt_Bairro

Celula.Offset(0, 6) = Txt_Cidade

Celula.Offset(0, 7) = Txt_Estado

'Depois de atribuir os valores, vamos encerrar o processo

'senão ele preencherá a planilha toda com esses dados

Unload Me

'Unload me - Fecha o formulário

Exit Sub

'Exit sub Finaliza processo

End If

'End If finaliza a função Se

'Caso a celula não esteja em branco, devemos procurar a próxima

Next

'Next procura a próxima célula

End Sub