Excel VBA 2: Customers Registration System (JSON API) UX UI
ฝัง
- เผยแพร่เมื่อ 15 ก.ย. 2024
- ❤️️ Subscribe and get access to Exclusive Projects!
www.youtube.co...
Learn in this Excel VBA video tutorial how to create a complete customer registration system, with CNPJ lookup using JSON API and UX UI Design appearance.
In this registration, alteration, deletion and consultation system, EXCEL and JSON work together to form a well-structured and efficient system, capable of accelerating the registration of their customer information by consulting a CNPJ Web data API into their form Excel VBA.
In summary, we can say that JSON is a standard for storing and exchanging information between systems that is extremely fast, light and easy to interpret by virtually all programming languages.
Due to the fact that VBA does not offer a library to parser this pattern, we will use an external parsing converter, which will allow us to transform the JSON into an object so that we can access its properties. For that, we will import the file into VB.
In addition to searching CNPJ data using JSON, another functionality specific to this system will be the creation of folders in a specific location and storage of photos inside that folder.
For this we will use the Application.FileDialog (Excel) Property. In this case, when searching for an image, the system will identify the address of that image, and then copy the file to another folder with the desired name. If the destination folder already exists, it will just copy the image into the folder.
📥 Download files: projetoaberto....
📥 Download do Conversion e Parser JSON: github.com/VBA...
🎬 Playlist: • Sistemas Completos
![API Windows [Utilização dentro do VBA]](/img/n.gif)
🔥 *Blackfriday* 🔥 vetorialtreinamentos.com.br/curso-programando-o-excel-com-vba/
Show, show, show...simplesmente show Macelo.
Tive problemas com a ListBox com erro de objeto, mas corrigi:
.AddItem Format(rg.Cells(linf, 1), "00000") ' Atenção: antes era (linf, 0 ...mas dá erro de objeto
.List(listaClientes.ListCount - 1, 1) = rg.Cells(linf, 2) ' Atenção: antes era (linf, 1
.List(listaClientes.ListCount - 1, 2) = rg.Cells(linf, 3) ' Atenção: antes era (linf, 2
Também Não encontra o proximo registro na navegação do cliente, quando excluído entre os registros. Ainda não achei a forma adequada de contornar, mas o projeto ficou sensacional e só tenha a agradecer por sua dedicação.
Sucesso, sempre.
🚀🚀🚀
Criatividade de alto nível!
Quem olha esses formulários pensa até que isso aí não é VBA.
Meu nobre... Parabéns pela tua criatividade.
Trabalho com vba há alguns anos e nunca vi nada como seus projetos.
Me inspirou muito a melhorar os meus.
Parabéns pelo trabalho, sem comentários a qualidade do seu serviço, so não consegui rodar no meu office 64 bits.
Mano do céu o que é que foi isso ? que sistema incrível que visual !! parabéns pelo trabalho !!!!!!!!
uma obra prima, parabêns
Buenas amigo desde Venezuela lo saludo, sigo todos sus videos, son muy buenos, gracias
Marcelo, esse é o único canal que conheço que tem esse aproach baseado em design tão bem elaborado e bonito.
Simplesmente lindo!
Vc tem vídeo mostrando como criar esses ícones com PowerPoint?
Muito obrigado pelos ensinamentos!
Boa tarde Cristian, obrigado pelos apoio. Tenho sim, veja o vídeo inicial de cadastro de produtos, e veja tbm os mais recentes, lá eu ensino a criar dentro mesmo do Excel e manter o máximo de qualidade possível.
@@DevNascimento já estou assistindo.
Top os vídeos.
Agora vou tentar ver o que vc faz no PowerPoint.
Muitíssimo obrigado!
Já virei fan
É o brabo do Excel!! Parabéns mestre!!
Aula nota 10000, didatica perfeita, unica coisa q falta nas aulas, dar mais zoom ou aumentar a fonte do vba, pra quem ja entende d programação é tranquilo, mais pra quem esta começando é comlpicado
Com certeza Edher, nós vídeos mais recentes já faço isso 🤝
@@DevNascimento obrigado amigão, gratidão pelas aulas, todo sucesso do mundo pra vc . Abração
Uma pena q não consegui finalizar a planilha
sem palavras...top demais!!!
Parabéns Marcelo, este é o melhor conteúdo de Excel do TH-cam.
Parabéns pelo conteúdo 10/10 👏👏
Sou aluno do curso, já havia feito outros antes e achava que conhecia VBA, mas nem se compara ao que aprendi ao fazer o curso "Programando Excel com VBA. Não tem como não aprender no curso que ele ministra. Cheio de detalhes, informações úteis, material de apoio abundante, resposta rápida as dúvidas. Algo que valorizei muito no curso, além de todo o conteúdo e a forma apresentada, foi a humildade dele nas vezes em que tive dúvidas e ele respondeu.
Façam o curso, garanto que não vão achar outro com tamanha quantidade de projetos e materiais disponíveis.
@Nascimento continue, está no caminho certo! Parabéns pelos conteúdos que sempre apresenta.
Como faço para adquirir o curso?
Boa noite! Neste link .
Parabéns Marcelo!! Excelente trabalho, projeto de alto nível. Abraço
Mais um excelente conteúdo!
Parabéns do nascimento
Isso é alto nível meu chefe 🔥
I Love all your project Well done
Seus Videos são simplesmente sensacionais, parabéns. Além de ser diferenciados, em relação ao que vemos no you tube, são muito bem detalhados e explicado.
que trabalho formidavel, excelente mesmo
Valeu Charlles 🤜🤛
Mlk você é o brabo. Muito Obrigado.
Muito bom seu trabalho. Já assisti uns três vídeos teu kkk, aquele do menu lateral com labels como botões ficou show!!!
Show demais 📈 Seja bem vindo 🤝
Vou deixar meu comentário
Pq vc eh o cara mano
👏🏽👏🏽👏🏽👏🏽👏🏽👏🏽👏🏽
Muito bom!! Parabéns!
Fala professor, tudo bem?! Consegui dar uma melhoradinha....rsrs. Usei a propriedade de por a 1ª letra maiúscula no "nome" e "apelido", digitar o CEP(com XML) para vir algumas informações e deixar as colunas auto ajustáveis com o "Columns AutoFit". Parabéns pelo trabalho. Sucesso!!!
Parabéns meu querido. Seu projeto tá lindo!!! A ideia de usar imagem com as caixas de entrada para os campos do cadastro foi espetacular Uma vez que o VBA é muito limitado quanto a formatação dos FORMs. Sou programado das antigas, trabalhei muito com programação estrutura, e não tenho muita paciência para formatar os objetos.
Vlw Jefferson 🤝📈
Я и не думала, что в vba можно делать такую красоту! 💫💞😍
Sem palavras, super interessante suas técnicas a forma como você cria todo este Layout, dicas Excelentes, Parabéns, que aplicativo bonito!!!!.
Que satisfação Marciel! Muito obrigado pelo apoio!!
Excelente, mas qual é o vide anterior?
Parabéns!👏👏👏
Gostei muito deste formulário, Marcelo. Eu só não entendi como colocou as imagens sobre a outras.
Parabéns pelo conteúdo, gostaria de saber se vc vende esse sistema personalizado para minha empresa?
Maravilhoso sistema. Achei super interessante. Porem ao abrir, ele me da uma variavel não definida na linha de comando:" Call CadastroMd.UltimaLinha(ulin, uval)". dentro do botão INCLUIR
Fale meu amigo, é só identificar a variável e declarar!!
Parabéns pelo conteúdo. Nunca vi algo tão específico e aprofundado aqui no ytb...
Qual o vídeo que vc fez esse formulário??
Bom dia Josivaldo, não tenho um vídeo de criação desse formulário, apenas esse aqui mesmo
sensacional e o melhor de tudo
Aula Show!!!
Excelente video. Você poderia compartilhar o arquivo do Power Point para o menu, as caixas, etc?
Já vi que vc não assistiu ao vídeo, pq lá falo várias vezes como adquirir
@@DevNascimento não falo português :S
@@gustavoleon658 está disponível para download no meu blog. Só ir lá e baixar
top da galaxia
Legal. Consegui elaborar em um formulário separado a consulta de CNPJ. Não consegui capturar o código de CNAE para cada atividade.
Outra detalhe, em geral a quantidade de Atividades Secundárias e CNAE varia de CNPJ. Uns podem ter menos e outros mais.
Teria como capturar quantos houvesse (CNAE e atividades secundárias) e lançar em um ListBox de 2 colunas
Se não for pedir muito, favor criar um vídeo separado para capturar a ficha de CNPJ
Show!! Jose já temos esses vídeos prontos e tudo disponível para download no meu curso. Se lhe interessar, aqui no canal tem o link
@@DevNascimento Debrucei na lógica e consegui entender o código para o CNAE principal = pCnae = CvtJson("atividade_principal")(1)("code") . Para o CNAE secundário = sCNAE1 = CvtJson("atividades_secundarias")(1)("code")
Consegui preencher o ListBox 2 colunas com cód CNAE e Atividades Secundárias. Saiu meio porco pq não sou especialista (CvtJson("atividades_secundarias").Count)
Maravilha.
Do nascimento, você poderia fazer algo referente a segurança do trabalho? tá dificil encontrar na internet e seria algo bem massa..
Opa Hiago, com certeza. Assim que conseguir lançar o primeiro curso, os demais serão voltados a áreas específicas, muitos deles voltados para engenharia
@@DevNascimento rapaz.. se tu conseguir fazer um vídeo no TH-cam para ajudar nós.. vai ser uma dádiva.principalmente algo para ajudar a gente com o bendito exames periódicos.. a gestão deles é complicada.. kkkk #SeusVideosSaoDeMais
so uma ideia aumenta a tela ficou pequeno demais.
Com certeza Matheus, muito obrigado pela sugestão
muito bom este trabalho so uma duvida quando enviar este projeto com json para outra maquina e preciso fazer a instalação novamente ou ele fica dentro do projeto .
Olá amigo. Isso mesmo, já fica dentro do projeto!!
Muito show de bola 👍 Like
Tem com eu criar um formulário vba e conectar com o google sheet e cadastrar, alterar e excluir ?
Olá Maxuel, então, se tratando de Excel, é difícil ter alguma coisa que não seja possível realizar. Porém, não sei se seria a forma ideal. Hoje temos muitas ferramentas Microsoft que podem fazer isso de forma integrada
muito top
Muito Bom.
Tem como Adicionar foto do cliente
Olá, boa tarde. Tudo bem professor? Gostaria de te pedir uma ajuda. Eu criei duas macros que transformam duas abas diferentes em PDFs. Uma aba está com o conteúdo na horizontal e a outra com o conteúdo na vertical. Meu problema é o seguinte, quando eu aperto nos botões para gerar os pdfs, todas as duas abas são geradas numa num único padrão de layout… gostaria que cada uma delas fossem geradas segundo a configuração de layout delas… já fiz de tudo, até procurei códigos pra resolver isso, e não acho nada a respeito. Pode me ajudar?
Excelentes dicas Marcelo. Fiz o Listbox separado conforme vídeo, depois fui desenvolver o cadastro de clientes...tudo ok...mas, quando clico na lupinha para acessar o listbox, dá a seguinte mensagem: Erro de execução 13...tipos incompatíveis...bati cabeça mas, como sou novato em VBA, não consegui resolver. Tem como me ajudar?
Fale meu amigo. Primeiro vc deve executar o listbox separadamente para verificar com calma onde pode está o problema
@@DevNascimento Então...já fiz e executei separadamente e deu tudo certinho...ficou ótimo. O problema acontece quando comecei a desenvolver o Cadastro de Clientes. Quando chega na parte do Buscar e ativar a lupa com os códigos oferecidos (todos copiados)...aí o erro aparece. A depuração para em
Private Sub Pesq_Click()
lstBoxClientes.Show
End Sub
No mais...tudo perfeito.
Me envie sua planilha por email pra eu avaliar
@@DevNascimento Ok...enviei. Grato pela atenção.
Video excelente porém nao estou cosnseguindo fazer, vc teria ela pronta?
Olá amigo, muito bom seu tutorial e trabalho! parabéns!
Estou com um probleminha aqui com o maximizar do código que você disponibilizou para nós.
Gostaria que ele inicializasse no tamanho padrão do meu form e não em tela cheia, poderia me dar uma luz de como fazer isso?
Agradeço desde já!
Olá amigo. Vá no evento UserForm_Activate () e substitua o número 3 pelo número 1.
@@DevNascimento Tão simples e eu perdido xD
Muito obrigado!
@@rafaelzanardine Acontece hshshs
@@DevNascimento hahahaha pois é
Eu tenho algumas dúvidas meio bobas, mas que não consegui encontrar respostas pra elas facilmente. Tem alguma forma de entrar em contato com você e ver se consegue me dar uma luz?
Se não for incomodo claro.
Vc pode listar todas as dúvidas e me enviar por email (dosilvamarcelo@gmail.com). Assim que possível estarei lhe respondendo.
Boa tarde estou chegando agora kkkk. Vc faz ou tem algum sistema para distriuição de cestas basicas, para a 100 familias carentes
Tem produzido captura total das atividades secundárias e códigos do CNAE em um listBox com 2 colunas ?
Olá, boa noite, sou novo nisso e percebi que sempre os projetos ficam enormes no meu vba, esse projeto mesmo fica enorme e tenho que usar barra de rolagem no userform, sabe me dizer como posso alterar a dimensão para uma parecida com a sua?
👍👍👍👍👍
Buongiorno...lavoro davvero eccezionale... Puoi dirmi come ottenere l'interfaccia della maschera di inserimento dati? Grazie
Can you send a link to the powerpoint file?
bom dia! consigo usar no macbook?
Bom dia Alessandro, no arquivo tem algumas apis do windows, portanto, acredito que não
Tem Linkedin pra divulgar?
Tenho sim amigo, ao entrar no canal, você verá um botão no canto inferior direito, que lhe dará acesso ao meu LinkedIn. Obrigado pelo apoio.
Oi Marcelo, ao executar o formulário ele aparece o seguinte erro: "erro em tempo de execução '75': erro de acesso a caminho/arquivo". Consegue me orientar?
Se o PC que está usando for empresarial com uma rede compartilhada ele vai dar erro mesmo, sempre que sua rede cai ou você muda de rede, o formulario tenta buscar as imagens onde a planilha está salva, porém ele encontra divergencias nos locais, No meu caso quando o erro acontece eu tenho que reiniciar o PC pois mudo muito de rede....
Não consigo extrair, esta corrompido
O que faço?
Não está corrompido amigo. Verifique se não é seu programa de extração
Como faço para participar do curso?
A explicação não é para iniciante. kkk
Fala Juh, blz ? Realmente, esse vídeo ficou um pouco puxado hshhs. Mas em fevereiro termos cursos para iniciantes
Boa Noite,quando vou abrir o formulario de download aparece o erro abaixo
Erro de sistema &H8000FFFF (-2147418113). Falha castastrófica
Bom dia, pode ter várias origens. Desative todos os códigos que são executados quando vc inicializa a planilha. Depois vá reativando um por um até descobrir o comando específico que origina esse erro
@@DevNascimento problema que o formulário nem abre para editar com esse erro , tentei de 3 vídeos do canal e nenhum abriu talvez seja a versão do Excel .
@@wigorzinn Qual sua versão? Seu Excel é 32 ou 64 bits ?
quando estou cadastrando, da um erro (Compilar erro em modo oculto: SistemaCadastro.) ao clicar em alguns campos, oq pode ser?
Não mostra a linha onde está ocorrendo o erro ?
@@DevNascimento não, só aparecem duas opções, a OK (que fecha tudo) e o AJUDA (que redireciona para uma área da microsoft)
@@Welissxn Mas você está se referindo ao arquivo de edição ou ao arquivo Excel da pasta BONUS?
@@DevNascimento da pasta bônus
@@Welissxn veja se não foi alterado nada na pasta. Baixe novamente o arquivo, depois irei revisar esse arquivo
Boa noite amigo, quando tento abrir o arquivo está dando esse erro "Erro de sistema &H8000FFFF (-2747418113). Falha catastrófica " Seguida de " Memória insulficiente"
Boa noite amigo. Faz o seguinte, desative todos os código que são executados no momento que o formulário é inicializado. Em seguida, vá reativando um por um, até saber qual código tá gerando esse erro.
@@DevNascimento Boa noite amigo, provavelmente o erro que está dando é devido do "Declare Function", possivelmente era pra esta como "Declare Ptrsafe Function" e não é possível editar a planilha para acrescentar.
Mas isso no arquivo de edição ou no que está na pasta BONUS ?
@@DevNascimento please link
Vc trabalha com desenvolvimento de sistema sob encomenda?
Oi Fábio, não trabalho
Atendendo a que o PowerPoint não vem junto no download tem algum vídeo explicando como faz as imagens?
Já vi que vc não assistiu ao vídeo 😂😂😂 Logo no início eu ensino onde está o arquivo PowerPoint
@@DevNascimento você diz onde está o ficheiro do PP para fazer a exportação das imagens!!!! Eu falei no PP onde você tem as imagens e como faz as imagens, não como as exporta! Estou a falar do PP onde você faz esses icons, estou a falar do PP onde estão as imagens que você fez para o Sistema de cadastro de clientes, não o PP que você utiliza para depois exportar essas imagens. Não sei se fui claro. Mais uma vez muitos parabéns pelo excelente trabalhos
@@photogpphotogp7468 Tem um vídeo sim. O primeiro vídeo de Cadastro de Produtos eu ensino como fazer essa operação usando o PowerPoint: th-cam.com/video/utp5UcRmvgU/w-d-xo.html
@@DevNascimento não vou continuar com com esse papo, ainda tenho muitos vídeos seus para ver e cada um melhor que o outro, mas vou deixar uma sugestão, se você deixa os ficheiros para download deixe conforme mostra no video, com todo o conteúdo que mostra lá, é apenas uma sugestão.
A explicação não é para iniciante. kkk