Vídeo #74 - Calendário pop-up para seus projetos - VBA (Date picker)

[@fernandoribeiro7736]

Olá Fernando, Grato pela partilha. Votos de Bom trabalho.

[@OrganicSheets]

Disponha! Irmão.

[@fernandofontes576]

Muito bom, simples e prático! Excelente didática, parabéns!

[@OrganicSheets]

Obrigado pelo elogio xará, abraços!

[@wilsonlopesjunior1043]

Sou um admirador do vba excel. Faço as minhas planilhas para uso pessoal e puro aprendizado. Minha profunda gratidão por você estar compartilhando seus conhecimentos. Forte abraço. Campinas SP

[@OrganicSheets]

Somos 2 admiradores do VBA Excel. Fico muito feliz de contribuir. Abraços!

[@diogeneshdeb]

Sempre material e explicação com excelência...

[@OrganicSheets]

Diogenes, é ótimo saber que é de seu agrado! 🤝

[@ir.robsonrodrigues3020]

Muito Obrigado por compartilhar . Essa dica Salvou meu projeto..

[@OrganicSheets]

Que bom que ajudou, fico muito feliz em saber!😊🤝

[@josenildosabino574]

como sempre uma super aula de conhecimentos e humildade Parabens

[@OrganicSheets]

Obrigado pelo elogio Josenildo.

[@patrycia902]

Muito top suas aulas, obrigado ajudou muito no meu projeto pessoal, Deus abençoe sempre.

[@OrganicSheets]

Que bom que ajudou. Que Deus te abençoe também.

[@itamaroliveirasampaio4628]

parabéns!..excelente!

[@OrganicSheets]

Itamar, muito obrigado pelo comentário!

[@JulianaSantos-ob8re]

Parabéns Fernando seus vídeos são sensacionais e obrigada por compartilhar o seu conhecimento.

[@OrganicSheets]

Muito obrigado Juliana, por sempre estar presente 😊🤝

[@paulom4561]

Conteúdo de qualidade, parabéns!!

[@OrganicSheets]

Valeu Paulo 🤝

[@galodamadrugada8904]

show de bola , parabens.. mais um video top

[@OrganicSheets]

Galo, obrigado por comentar.

[@fabiobordallo3064]

Boa tarde. Obrigado por dispor as orientações desse calendario pop-up em VBA. Como devo programar em VBA a inserção do calendario em células diferentes.

[@OrganicSheets]

Olá Fábio, obrigado pelo comentário. Você precisa editar o Range no código. Indicando a célula que irá receber a data.

[@suavesergio]

Fernando, esse calendário na minha opinião é o melhor! Obrigado por compartilhar ele. Seu canal é excelente. Só gostaria de saber por que quando abrimos esse calendário, não aparece a parte de baixo dele, ou seja, existem dois botões, um "Today" e outro "Okay". Acredito que esse "Today" deveria inserir a data de hoje. Seria muito bom ter mais isso. Um abraço.

[@OrganicSheets]

Fala Amigo, nem tinha me atentado a isso, provavelmente o tamanho que é definido na janela é inferior ao realmente necessário para exibir todas as funcionalidades.

[@antonioserrano7213]

Muito útil. 👍

[@OrganicSheets]

Que bom que ajudou Antonio, forte abraço.

[@marcos.fcunha]

Muito bom!!!!!!!!! 😄

[@OrganicSheets]

Muito obrigado Marcos! 🤝

[@odairback7991]

ótima dica, tem como usar 2 calendário no mesmo formulário?

[@OrganicSheets]

Sim é possível 😁

[@gabrieltaborda_1]

obrigado!

[@victorhugo3718]

Muito show!

[@OrganicSheets]

Valeu Victor, Obrigado por assistir!

[@victorhugo3718]

@@OrganicSheets Acho q foi o maior código q já vi. Nao sou bom nisso mas fiquei bem cuirioso. Depois darei uma olhada e vou tentar entender sobre a inserção dos feriados, para que tbm fiquem evidenciados no calendário.

