Alyson Ronnan Martins

@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