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á!
![[Excel] Formulário de entrada de dados VBA](https://img.youtube.com/vi/w23jekr8Gyg/maxresdefault.jpg)
