Aula 02 - Como Fazer Formulário no Excel - Botão Salvar, Código Automático e Renomear os Objetos

Olá meus amigos. Sejam muito bem-vindos estamos  de volta aqui na segunda aula desse curso sobre como criar um formulário no Excel. Eu sou o  Renato Oliveira e você está no canal Reyno Compartilhando Conhecimentos.

Na aula anterior,  pra gente recapitular, o que que nós criamos? Nós criamos essa base de dados que você está vendo  aqui, com todas essas informações. Renomeamos aqui a nossa planilha, a nossa tabela aliás. 

Essa tabela nós renomeamos ali para Clientes e criamos aqui esse formulário. Criamos  os botões, criamos a caixa de listagem, as caixas de texto, enfim criamos toda essa  estrutura e salvamos o nosso arquivo como uma pasta habilitada para macros do Excel. Então  todo esse processo nós fizemos na aula anterior, na aula 1 e nesta segunda aula o que que nós  iremos fazer?

Primeiro nós iremos renomear todas as nossas caixas de textos. Essas caixas de texto  precisam ser renomeados, essa lista aqui também precisa ser renomeada como nós já renomeamos aqui  a textbox, a caixa de texto do campo de buscar, lembra? Nós renomeamos na aula anterior. 

Iremos fazer essa renomeação em todas essas caixas. Iremos configurar o botão de salvar e  também iremos criar um código automático. Tudo na aula de hoje então vamos lá, tem bastante  coisa para gente mostrar para vocês.

Primeiro vamos renomear as nossas textboxes, as nossas  caixas de texto. Vai lá na guia desenvolvedor, abra o seu Visual Basic e abri lá o seu userform1,  que nós estamos criando aqui dentro do controle de clientes. Nós temos lá userform1.

Bom, aqui  então nós já renomeamos como eu falei para vocês, essa textbox aqui do campo de busca. TextBoxBusca  é o nome dessa daqui. Agora iremos renomear todas as outras aqui também como nós fizemos com a  primeira.

Então você seleciona aqui. Seleciona o campo aqui da TextBoxID, vem aqui no name e apaga  o número um e coloca ID. Eu vou deixar o nome das textboxes sempre textbox e o nome complementar, tá  bom?

ID coloquei ali. Dou um Enter. Pronto já está renomeada essa textbox, tá bom?

Lembrando se não  está aparecendo para você essa parte aqui, você pode vir aqui em exibir e exibir aqui a janela  de propriedades, tá bom? E aparece aqui para você essa parte aqui. Vai lá na textbox do nome a  mesma coisa no name você apaga o 2 e coloca nome, é a textbox nome.

Dou um Enter e vou renomeando.  Endereço, TextBoxEndereço, dou um Enter. Número.

Seleciona ali TextBoxNúmero, dou um Enter.  Telefone. Seleciona aqui, vou lá apago e coloco telefone.

Dou um Enter. Vou para próxima.  Email.

TextBoxEmail. Dou um Enter. CPF.

TextBoxCPF Dou um Enter e aqui data, seleciona a textbox da  data, vou aqui e mudo para data. Dou um Enter. E por último aqui a textbox com o valor da dívida. 

Eu venho aqui apago o 9 e vou colocar apenas valor. Só tenho aquela textbox com o valor,  então já vai ser fácil para identificá-la. Bom, renomeei essas textboxes.

Vou renomear também  agora a lista aqui. Listbox eu vou colocar o nome dela apenas de lista para simplificar, tá bom?  Apaguei o name e coloquei lista.

Dou um Enter. Agora essa lista aqui ela tem nome de lista,  beleza? Bom já renomeei tudo.

Agora a gente pode começar a programar os nossos botões aqui  para gente começar já fazer os lançamentos dos nossos dados aqui na nossa base de dados.  Então vou abrir o formulário vou digitar e ele vai lançar aqui para mim as informações aqui  dentro. Vamos programar?

Vou lá então. Vou abrir novamente aqui o nosso userform Visual Basic e  vou dar um duplo clique nesse botão aqui salvar novo. Dá um duplo clique nele vai abrir para você  aqui BTSalvar.

Deixa eu apagar esse aqui em cima. Ele abriu aqui para mim esse código aqui. Quando  eu aperto Tab ele pula um espaço ali.

