Alyson Ronnan Martins

@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.