วีดีโอ

QUE MÁXIMO!! MEUS PARABÉNS, SALVOU MUITO 🙏🏼🤩

=EXT.TEXTO(CÉL("nome.arquivo");LOCALIZAR("]";CÉL("nome.arquivo"))+1;NÚM.CARACT(CÉL("nome.arquivo")))

Muito obrigado, funcionou, me ajudou muito.

Fiz e deu certo. Valeu professor, agradeço sua generosidade.

Teria como criar um botão para voltar na última planilha exibida?

Muito obrigado Leandro!!! Deu super certo, muito rápido... Ajudou d +++ Secesso para ti.

Mt difícil

Gratidão...!!! Gratidão...!!! Gratidão...!!! Por suas Excelentes aulas...!!!

Boa 👍

muito bom! também pode usar o range("a1").end(xldown).row (se a coluna já estiver preenchida) Mas muito top a dica!

moço que vídeo perfeitooo, obrigada pela ajuda!!

Muito bom. Parabéns !

Gostei.

Boa tarde! Que tipo de curso eu faço para aprender VBA? Queria muito aprender essa parte de automatizar tudo, ainda mais que tenho alguns processos repetitivos no meu trabalho.

Boa tarde! Tudo bem? A algum tempo eu utilizo seu código para controle de contas a receber e pagar. Até um tempo atrás estava funcionando tudo perfeitamente. Daí então quando eu copiei o arquivo excel para criar o controle de contas a pagar e receber de 2025 ele parou de funcionar quando tenho que fazer alguma alteração de algum dado na listbox. Os outros comandos de inserir, apagar está funcionando normal, o que não está funcionando é para fazer alterações. Quando clico no item que quero alterar na listbox ele passa os dados para os textboxes correspondentes, porém quando clico no botão editar ele substitui os dados da primeira linha abaixo do cabeçalho com as alterações feitas e fica duplicado. Não foi feito nenhuma alteração no código. Só vi que estava fazendo após eu fazer a cópia do arquivo. Poderia me ajudar, por favor?

Só tem uma coisa que eu não gosto neste método: cada vez que acionar essa macro, ele abre uma nova janela do whatsap.

Não ficou claro pra mim como é que adiciona a data, pelo o que eu entendi a planilha não permiti informar a data do serviço prestado, entendo que a planilha pega a data que está sendo feito o lançamento. Seria isso mesmo? E como poderia poder exemplo informa o serviço prestado no dia anterior caso houvesse feito o lançamento no dia?

Legal, muito bom. Agora outra dúvida. Dá para incluir além do Nome do Usuário o email do usuário que está na licença do pacote office, ou nome da Máquina (Computador) ?

Gostei bastante. Solicitei o acesso, caso ainda esteja disponível.

Bom dia Professor, na parte de filtro, o meu deu um problema "1003", como posso resolver isso?

Parabéns pelo conteúdo sensacional

Parabéns! Excelente didática.

Fiz, agora em VBA mesmo, para um aplicativo no VBNet. Ficou massa! Ele enviou uma mensagem para um "Textbox", isso vale para qualquer programa, até para o navegador para que digite uma URL, por exemplo na Barra de Endereço, ou no próprio Explorer. Massa!

Excelente! Direto pelo VBNet através de Listview também é aceitável?

Cara.. namoral, o tanto que você me ajudou, não tem nem ideia, vou até começar a seguir o seu canal! Muito obrigado, tava sofrendo aqui pra fazer certificado pra uns 50 alunos e você salvou minha vida kkkk

ótima dica, video, tudo de bom. Parabens e Obrigada pela ajuda!

Muito top! Parabéns e gratidão.

Olá! por gentileza poderia liberar o acesso ?

Excelente! Apenas uma dúvida... de onde saiu "[counta(BancoDados!A:A)]"?

Boa Noite. Fiz a macros indicada, mas não sei onde errei porque a mensagem enviada, não aparece os acentos e o ç . Pode me ajudar, por favor. Obrigado