Eu aperto o Enter para eu poder organizar aqui o meu código  ali dentro. Legal? Então vamos lá!

Vamos colocar os códigos aqui pra gente poder fazer esse botão  salvar funcionar. Qual que é a primeira coisa que eu preciso que meu botão salvar faça? Se  você olhar aqui na sua base de dados, eu vou precisar que o meu botão salvar insira os dados  aqui correspondente a cada textbox, correto?

Ele vai inserir os dados aqui cada um correspondente  a seu campo correto aqui e eu também preciso que ele insira uma nova linha a cada lançamento  para que ele não venha sobrepor as informações. Então é isso que nós iremos fazer agora lá no  nosso código, tá bom? Então vou voltar aqui.

Então para eu inserir a linha qual o código que  eu vou colocar aqui? Você vai colocar Range, abre parênteses, abre aspas e aqui eu preciso dar  referência à minha célula lá na base de dados. Então eu vou fechar aspas.

Abri aspas, fechei  aspas, fecho parênteses, ponto, EntireRow. Esta segunda opção. Você começa a digitar, EntireRow,  ele já aparece aqui.

EntireRow, ponto Insert. Ok? Então aqui eu preciso referenciar aonde eu  quero inserir a linha.

Voltar aqui na nossa base de dados e você vai buscar a célula a qual você  vai inserir essa linha. No meu caso aqui eu até prefiro que você siga esse passo aqui para você  não ter problema se você não conhece muito de programação. Enatão a coluna A na linha 4 é onde  eu vou inserir a minha primeira linha.

A minha linha, aliás. Certo? Então aqui na A4, a partir  daqui eu quero que sempre venha a ser inserida uma linha aqui.

Correto? Então eu vou referenciar  a célula A4. Vou voltar aqui e aqui dentro das aspas eu coloco A4.

Então agora ele vai inserir  sempre uma linha ali. Legal? Vamos prosseguir na próxima linha de código.

Agora eu preciso lançar  os valores. Então vamos lá novamente. Range, abre parênteses e abre aspas, agora eu já sei que é na  A4 o meu primeiro dado.

Correto? Então eu posso colocar aqui A4, fecha aspas, fecha  parênteses, ponto, Value. Que é valor, será igual a minha TextBoxID.

Por quê? Porque a  minha TextBoxID, a minha coluna A é para o código, ID. Legal?

Então a minha textbox, a minha  A4 será igual a minha textbox do código, a ID. A minha célula B4, já mostrar para vocês  aqui. A B4 será igual a minha TextBoxNome e assim por diante.

C4 a Text BoxEndereço. D4 a minha  TextBoxNúmero e assim sucessivamente até a I4, na I4 eu finalizo. Legal?

Vou voltar aqui então  no meu formulário e aqui eu vou colocar me. text. Quando você digita me.

Ele já traz para você  todas as textboxes, me. text, ele já traz todas as textboxes que você criou e fica mais fácil  você localizar e até lembrar o nome dela, tá bom? Já está aqui TextBoxID.

Essa daqui que  é do código, seleciono ela, ela já está ali, certo? Aí eu coloco, ponto, Value também. Para  eu pegar o valor.

Dou um Enter. Nesse caso ele já vai inserir o que eu digitar dentro da minha  TextBoxID, ele já vai atribuir à minha célula A4 lá da minha base de dados. Correto?

Agora eu  preciso fazer isso para todas as outras. O que que eu posso fazer? Eu posso pegar isso daqui.

Eu  selecionei. Dei um CTRL + C, copiei. Venho aqui, CTRL + V.

Eu posso até ir colando aqui, duas,  três, quatro, cinco, seis, vou dando Enter e vou colando aqui. Sete. Não lembro quantas têm.

Se são  oito ou são 9. Vou colar 9 aqui. E aqui você muda, você vai mudando aqui a Range.

Lembra  que eu falei para vocês é A4 e depois B4, vou colocando aqui B4, vou descendo. Eu posso  descer com a setinha do teclado, ele já desce ali. Eu apago essa daqui coloca o C4.

Desço aqui  coloco D4. Apago essa daqui coloco E4. F4.

Apago a debaixo e coloco G4. Apago essa daqui, H4 e a  última é a I4. Lembra que eu falei para vocês, finaliza na I4, legal?

