-
Total de itens
9 -
Registro em
-
Última visita
Posts postados por Julian Rocha
-
-
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!
-
Em 11/08/2018 at 19:35, Alyson Ronnan Martins disse:
Boa noite Julian Rocha.
Passei por esse problema agora pouco também.
tente invertar a formatação:Dim nData nData = format(now(), "MM/DD/YYYY")
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
-
-
Em 11/08/2018 at 19:35, Alyson Ronnan Martins disse:
Boa noite Julian Rocha.
Passei por esse problema agora pouco também.
tente invertar a formatação:Dim nData nData = format(now(), "MM/DD/YYYY")
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") -
26 minutos atrás, Erik Wesley disse:
Manda a parte do seu código que retira a data do local e cola no destino.
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 SubNo 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_Registros3End With
End Sub
-
2 horas atrás, Erik Wesley disse:
Use o:
DateValue(Variavel)
ele ira resolver seus problemas de data invertida.
Exemplo:
Dim DataAtual as String DataAtual = "10/08/2018" ActiveCell.Value = DateValue(DataAtual)
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 VBA
Ao 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 Then
TxtProximoContato = TxtProximoContato + "/"
End If
If Len(TxtProximoContato.Text) = 5 Then
TxtProximoContato = TxtProximoContato + "/"
End If
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
Tenho 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!
COMANDO DE ENVIAR E-MAIL AUTOMÁTICO PAROU DE FUNCIONAR
em VBA
Postado
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/ ... c1dcf2c27c
https://uploaddeimagens.com.br/imagens/ ... 216281acd2
Se alguém souber o que pode ser ficarei grato.