Muuuito Top cara. Muito abrigado pelo conteúdo

OLA Comprei a planilha, mas não consigo utilizar, aparece a mensagem: "sua planilha não tem licença para esse computador". Pode me ajudar a resolver?

Deu certo, excelente, obrigado! Prossiga com conteúdos úteis como esse!!

Como faço pra adquirir?

Planilha muito boa. eu acessei o link e fiz a solicitação de acesso. poderia liberar por favor?

Moço, como uma boa carioca, só posso dizer que você é pica para um caralho! Muito obrigada, salvou minha planilha! ❤

Que bacana seu vídeo!! me poupou horas de trabalho :) Obrigada por compartilhar seu conhecimento ... Deus te abençoe!!

E pra imprimir todas em um so documento? Quando tento fazer pra imprimir toda a pasta mesmo assim ele vai imprimindo e criando arquivos em PDF separadamente de cada aba.

o meu caso e diferente eu preciso jagar os nomes de um aba pra outra, so q quando fosse pra outra eu queria q ele fosse em orde alfabetica ja, alguem consegue me ajudar

Teria como se no lugar das datas serem idades? Eu quero mostrar que a partir de tal idade a criança inicia um aprendizado, e ao longo dos anos vai aprimorando até a conclusão completa.

Sensacional, muito bom!

Gostei, curti e compartilhei. Parabéns pela clareza!

Dúvidas: A duração se refere a que?

Boa noite Professor. Minha variável insereOuAltere não muda para 1, que pode estar acontecendo. Private Sub LBListaCliente_Change() Call CarregarCadastroParaAltera UFCLIENTES.BTSalvarNovo.Caption = "Salvar Registro Alterado" insereOuAltere = 1 End Sub Sub SalvarOuAlterarCadastroCliente() 'On Error Resume Next Dim ultimaLinha As Long CLIENTES.Activate ultimaLinha = [counta(CLIENTES!A:A)] If insereOuAltere = 0 Then 'INSERIR CADASTRO NOVO Worksheets("CLIENTES").Cells(ultimaLinha + 1, 1).Value = UFCLIENTES.TBID.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 2).Value = UFCLIENTES.TBCliente.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 3).Value = UFCLIENTES.TBUF.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 4).Value = UFCLIENTES.TBCidade.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 5).Value = UFCLIENTES.TBEndereço.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 6).Value = UFCLIENTES.TBBairro.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 7).Value = UFCLIENTES.TBCep.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 8).Value = UFCLIENTES.TBCNPJ.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 9).Value = UFCLIENTES.TBContato.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 10).Value = UFCLIENTES.TBTelefone.Value Worksheets("CLIENTES").Cells(ultimaLinha + 1, 11).Value = UFCLIENTES.TBEmail.Value Else Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 1).Value = UFCLIENTES.TBID.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 2).Value = UFCLIENTES.TBCliente.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 3).Value = UFCLIENTES.TBUF.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 4).Value = UFCLIENTES.TBCidade.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 5).Value = UFCLIENTES.TBEndereço.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 6).Value = UFCLIENTES.TBBairro.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 7).Value = UFCLIENTES.TBCep.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 8).Value = UFCLIENTES.TBCNPJ.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 9).Value = UFCLIENTES.TBContato.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 10).Value = UFCLIENTES.TBTelefone.Value Worksheets("CLIENTES").Cells(UFCLIENTES.LBListaCliente.ListIndex + 1, 11).Value = UFCLIENTES.TBEmail.Value End If ActiveWorkbook.Save End Sub

Não é um youtuber não , é um paiiiii, deu super certo me salvou!!!!!!

Muito bom professor, estou tendo problemas pois meu whats web esta na lateral esquerda mesmo dando enter nao consigo ir para barra pesquisa. No próprio whats web pede para usar Ctrol+ Alt + \ como proceder ?

Muitíssimo obrigado me ajudou muito com meu trabalho da faculdade.

UAUUU PARABENS!!!

O link não funciona

ameeeeei!1 deu certo