Então está ali. E aqui eu  vou referenciando. Essa minha célula aqui B4 vai ser igual a que?

A TextBoxNome, correto? Então  eu coloco me. TextBoxNome.

Está aqui. Selecione ela aqui, duplo clique, já aparece ali. Não  posso esquecer de colocar o ponto Value.

Ok? Seleciona aqui e já está ali. E aqui eu prossigo  igual, ponto.

Me. TextBox. Qual que é a próxima, depois do nome vem?

E aí se você esquecer  como eu vem aqui, endereço, número, telefone, e-mail, acho que não esqueço mais agora. Próximo é  endereço depois número, telefone. Deixa eu voltar aqui.

TextBox e se você parar de digitar você  apaga e começa novamente. Me. TextBox e já aparece aqui para você endereço.

Ponto Value. Ok? Vou para  próxima linha aqui.

Igual me. TextBoxNúmero. Certo?

Se não apareceu ali você desce pouquinho aqui.  Número está aqui. TextBoxNúmero.

Ponto Value também. Vamos pra próxima aqui. Depois igual  me.

Textbox, falei que ia lembrar né? Endereço, número, se não me engano é e-mail. Vamos voltar  aqui para ter certeza.

Telefone, e-mail e CPF, data e valor. Telefone e meio CPF data e  valor. Então vou voltar aqui.

TextBoxTelefone. Me. TextBoxTelefone.

Está aqui.  TextBoxTelefone. Value.

No próximo, igual me. TextBoxEmail, correto? Ponto Value.

Vou  prosseguindo. Aqui embaixo a G4 vai ser igual me. TextBoxCPF.

Ponto Value. Essa outra aqui vai  ser igual me. TextBoxData, correto?

E por último aqui a nossa textbox valor. Igual me. TextBoxValor,  está aqui.

TextBoxValor. Value. Legal?

Então todo esse código aqui, essas linhas de código vão  então lançar, elas vão atribuir lá na nossa base de dados os valores referente a nossa textbox.  A gente pode até ver se está funcionando. Vou minimizar.

E aqui a gente pode até começar já  inserir alguns dados. Chama o formulário e aqui eu vou colocar um código. Código 1.

Dou um Enter,  Ele pulou para cá. Vou colocar aqui Rodrigo. Dou um Enter.

Endereço Rua A. Dou um Enter.  Número 150.

Telefone 19999. Aqui pessoal eu vou ensinar vocês a configurar também as casas  aqui, os campos aqui, tá bom? Para gente colocar ali dentro uma máscara no telefone, no CPF, na  data e no valor da dívida.

Uma máscara para a gente digitar a quantidade exata e ficar ali  entre parênteses, o CPF ficar ali bonitinho separadinho. A data também. Tudo configurado,  tá bom?

Isso provavelmente na próxima aula. Tá bom? Agora eu vou apenas configurar o botão  de salvar.

Então vamos lá! Vou colocar aqui rodrigo@gmail. com.

br. CPF vou colocar aqui um  valor qualquer. A data vou colocar um valor qualquer também assim, porque ela não está  configurada ainda, tá bom?

Vou colocar aqui o valor da dívida também que não está configurado e  vou salvar aqui. Vamos clicar no botão salvar para ver? Salvar, aqui não apagou continua normal. 

Vou fechar o formulário e olha aqui atrás, apareceu aqui as informações que nós colocamos no  formulário. Então ele está salvando corretamente. O ID ali, o nome aqui, o endereço, número,  telefone, o e-mail.

Só pra conferir aqui, o CPF ele ficou assim por conta da formatação, mas isso  nós iremos consertar. Tá bom? Toda a formatação CPF, data, valor da dívida não estão programados  ainda, mas a gente vai programar tudo isso daqui.

Fica tranquilo, tá certo? Bom já está funcionando  aqui os nossos lançamentos, legal? Porém se eu chegar aqui no e colocar mais um código 1 aqui,  ele vai sobrepor ali.

Então o interessante é nós termos um código fixo, único. Como eu fiz lá na  outra e você não vai poder alterar isso daqui, porque esse código, essa identificação aqui será  apenas para a gente poder fazer buscas e poder trabalhar com nosso formulário. Certo?

Então o que  que eu fiz? Eu criei aqui nessa planilha um código automático. Como assim?

