Julian Rocha

Preciso de um help novamente.Minha função de enviar e-mail automático parou de funcionar.Não sei o motivo, ela não executa o comando de acordo com as datas.e ao clicar na variável iDias aparece uma data de 25/12/1899.Até poucos dias atrás estava executando o comando.Segue as imagens do que aparece.https://uploaddeimagens.com.br/imagens/ ... c1dcf2c27chttps://uploaddeimagens.com.br/imagens/ ... 216281acd2Se alguém souber o que pode ser ficarei grato.

Olá, peço um help de vocês. Instalei todos os suplementos e referência que tinha em outro PC 64 Bits Porém ao rodar a planilha em um PC 32 Bits, aparece este erro, que é referente a referência Microsoft Common Dialog controls 6.0 Este erro apenas aparece neste outro PC. Acredito que tenha relação com o Microsoft Common Dialog controls 6.0 e a DLL COMDLG32.OCX Que instalei a partir deste link https://www.microsoft.com/en-us/download/details.aspx?id=10019 Não sei se a mesma DLL, mas foi a única que encontrei para Download Segue algumas imagens demonstrando como está a duas configurações, dos dois PCs e o erro que surge. https://uploaddeimagens.com.br/imagens/referencias_excel-png https://uploaddeimagens.com.br/imagens/referencias32bits-png https://uploaddeimagens.com.br/imagens/comdlg-png https://uploaddeimagens.com.br/imagens/erro2-png-01871a64-521e-4adb-8366-b511fbfb4cd6 https://uploaddeimagens.com.br/imagens/erro-png-9a83b5f1-c0fc-4a5b-a04d-78c501316559 Se alguém puder me ajudar como resolver este problema, agradecerei muito. Obrigado!

Consegui resolver o problema, Basicamente, utilizei este código que você tinha postado, Porém tive de adaptar ao meu código. De qualquer forma, obrigado! Este tópico pode ser fechado.

https://expirebox.com/download/6c478c2df801fb18b479ffa31817256f.html Segue a planilha com o modelo para download

Não deu certo Apontou este erro.

Continua invertendo. A diferença é que no meu caso, o usuário irá digitar a data. e não puxar a data do dia de hoje. Segue como ficou o meu código: Dim TxtProximoContato TxtProximoContato = Format(TxtProximoContato, "MM/DD/YYYY")

Código da TextBox Private Sub TxtProximoContato_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TxtProximoContato.MaxLength = 11 '10/10/2014 Select Case KeyAscii Case 8 'Aceita o BACK SPACE Case 13: SendKeys "{TAB}" 'Emula o TAB Case 48 To 57 If TxtProximoContato.SelStart = 2 Then TxtProximoContato.SelText = "/" If TxtProximoContato.SelStart = 5 Then TxtProximoContato.SelText = "/" Case Else: KeyAscii = 0 'Ignora os outros caracteres End Select End Sub No botão salvar eu digitei um Call para chamar o comando no módulo. Sub cad_membros3() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("PROSPECTS") With ws linha = 2 Do Until Sheets("PROSPECTS").Cells(linha, 1) = "" linha = linha + 1 Loop Sheets("PROSPECTS").Cells(linha, "Y") = Frm_Prosp.TxtProximoContato.Value Sheets("PROSPECTS").Cells(linha, "Z") = Frm_Prosp.TxtObs.Text Sheets("PROSPECTS").Cells(linha, "AA") = Frm_Prosp.TxtVendedor.Text Sheets("PROSPECTS").Cells(linha, "AB") = Frm_Prosp.TxtDataAut.Text Sheets("PROSPECTS").Cells(linha, "AC") = Frm_Prosp.TxtHoraAut.Text MsgBox "Membro cadastrado com sucesso!", vbInformation, "SUCESSO" Call gera_codigo_produto3 Call limpacampos3 Call Atualizar_Registros3 End With End Sub

Já tentei este código e não resolveu Eu insiro ele no Botão Salvar ou na TextBox? Eu tentei nos dois, e a data continua invertendo 😕

Olá a todos,Por gentileza, estou com um problema e gostaria de pedir a ajuda de voces.Estou com o seguinte problema em um formulário do VBAAo preencher com a data, o Excel inverte o DIA, pelo MÊS, em qualquer data anterior ao dia 12.Já mudei a formatação de data do Excel para Portugues, Ingles, e também não deu certo.Segue os dois códigos que utilizo.If Len(TxtProximoContato.Text) = 2 ThenTxtProximoContato = TxtProximoContato + "/"End IfIf Len(TxtProximoContato.Text) = 5 ThenTxtProximoContato = TxtProximoContato + "/"End IfTxtProximoContato.MaxLength = 11 '10/10/2014Select Case KeyAsciiCase 8 'Aceita o BACK SPACECase 13: SendKeys "{TAB}" 'Emula o TABCase 48 To 57If TxtProximoContato.SelStart = 2 Then TxtProximoContato.SelText = "/"If TxtProximoContato.SelStart = 5 Then TxtProximoContato.SelText = "/"Case Else: KeyAscii = 0 'Ignora os outros caracteresEnd SelectTenho outro TextBox 'Date' que registra a data atual para cadastro, que as vezes também ocorre essa inversão.Tentei de várias formas e não consegui resolver.Desde já agradeço pela atenção!