Salvar DATA de Formulário VBA para Planilha Excel no FORMATO DATE

Data invertida ao Salvar para Planilha Excel? Muito fácil de resolver. Formatação feita através de códigos Excel VBA. Definindo qual o formato que a data deve ser salva para o Excel. Evitando erro de trocar o dia e o mês de lugar ao enviar a data do userform vba para planilha Excel.
✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
planilhascanal...
=======================

[@luizalbertotozadori9196]

Deus abençoe, fiquei sofrendo com isso por vários meses. Uma explicação simples mudou minha vida!

[@CanalSGP]

Que bom que ajudou

[@MrRodrigodalua]

Assim como os amigos vc salvou meu projeto tb. Até o chat gpt nãp sabia disso!

[@CanalSGP]

Que bom.

[@allanpereirabatista481]

Esse é o Mestre Yoda do Excel! Esse padawan aqui ainda tem que assistir muita aula do mestre hehehehe... Show demais!

[@CanalSGP]

Obrigado, sucesso em seus estudos.

[@rubensneto1762]

Nossa, eu to há meses procurando por essa solução e não sabia que era algo tão rápido hahaha...muito obrigado! Me ajudou bastante!

[@CanalSGP]

Bom dia, que bom que resolveu.

[@arthurbarcelos1517]

Cara, você merece um beijo! kkkkkkkkkkk eu só usei um comando que resolveu meu problema "On error resume next" Obrigado!

[@pyterbarros6956]

Sensacional, estava realizando salvamento na planilha com userform que armazenava data e em outra planilha realizava um relatório com a função cont.ses com critério entre datas e estava dando errado, depois vi o seu vídeo e percebi que era porque armazenava no padrão americano, puts passei horas pensando que estava escrevendo a fórmula cont.ses errada kkk. Cara valewwwww.

[@CanalSGP]

Olá, que bom que descobriu, são os detalhes da programação.

[@gabrieltaborda_1]

salvou minha manhã!!! esta quase surtando aqui

[@CanalSGP]

Que bom.

[@luke_dncer]

muito obrigado! foi simples e direto!

[@CanalSGP]

Obrigado

[@jmbarcelo92]

Masssaaa salvou minha vida hoje kkkkk

[@CanalSGP]

Bom dia, que bom.

[@patriciadomingas9415]

Valeu. Me salvou aqui

[@CanalSGP]

Que bom que ajudou

[@edson11nunes]

Bom dia parabéns pela aula! Fiz e não deu certo, cada linha da tabela aparece um formato diferente

[@CanalSGP]

Bom dia, que pena.

[@vanessagomes3558]

Muito obrigada!

[@CanalSGP]

De nada.

[@fleo3127]

Muito obrigado pelo video! Me salvou aqui... Tem alguma maneira de fazer que dê algum erro quando uma data digitada seja um dia anterior do que a data de hoje? Por exemplo, hoje é 26/09 e num cadastro de dados qualquer você precisa digitar uma data que obrigatoriamente tem que ser ou a data de hoje ou alguma data do futuro, uma data do passado não poderia. Na minha empresa as pessoas costumam errar na digitação do mês, e acabam digitando por exemplo 26/08 ao invés de 26/09, o que não faz nenhum sentido pra nós e atrapalha muito as tabelas dinamicas.

[@CanalSGP]

Olá, vamos estudar essa necessidade, se obtivermos exito, gravamos vídeo explicativo.

[@pamchaves8475]

Olá, professor, bom dia! Muito obrigada por compartilhar seus conhecimentos. Estou criando um controle de estoque a partir dos seus videos, mas me deparei com uma dificuldade que não consigo vencer e não encontrei videos que me mostrassem a resolução. Como faço para criar a movimentação de entrada e saida dos produtos previamente cadastrados? No meu projeto, a tela de produtos, mostra todos os produtos cadastrados, com a informaçao de local de armazenamento e a quantidade em estoque. Porém nao sei como fazer os lançamentos de entrada e saida desses produtos. Parabens pela iniciativa e já agradeço a ajuda.

[@CanalSGP]

Olá, está bem legal seu projeto, com certeza vai ficar muito bom.