Eu fiz uma fórmula e nessa  fórmula ela sempre vai gerando para mim um número maior, um número a mais do código que se encontra  aqui, por exemplo, se tivesse o número dois aqui, esse meu código iria gerar o número 3 e assim  sucessivamente. Se eu tiver aqui embaixo o número 5 esse meu código ele vai gerar ali o número 6, tá  bom? Ele vai sempre gerar uma mais do que o maior que está ali e isso vai fazer com que o meu código  nunca se repita lá no meu formulário.

Isso é muito importante para a gente poder fazer funcionar  corretamente aqui. Tá certo? Então vamos lá!

Como que a gente faz isso? Eu vou pegar aqui uma célula  bem distante da minha base de dados ou eu posso até criar uma outra planilha aqui, enfim, mas eu  preciso colocar em um local que eu não apague por acaso essa minha fórmula. Tá bom?

Eu vou colocar  aqui na coluna Z. Legal? Aqui na coluna Z eu vou fazer essa fórmula.

Certo? Na Z1. Vai ser na Z1. 

Então qual fórmula que eu vou criar aqui? Eu vou colocar igual máximo, vai ser a função máximo,  abre parênteses. E aí ela vai me pedir um número.

Que número vai ser esse? Vai ser a minha coluna  do código, a minha coluna de identificação. Então eu venho aqui na minha coluna de identificação e  eu seleciono ela toda, desde o meu cabeçalho até a última linha.

Você pode ver que a última linha  dessa minha planilha, dessa minha tabela está aqui na linha 5. Está contemplando até aqui. Não tem  dados, mas ela está até aqui.

Tá certo? Vai ficar assim uma fórmula, olha aqui em cima. Máximo, abre  parênteses, clientes, que é o nome da planilha, abre colchetes duas vezes, hashtag tudo,  porque eu estou selecionando tudo, legal?

Fecha colchetes, ponto e vírgula, abre  colchetes, ID, que é referenciando a coluna que estou, fecha colchetes duas vezes. Tá certo?  E aí você pode fechar parênteses e coloca mais um.

Para quê? Ele vai pegar o número máximo dali e ele  vai acrescentar mais um, certo? E aí ele vai gerar sempre um novo código ali nessa célula.

Vou dar um  enter e ele me trouxe aqui, ele me retornou aqui na coluna Z, ele me retornou o quê? O número três  que é um número a mais do que está ali na minha coluna ID. E isso sempre vai acontecer.

Se eu  tiver aqui um número a mais aqui. Vou colocar aqui três, dou um enter, aqui ele trouxe para mim o  número 4, tá vendo? É isso que ele vai fazer para gente, ele vai trazer para cá o número a mais, um  número a mais sempre lá da nossa base de dados, certo?

E isso vai fazer com que o nosso formulário  agora aqui ele venha a gerar o código que está lá. Mas para isso a gente precisa trazer esse  código automático para cá. Como que a gente faz isso?

Eu preciso colocar um código dentro do meu  botão salvar novo, dentro do salvar novo preciso colocar um código que chame esse número para cá  e dentro do inserir novo também. Dentro dos dois, tá bom? Dentro desses dois botões vou precisar  inserir esse código que vai chamar esse ID para cá.

Eu vou fechar aqui e vou lá no nosso visual  basic, onde nós estamos criando aqui o userform e eu vou abrir o código novamente do salvar novo.  Duplo clique abriu o código que nós acabamos de criar aqui. E aqui embaixo você vai colocar  o seguinte, você vai escrever me.

TextBoxID, tá aqui TextBoxID. Value, será igual a quê? A  minha Range, abre parênteses, abre aspas, você lembra o número da Range, o número da célula que  nós inserimos a função máximo?

Foi na coluna Z na linha um, correto? Então eu coloco Z1, fecho  aspas, fecho parênteses, ponto Value, já está aqui a minha linha de código. Agora toda vez que  eu clicar em salvar, no botão salvar novo, ele vai me trazer esse código aqui, certo?

Então vamos lá!  Vamos ver? Vou minimizar.

Vou abrir o formulário. Vou criar aqui. Ah, perdão.

Eu não posso criar  aqui o ID. Agora eu preciso bloquear também aqui para que eu não digite mais, porque  agora ele vai gerar um código automático, certo? Estava esquecendo desse detalhe. 