[@OrganicSheets]

🤝

[@adrianomontes339]

Muito bom, meu parabens e obrigado por compartilhar, ha tempos que queria um calendário com as setas para selecionar os meses estivessem separadas uma de cada lado, tenho o modelo com as setas juntas, nada moderno. Gostaria de pedir uma dica, fiz uma macro para excluir numero de notas fiscais repetidas dentro da mesma celula separadas por virgulas, exemplo celula A1 = 12345,12345,12345 minha macro varre a coluna olhando celula a celula e quando acha virgula entende que tem mais de uma nf, entao localiza a virgula usando find, identifica a posição e calcula, se achar duas virgulas é pq tem 3 nf e assim por diante, ai dei um nome de variavel pra cada nf e por fim usa o if = 2 se for duas virgulas compara a primeira com a segunda, se for igual deleta, compara a primeira com a terceira se for igual deleta... faz essa operação para ate 8 notas na mesma celula, isso deixa o codigo lento, eu estou tentando usar o rnd junto ao for i next para rodar ate a quantidade de virgulas calculadas e olhar a planilha toda mas nao consigo, tem alguma ideia?

[@OrganicSheets]

Olá Adriano, obrigado por assistir! Acho que consigo bolar alguma coisa para sua execução rodar melhor, mas preciso de uma planilha exemplo, até para testar a eficiência do código. Me manda por Whatsapp [phone].

[@shymira]

eu fiz um calendario pra um projeto meu, mas bem mais simples q esse aí... vou baixar e conferir com calma depois, obrigado por compartilhar

[@OrganicSheets]

Gostei da organização desse. Depois compartilha o seu também Shymira!🤝

[@Thiago-pl1dr]

Mais simples? Por favor, compartilhe.

[@OrganicSheets]

😄

[@smartins022]

Showww

[@OrganicSheets]

😁👍

[@shiguenorihashimoto9203]

Luan, esse calendário não é compatível com abertura não modal. Conhece um que é compatível?

[@dyhegofeernandez6401]

Boa noite. Primeiramente agradeço pelo vídeo e peço ajuda em uma questão, quando estou utilizando o calendário ao fechar o calendário ele fecha também o form... O que pode estar acontecendo? Desde já agradeço a ajuda. Obg

[@OrganicSheets]

Fala Dyhego, beleza? Cara sinceramente não imagino o que pode estar acontecendo, provavelmente algum bug no projeto.

[@edhermarco1]

Toppppp

[@OrganicSheets]

Obrigado Edher por sempre estar presente, abraços!

[@kenidydrosa]

Muito bom, sabe me dizer como você faz para deixar os cantos do form arredondados? Usa alguma Api?

[@OrganicSheets]

Kenidy, os cantos estão arredondados por padrão do Windows 11, não fiz nenhuma configuração para isso. Mas é possível deixá-lo, vejo o vídeo: kzbin.info/www/bejne/g6rZo6xqgb2CmaM

[@mikaelyyohana2126]

Boa tarde, ao salvar uma arquivo usando esse datepicker eu consigo compartilhar com outras pessoas o projeto? O recurso ficará disponível para que outras pessoas possam utilizar ?

[@OrganicSheets]

Sim Mikaely, se vc inserir ele no seu projeto e compartilhar esse arquivo ele já estará no projeto. #TMJ 😊

[@Fernando-t2d2h]

E possível adicionar os feriados nacionais aparecer em vermelho

[@OrganicSheets]

Oi, Fernando! 😊 Sim, é possível adicionar os feriados nacionais em vermelho! Para isso, precisaria ajustar o código e preferencialmente usar uma API para pegar os feriados atualizados automaticamente. Assim, sempre que o código rodar, ele vai destacar os feriados em vermelho no calendário, garantindo que esteja sempre atualizado. Vou tentar revisitar o código e preparar essa adaptação para você. Fica ligado no canal! 😉 Grande abraço e obrigado pela sugestão! 🚀

