Alyson Ronnan Martins

Membros
  • Content Count

    295
  • Joined

  • Last visited

Community Reputation

0 Neutro

3 Followers

About Alyson Ronnan Martins

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. @Elias geminiano Você tentou colocar um consultar para atualizar o seus valores?
  2. Bom dia @FortNegro, poderia postar uma código do seu projeto para tentar te ajudar?
  3. 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.
  4. 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.
  5. 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".
  6. Boa noite @FortNegro. Você tentou identificar a tabela na campo "Exp1"? Exemplo: [tbl_contratos]![Contrato] & " - " & [tbl_contratos]![fazenda_cliente]
  7. 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.
  8. @msottomaior Não consegui compreender.
  9. Boa tarde @msottomaior Sua duvida dicou muito vaga (ou eu não consegui entender mesmo kkk) Tenta dividir o programa para ajudarmos mais rapido.
  10. Boa tarde @bizuleno. Olha se isdo lhe ajuda
  11. 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
  12. 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.