Então eu vou abrir novamente aqui, vou voltar aliás no nosso código, nosso userform e eu vou  abrir o código dessa caixinha aqui. Código não, a janela de propriedades apenas. Eu vou abrir  a janela de propriedades apenas clicando nela.

Vai aparecer aqui a janela de propriedades,  certo? Eu cliquei nela apareceu aqui e aqui você vai buscar por essa função aqui, Enabled.  Essa função está true, ok?

Eu vou colocar para False. Por quê? Eu não quero permitir digitação  nessa caixinha, então essa função Enabled traz para mim a opção de poder digitar nela ou não.

Se  tiver false eu não posso digitar dentro dela. Se estiver True eu posso digitar ali dentro, correto?  Então já mudei para False, agora ninguém mais pode digitar ali dentro.

Vou minimizar. Vou abrir o  formulário. Se eu quiser clicar aqui, tá vendo?

Não posso mais clicar ali para digitar certo? E  se eu clicar aqui em salvar novo ele trouxe aqui para mim o número 4. Ele trouxe ali para mim  o ID 4 referente, que eu falei para vocês né, ele vai trazer o código agora automático dali  para que eu possa então prosseguir aqui com um novo cadastro.

Vou cadastrando certo? E ele  vai então colocar as informações lá. Vou salvar.

Ele colocou as informações e ele já me trouxe aqui  um novo código. Então ele sempre vai atualizando automaticamente, sozinho e aí você vai poder criar  novos registros sem problema, certo? Deixa eu fechar.

Ele colocou as informações ali. Então  essa parte de criar um código automático já está funcionando. Uma coisa que a gente já pode  adiantar nessa aula para gente finalizar essa etapa do botão editar, aliás do botão salvar,  por enquanto.

Tem mais coisas que nós com o tempo iremos também atribuindo, ajeitando é a parte de  limpar aqui as informações que estão aqui, certo? Porque estou clicando aqui ele tá até inserindo  ali em branco, ele está inserindo cadastros em branco. A gente vai bloquear essa opção também. 

Vamos bloquear essa opção de inserir cadastros em branco e vamos também limpar as textboxes aqui,  certo? Vamos fazer isso já? A gente pode fazer nessa aula também.

Então vou fechar aqui. Vou  abrir lá o nosso userform e vou abrir o código do botão salvar. Salvar novo.

Estou abrindo  o código dele com duplo clique. Aqui em cima eu vou colocar uma condição, para quê? Para que  se as minhas células estiverem em branco eu não quero que ele registre aquele cadastro em branco. 

Eu quero que ele me avisa que tem alguma coisa em branco ali. E qual o código que você coloca? Você  utiliza a função se.

E como que é a função se aqui no VBA? Você coloca If que é se em inglês. Então  If.

If o quê? Então vou pegar todas as textboxes. Eu não vou poder copiar aqui, porque ele vai me  dando sempre um erro ali.

Eu vou colocar aqui se a minha textbox, me. TextBoxNome, se a minha  TextBoxNome, me. TextBoxNome for igual a vazio, que é aspas duas vezes.

Eu coloquei aspas uma vez,  aspas duas vezes. Aspas duplas ali. Então se isso aqui, se a minha textbox for igual a vazio, isso  que estou dizendo.

E eu dou um espaço e coloco or, que é ou, aí eu pulo para a minha próxima textbox.  Me. TextBoxEndereço for igual a vazio também, aspas duas vezes.

Se a minha TexBoxEndereço for  igual a vazio, espaço, or, me. TextBox. Qual que é a próxima depois de endereço?

É número,  correto? É a minha TextBoxNúmero. Procurar aqui embaixo.

Aqui. Se a minha TextBoxNúmero  for igual a vazio, aspas duas vezes. Or.

Vamos prosseguindo. Eu vou ter que colocar  aqui todas as textboxes. Me.

TextBoxTelefone for igual a aspas duas vezes, or,  me. TextBoxEmail for igual, aspas duas vezes, or me. textbox.

Qual que é agora? Depois de  email vem CPF, certo? TextBoxCPF for igual a vazio, aspas duas vezes, or.

Me. TextBox.  E isso tudo pessoal tem que ser apenas numa linha.

Tá certo? Eu poderia utilizar aqui  o underline para eu pular para a linha de baixo, mas vamos fazer numa linha só.  Me.

