Alyson Ronnan Martins

Bom dia. precisa verificar o valor que esta retornando para "outMail.ReceivedTime" Abra o VBA selecione a linha que esta causando o aperte o botão F9 para pausar o código nessa linha. (ela vai ficar em vermelho) Agora execute o código e quando ele pausar (mostrando em amarelo a linha), posicione o mouse em cima da campo para que mostre o valor debaixo do mouse. O valor que estar retornando não deve estar no formato de data para o parametro YEAR, MONTH e DAY conseguirem entender a informação. Quando tiver a informação tira um print e mostrar aqui no forum que posso tentar te ajudar.

Boa noite. Como esta a consulta do seu subformulário?

@Elias geminiano Você tentou colocar um consultar para atualizar o seus valores?

Teria como postar a planilha para avaliar?

Bom dia @FortNegro, poderia postar uma código do seu projeto para tentar te ajudar?

Boa noite @felix mauricio gasiglia Seria possível passar o código que esta usando para darmos uma olhada pois eu uso um código similiar em clientes e até hoje não tive esse problema de envios.

Boa noite @FortNegro. Eu entendi a ideia mais não sei se assim poderia ser executada. O mais corretos seria pegar a informação que estivesse em um formulário aberto exemplo: você tem um formulário com tbl_contratos aberta e vai inserir um expedição (tbl_expedição) ai sim ele consegue ver o que esta dentro do outro, usando o forms!campo. Olha se isso pode te ajudar.

Boa noite @glaubermoraes09. Com base no que você tem como ideia teria que "ensinar ao vba" como ele vai tratar os dados para fazer a "personalização" e somente depois da personalização executar os comando "INSERT" no mysql. Olha se isso é a configuração correta do "robo".

Boa noite @FortNegro. Você tentou identificar a tabela na campo "Exp1"? Exemplo: [tbl_contratos]![Contrato] & " - " & [tbl_contratos]![fazenda_cliente]

Boa noite @juliano.chaves O jeito mais rápido seria o discord pois trabalho no horário comercial e o discord uso para programação.

@msottomaior Não consegui compreender.

Boa tarde @msottomaior Sua duvida dicou muito vaga (ou eu não consegui entender mesmo kkk) Tenta dividir o programa para ajudarmos mais rapido.

Não entendi.

Deu certo ou não?

Boa tarde @bizuleno. Olha se isdo lhe ajuda

Dim uLinhaInvestidor as Long Dim findCadastro uLinhaInvestidor = Sheets("Info Investidor").cells(Rowns.count, "A").end(xlup).row 'Inicio do Loop: For x = 1 to uLinhaInvestidor step 1 with Sheets("Info Investidor") if .cells(x, "G").value = "" then findCadastro = Sheets("Cadastro_Usuário").Range("A:A").Find(.cells(x, "A").value) if findCadastro.row <> 0 then .cells(x, "G").value = Sheets("Cadastro_Usuário").cells(findCadastro, "M").value 'Aqui eu não tenho certesa se é na coluna M else Msgbox "Aqui comando do formulario" end if end if end with Next x Acima esta o comando para testar. Não tembo como testar pois estou usando o celular para ewcrever o código. Avalia ai

Boa noite @TitanZ_Nemesis O comando Shell você pode executar qualquer programa externo: https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/shell-function E o pode usar comando de espera no vbs para aguardar que o program esteja pronto. https://docs.microsoft.com/pt-br/office/vba/api/excel.application.wait Olha se isso te ajuda.

Boa tarde @AllissonOliveira19. Tenta usar esse código: Application.ScreenUpdating = False ... 'Seu código Application.ScreenUpdating = True 'Fim do código

Boa tarde @renee willian de andrade O comando para exportar seria assim: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Desktop\Teste.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Agora para selecionar para colocar o seu "Nome personalizado" pode colocar para pegar o valor de um campo especifico: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Desktop\" & _ Sheets("Plan1").Range("B2").value & _ ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Olha se te ajuda.

Boa tarde @Eduardo Durães Olha se o conteudo do Tomaz te ajuda um pouco: https://www.tomasvasquez.com.br/blog/microsoft-office/vba-ordenando-arrays-e-listas/

Segue o link com algumas alterações: https://drive.google.com/open?id=17xMmKYGEDJ368AiT_P0JrWYZasNlW4sd Ainda continua com alguns erros de código, como por exemplo o campos que pega da listbox e rebolam dentro dos campos

Dentro do Sub (txt_nome_fantasia_Change) você esta criando uma lista suspensa com 10 colunas mais na lista do print acima esta puxando 15 colunas.

Boa tarde @pablomoreiragv Você esta fazendo seu código ficar dando loop por isso esta aparecendo o erro. ... txt_nome_fantasia.Text = ListBox2.List(ListBox2.ListIndex, 4) ... Ao alterar o seguinte campo ele tentar pesquisar novamente os campos que você já preencheu. Tenta executar o seu código marcando essas linhas que vai ver a questão que te mostrei.

Boa tarde @jlvfranca. Eu vi que esta usando o filtro para pegar essa informação. Eu nunca usei ele para excluir informações mais recomendo você usar o for para excluir informações: Dim uLinha as long uLinha = .cells(rows.count, "A").end(xlup).row For x = uLinha to 1 step -1 'Aqui você coloca os campos que vai verificar e ver se exclui os dados ou não. nexr x

Boa tarde @FelipeVaz Não entendi mais tentar usar o comando application.screenupdate = false