[@shymira]

muito bom! um pena o audio ter ficado tao baixo...

[@OrganicSheets]

Não me atentei ao som do microfone, mas vou me atentar nos próximos. 😊

[@Thiago-pl1dr]

Pode me ajudar com uma questão? Preciso que o processo inverso seja programado: ao invés de selecionarmos a data no DatePicker, eu quero que ele apenas mostre grifado de alguma forma a data da célula selecionada no DatePicker. Então, ao invés de selecionar a data, quero que a data da própria célula seja exibida no PopUp. O que me sugere?

[@OrganicSheets]

Olá Thiago, é possível! No código do formulário tem uma SUB chamada SetDays, Exatamente na linha 1344 do código tem um processo Today = Date, mude esse date para a data da sua célula. Talvez seja necessário mais algumas adaptações.

[@edhermarco1]

♥️♥️♥️

[@lindomarmolon2271]

Boa Noite, Gostaria de saber se este calendário tem com usar direto com duplo click na célula? Não quero usar o botão.

[@OrganicSheets]

Fala Lindomar, é possível sim. Para isso, vai precisar acessar o VBE (Alt+F11) -> Vai selecionar a Worksheet onde irá dar o duplo clique -> Vai selecionar o evento BeforeDoubleClick e seguir o exemplo abaixo: 'Suponhamos que queira chamar o calendário dando o duplo clique na célula C2 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Row = 2 And Target.Column = 3 Then 'C2, Row é a linha 2 e Column é a coluna 3 'Aqui irá escrever o código que chama o calendário End If Cancel = True End Sub

[@lindomarmolon2271]

Perfeito, realizei suas alterações, o duplo clique já esta funcionado. Muito Obrigado@@OrganicSheets

[@OrganicSheets]

Por nada! 😊🤝😄

[@tiagomota3862]

Boas, Muito top. Mas no meu calendário o formato da data aparece mês/dia/ano, eu sou de Angola e aqui o formato é como o vosso dia/mês/ano, como resolvo este problema? o formato do meu windows está correcto.

[@shiguehashimoto1247]

O meu projeto usa MultiPage. Se eu clico qualquer data no calendário dentro da página diferente de zero ( 8 por exemplo), há uma troca da página indesejada para a página 0. Se volto manualmente para a página 8, a data escolhida está dentro do TextBox atribuído. Esse erro só ocorre se abro o formulário com esse comando Form.Show False. Preciso desse False para trabalhar com o formulário VBA aberto e com outras várias planilhas simultaneamente. Usei outros 2 calendários diferentes e o sintoma é exatamente o mesmo. Como posso resolver?

[@OrganicSheets]

Fala Shigue, como vai? Cara é um erro bem específico, mas não sei o que pode estar causando. Bom, o form do calendário é de fato para ser um formulário Modal (form.show ou form.show true) visto que o objetivo é abrir exclusivamente para selecionar uma data e fechar logo em seguida.

[@deivisonvicente8869]

Fala Fernando, tudo bem? Sensacional esse vídeo, mas estou com um "problema" .. quando uso esse pop up com calendário, ele não fica com a "borda do forms" em verde água, igual ao seu. Mesmo problema que tive quando fiz um forms igual ao seu vídeo de ux/ui do forms. Sabe me dizer qual seria o erro?

[@OrganicSheets]

Deivison, tudo bem? Essa configuração da borda é a configuração padrão do próprio Windows.

[@brennonunes6749]

olá Fernando! Sabe me dizer se teria como alterar o dia inicial ao abrir o calendário? Exemplo: Se eu escolher uma data bem pra frente, daqui cinco anos, ao clicar novamente no calendário ele mostra o dia, mês e ano atual em que estamos e não aquele que foi escolhido anteriormente. Desde já muitíssimo obrigado pelo conteúdo!