[@lab_hemostasia]

Boa tarde... td bem ? Como sempre uma aula bem ilustrada e simples; mas meu problema está me deixando maluco. tenho um relatório que filtro por datas, contudo, quando envio os valores para a planilha os 12 primeiros dias aparecem com formato mm/dd/yyyy e o restante fica "normal" dd/mm/yyyy. Isso tem acarretado alguns problemas de interpretação dos dados obtidos. Tem como corrigir isso ? Mais uma vez obrigado

[@CanalSGP]

Bom dia, uma alternativa se a formatação não resolveu é quebrar a data com a função split e juntar novamente em uma variável string. Dim Data As Date Dim DataQuebrada() As String, NovaData as String Dim d as string, m as string, a as string DataQuebrada = VBA.Split(Data, "/") d = DataQuebrada(0) m = DataQuebrada(1) a = DataQuebrada(2) NovaData = d & "/" & m & "/" & a

[@lab_hemostasia]

@@CanalSGP Boa tarde, muito obrigado pela atenção. Irei tentar dessa forma. Abç

[@lab_hemostasia]

@@CanalSGP Acontece um erro de depuração 9, que ao depurar mostra a linha m = DataQuebrada(1) Abaixo está o código (qualquer semelhança é mera coincidência ... kkkkkk) que estou usando para enviar o conteúdo do Listview para a planilha para depois converter em PDF ... Planilha12.Select Range("A2:Y30").Clear Range("A2").Select Dim i As Integer, j As Integer 'loop das linhas For i = 1 To ListView1.ListItems.Count Cells(i + 1, 1) = ListView1.ListItems(i).Text 'loop das colunas For j = 1 To ListView1.ColumnHeaders.Count - 1 Cells(i + 1, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text Next j Next i Call Módulo4.Convete_Data Call Módulo12.TextoPNumero Call Módulo12.Percent

[@CanalSGP]

Boa tarde, faltou atribuir valor a variável Data antes da variável dataquebrada. Data = informação de onde vem a data

[@lab_hemostasia]

@@CanalSGP Boa noite eu fiz dessa forma: Sub Converte_Data() Dim Data As Date Dim DataQuebrada() As String, NovaData As String Dim d As String, m As String, a As String 'informação de onde vem a data Data = Worksheets("Relat_Geral").Range("A2:A30").Value DataQuebrada = VBA.Split(Data, "/") d = DataQuebrada(0) m = DataQuebrada(1) a = DataQuebrada(2) NovaData = d & "/" & m & "/" & a End Sub Mas alguma coisa estou fazendo errado; já que além de aparecer o erro de subscrito fora do intervalo; eu imagino que por ser uma intervalo que pode variar essa informação da data deva ser algum tipo de variação tbm ! o que acha ?

[@jplima28arkanjo70]

Professor eu tentei usar assim, mas com tempo deu problema, o VBA ficou personalizando minha coluna data e salvando em formato americano

[@CanalSGP]

Bom dia, definindo como Date deveria salvar corretamente, verifique se a coluna da planilha está no formato correto também.

[@perspectivaativa2829]

E quando a data está invertida no listview? Consegue me ajudar?

[@CanalSGP]

Bom dia, se no Excel está correto, na linha de código que carrega a coluna da data para a listview, troque .value por .text

[@almirdematos1768]

Utilizo dois UserForm, um para gravar os dados na planilha com o comando ActiveCell.offset (0, 86). Value = TextBox66.Value E outro para fazer a consulta dos dados da planilha com o comando TextBox152 = ActiveCell.offset (0, 79).Value Não consegui resolver este problema de inversão criando a variável, ela não funcionou para datas de 01 a 12. Consegui formatando a célula destina como Texto e mudando o comando para ActiveCell.offset (0, 86).Value = TextBox66.Text

[@ricardo.lourenco_bh]

Amigo vendo o seu vídeo para tentar resolver meu problema, mas não tô conseguindo. Me ajuda? No meu formulário tenho um campo data de nascimento, data de cadastro e data de alteração(data gerada automaticamente) como aplico essa correção envolvendo essas 3 datas? E onde devo colocar o comando?

[@CanalSGP]

Boa tarde, precisa de uma variável date para cada data, por exemplo: Dim Data1 as Date, Data2 as Date, Data3 as Date Data1 = CampoData1 Data2 = CampoData2 Data3 = CampoData3 Céluladaplanilha = Data1 Céluladaplanilha = Data2 Céluladaplanilha = Data3

[@ricardo.lourenco_bh]

@@CanalSGP Valeu amigo. Deu certo. Como tenho um Módulo para cadastrar os dados na planilha, coloquei lá. E agora deu tudo certo. Muito obrigado. Deus te abençoe!!!!

[@CanalSGP]

De nada

[@LucianoSilva-gq1cu]

Não consegui trazer a data para formato BR com definição definição da variável, devo estar fazendo algo errado... irei tentar até encontrar o acerto Obrigado!

[@CanalSGP]

Bom dia, deve ter deixado escapar algum detalhe.

[@leandrorosado651]

Gostei da dica, mas tenho um outro problema, quando salvo um valor com virgula na planilha não reconhece, exemplo: 5,444 quando o vba salva na planilha fica 5444 sem a virgula

[@CanalSGP]

Olá, precisa converter para número antes de salvar. Exemplo, o valor está na textbox1. Dim Valor as Double Valor = Textbox1 E na hora de salvar, no lugar da textbox1 utilize a variável Valor.

[@leandrorosado651]

CANAL SGP ok. Perfeito agora deu certo

[@sidneyparada3155]

Prof. Luan Estou enfrentando um problema. Já tentei diversas processo para trabalhar com datas, Meu projeto tem 10 campos com datas, não consigo que ele rode sem problema algum. Usei seu método, ele abre uma janela que diz: "Tipos incompatíveis". Isto ocorre quando peço para atualizar. Será que poderia me ajudar?

[@CanalSGP]

Olá, esta´tentando transformar em data algo que não é possível, número ou outro carácter que o código não reconhece.

[@vivianepedrosa8547]

O meu está com a data certinha exemplo 31/10/2019. Quando eu envio ela no e-mail continua certo. Mas, se eu anexo ela em algum outro lugar, por exemplo no WhatsApp, ela vai lá e muda a data sendo que já estava salva e fica 10/31/2019. E às vezes nem a barrinha aparece, o que aparece é ponto, ex: 10.31.19. Gente não tô conseguindo concertar isso, SOCORROOOOOOOOOOO!!!!!!!!!!!!!!!!!!!!!!!!!!! Ele é o excel de 2007.

[@CanalSGP]

Boa tarde, experimente formatar a coluna para texto antes de enviar.

[@raphaelmoura5797]

SALVOOOOOOOOOOOOOOOOOOOU

[@CanalSGP]

Que bom.

[@damiaopassos5189]

BOA TARDE! ONDE EU ACHO UM CÓDIGO QUE AO ABRIR O EXCEL PELA PRIMEIRA VEZ ELE GRAVE ESTÁ DATA E A PESSOA SÓ IRÁ TER ACESSO A PLANILHA NESTE DIA E DEPOIS ELA SE AUTOEXCLUIRÁ. O CÓDIGO DE AUTO EXCLUIR EU JÁ TENHO, SÓ QUE EU É QUE COLOCO A DATA DE VENCIMENTO DA PLANILHA. EU QUERIA QUE FOSSE AUTOMÁTICO. ALGUÉM TERIA UMA SOLUÇÃO. SE ALGUÉM PODER AJUDAR, AGRADEÇO

[@CanalSGP]

Bom dia, infelizmente não tenho nenhum procedimento neste sentido.

[@damiaopassos5189]

@@CanalSGP ESTAVA VENDO UM VÍDEO DO PROGRAMADOR EXCEL VBA E NO VÍDEO ELE DIZ QUE DÁ PRA COLOCAR A DATA DE EXPERAÇÃO DIRETO NA CÉLULA DO EXCEL. OBRIGADO PELA ATENÇÃO. MANDEI UMA MENSAGEM PRA ELE PRA VER SE ELE ME AJUDA. dtexp = ("27/06/2020")