TextBox. Depois do CPF vem a data. Me.

TextBoxData for igual a vazio, or. Me. Textbox,  por último ali o valor, for igual a vazio, aspas duas vezes.

Then. Então. Então eu quero  que faça o quê?

Esse then significa então. Dou um enter ele volta para cá para linha  de baixo. Então eu quero que ele me traga uma mensagem avisando que tem alguma célula vazia. 

Então coloca aí, msgbox, espaço, abre aspas e você digita o que você quer que apareça na mensagem.  A minha mensagem eu quero que ele me diga que preencha todos os campos. Ok?

Coloca um ponto de  exclamação se você preferir. Preencha todos os campos. Tá correto.

Fecho aspas e dou um enter.  Ele vai me trazer essa mensagem para preencher todos os campos e aí eu preciso colocar um Exit  sub, para ele sair da macro, encerrar a macro e eu finalizo com end if. Eu fazendo isso, ele vai  me trazer então aqui essa mensagem para preencher todos os campos e ele não vai executar a macro. 

Aí eu vou precisar preencher tudo para ele poder executar a macro, beleza? E para que eu possa  limpar toda os meus campos ali após eu fazer esse preenchimento, eu posso pegar esse daqui. Posso  pegar as informações aqui, eu vou dar um CTRL + C, copiei tudo.

Correto? Eu venho para cá coloco  aqui CTRL + V. Eu apago esse daqui.

Posso apagar esse daqui. Essa primeira não. TextBoxID esse aqui  eu posso deixar.

Posso apagar esse daqui. Apenas da TextBoxNome em diante. então apago esse Range  aqui e eu deixo aqui me.

TextBoxNome igual a vazio. A mesma lógica aqui de cima. Apas duas vezes. 

Igual a aspas duas vezes que é igual a vazio, certo? E eu vou apagando. Apago esse daqui.

Ponto  Value igual aspas duas vezes. Vou aqui para baixo, eu apago esse daqui. Seleciona correto  aqui.

Apaga esse daqui. Me ponto número, igual aspas duas vezes. Venho aqui também nesse  daqui, apago aqui.

Venho aqui coloco igual a vazio. Essa próxima aqui que é do e-mail eu  apago essa Range coloque igual a aspas duas vezes. Vamos para próxima.

Vou apagar esse daqui.  Deixa eu apagar tudo isso aqui. Vou apagar essa e vou apagar essa daqui também.

Apaguei e aqui eu  vou colocando o igual. Igual aspas duas vezes, igual aspas duas vezes e igual aspas duas vezes.  Pronto, finalizei.

Agora se eu voltar aqui. Deixa eu minimizar. Vou voltar aqui no formulário e olha  o que vai acontecer.

Se eu tentar fazer um novo cadastro em branco, salvar novo. Preencha todos  os campos. Ok?

Eu vou precisar preencher tudo isso daqui agora. Preenche tudo, vou preenchendo tudo.  Preenchi.

Agora sim. Salvar novo. Ele salvou.

Deixa eu fechar aqui. Ele salvou as informações  aqui, tá vendo? Salvou tudo ali e ele limpou meu formulário.

Eu fechei sem falar para vocês né?  Mas você viu que ele limpou o formulário. Tá certo?

Essa configuração de limpeza e de preencher  todos os campos está ok. Vamos finalizando por aqui. Na próxima aula nós iremos então continuar  a edição desse botão salvar novo do inserir e dos outros restantes.

Tem bastante coisa para gente  aprender aqui ainda do botão buscar por CPF, trazer os dados para cá. Vamos configurar o  telefone, o CPF, a data aqui que muita gente já pediu no formulário passado que nós ensinamos  vocês a fazerem. Pediu as máscaras ali.

Pediu bastante coisa e nós iremos trazer para cá para  esse novo curso de formulário no Excel. Tá bom? Então eu vou ficando por aqui e se você não se  inscreveu ainda, se inscreva no nosso canal, ativa as notificações, entra lá no canal também do  telegram para você receber os nossos materiais.

Tá bom? E você então ter aí uma boa aula, certo?  Vou ficando por aqui então e nos vemos aí no nosso próximo vídeo, na nossa terceira aula de  como criar um formulário no Excel.

Te vejo lá!