[@OrganicSheets]

Olá Brenno, tudo bem? Cara depende do projeto, suponhamos que você tenha 2 campos de data (data inicial e data final) poderia adaptar o código para utilizar a data inicial como referência para data final, ou seja, sempre que abrir o o segundo calendário vai utilizar como referência a primeira data. Me informa se seria essa sua necessidade... Abraços.

[@brennonunes6749]

@@OrganicSheets acho que não seria isso. Deixa eu tentar resumir: ao invés de já abrir o calendário com o mês e ano atuais eu gostaria de definir uma variável para isso, por exemplo sempre abrir o calendário no mês 08 do ano 2025.

[@brennonunes6749]

@@OrganicSheets Estou estudando o código aqui para tentar descobrir algo. Copiei o seguinte comentário que com certeza tem relação com o que preciso: Below is a list of all arguments, their data type, and their function: ' SelectedDate (Date) - This is the initial selected date on the calendar. Used to ' show the users last selection. If this value is set, the calendar will ' initialize to the month and year of the SelectedDate. If not, it will ' initialize to today's date (with no selection).

[@brennonunes6749]

@@OrganicSheets consegui resolver alterando o SelectedDate de 0 para a variável que eu quiser

[@OrganicSheets]

Que top Brenno, fico feliz 😊👌

[@diogeneshdeb]

Sabe dizer se existe uma forma de bloquear um único objeto usando VBA?

[@diogeneshdeb]

Objeto tipo gráfico?

[@OrganicSheets]

Diogenes é possível realizar sim, entretanto precisa entender se o objeto vai ser dinâmico (criar vários objetos ao longo do uso da planilha) ou estático, pois o bloqueio se dá pelo nome do objeto e quando criamos um objeto o Excel o nomeia automáticamente.

[@Dieg01544]

parabéns pelos vídeos e o canal sempre informação muito boa para os projetos Estou tentando fazer um código que tenho uma listagem de itens e quero pegar o código e o local no estoque e ir colando do lado de cada item Ex 123 peça tal local 1 15 20 456 peça tal local 3 6 8 E assim por diante mas não tenho ideia de fazer isso trabalho com um estoque muito grande e todo dia vem uma listagem de entrega e ficar pesquisando 1 por um e maçante queria já imprimir com a localização nessa listagem

[@OrganicSheets]

Olá, pela sua explicação dá para automatizar essa rotina, me manda um arquivo exemplo por Whatsapp que vejo para você. 21-968748212. Obrigado pelo elogio!

[@fernandogueve1820]

Carissimo fernando saudações, infelizmente não consigo baixar o código deste calendário no vosso site,favor pode me mandar o arquivo que contém os códigos? obrigado

[@OrganicSheets]

Oi, desculpe a demora! 😅 Basta cadastrar-se no hub hub.organicsheets.top e então baixar o arquivo do vídeo. Você pode pesquisar pelo título ou pelo nº do vídeo (copiar e colar), depois clicar em download.Em seguida aparecerá a mensagem "Arquivo enviado para seu E-mail (Verifique a caixa de Spam)!". Abraços!

[@shymira]

14:40 "é sinônimo de: 'a planilha q vc fez ta com defeito/erro'..." como eu ja ouvi isso

[@OrganicSheets]

kkkkkk Verdade!

[@ContabilliAssessoria]

Como eu faço para que apareça anos anteriores a 2013?

[@OrganicSheets]

Precisaria revisar o código do módulo de classe e identificar a linha que defina a data inicial.

[@ContabilliAssessoria]

@@OrganicSheets O problema é que quando eu altero o RangeOfYears o cmbYear não aparece mais.

[@OrganicSheets]

Olá! Conseguiu resolver?

[@thiagovicente8572]

o audio esta bem baixo

[@OrganicSheets]

É Thiago, é algum problema com o gravador, vou tentar ajustar para os próximos vídeos.