Alyson Ronnan Martins

Boa tarde @Edson_Barbosa tenta o seguinte: Right(Range("A2"), 1)

Como você controla no "Solver" o resultado que vai aparecer? Tipo: Resposta(1) ou Resposta(2)?

Boa tarde @marcioPRO1. Recomendo você pegar o maestro do Site Usando access. https://www.usandoaccess.com.br/ é ótimo.

Ok. Confirma se a Lógica esra certa: Loop (todas a linhas de Cadastro_Usuário) Em cada linha olhar se o nome do existe da info investidor Se sim atualizar a coluna G Se exibir formulário Fim do Se Fim do Loop Isso ai?

Como é esse cálculo que você usa para adiquerir o resultado?

Ai complica pois tudo que for feito depois pode precisar de uma correção por não esta 100% estruturado. Vamos do básico, você já tem a tabela com os dados cadastrados correto? Se sim manda uma foto dela.

Consigo te ajudar para você fazer a alteração. Fico no aguardo.

Bom dia @luucasmoura Se os dados tiverem orgabizados em linha no excel você pode usar o for para lançar esses dados com o código que já tem no SAP dim uLinha as long uLinha = Sheets("plan1").cells(Rows.count, "A").end(xlup).row for x = 1 to uLinha step 1 ...seu código... next

Bom dia. @msottomaior. A ideia esta faz sentido. Já tem um esboço do código ou tela para acionar. Vamos dividir seu problemas por partes e procurar soluções para elas separadamente. O que primeiro você quer que aconteça e em qual momento?

Bom dia. No meu caso eu refaria manual essanparte que esta dando errado.

Só não consegui ajudar por não conhecer a função solver

Boa tarde @rrussano Posso te auxiliar o o sistema for código aberto. Porêm para fazer alteração que demandem tempo não da para simplesmente fazer de graça. Se tiver conhecimento mínimo de access da para fazer as alterações com ajuda deste fórum ou pesquisa de internet. Qualquer coisa me manda uma resposta para melhor te ajudar.

Boa tarde @amadeugustavo Tenta dessa maneira: dim uLinha as long uLinha = Sheets("plan1").cells(Rows.count, "A").end(xlup).row for x = 1 to uLinha step 1 ...seu código... next

Boa tarde @silvata Poderia mostrar a parte do código que esta trazendo as informações do access?

No meu código muda apenas isso if Rows(x).Hidden = False then 'Comando para enviar email end if Apenas a parte do IF você altera ai vai olhar as linhas que estejam sendo exibidas.

já que o filtro não funcionou tentou colocar uma colocar (justamente para envio personalizador) e colocar um "x" nela. Assim quando o mando passar nessa linha iria enviar apenas para os demarcados em x

Bom com esse comando você manda para caso a luminha seja vazia. linha = linha_inicial i = 0 Do Until Sheets("2019").Cells(linha, 13) = "" Nome(i) = Sheets("2019").Cells(linha, 9) linha = linha + 1 i = i + 1 Loop Ai a cima ele olha na coluna 13 Tenta alterar assim xLinhas = Sheets("SuaPlanilha").cells(Rows.count, "M").end(xlup).row for x = 2 to xLinhas step 1 if Sheets("SuaPlanilha").cells(x, "M").value = "Pendente" 'aqui o comando para enviar o email end if next x Olha se consegue compreender

@bernado_pampa Bom fia. Você quer adcionar itens olha a quantidade de linhas na planilha?

@BlobCat Bom dia. Eu olhei seu código e tenho uma observação. Você quer que envie apenas o seu "resultado do filtro" correto? Para contornar isso você pode mandar o vba olhar o que esta digitado. Sabe esse comando. Estamos no aguardo.

@Jose Carlos Ferreira Boa tarde. Usa o seguinte código para ver a ultima linha. Sheets("SuaPlanilha").cells(rows.count, "A").End(xlup).row Eu mandei olhar a coluna A mais você pode usar qualquet uma.

@wolfguardia Boa tarde. Tenta assim em macro forms![seu formulario]![Seu campo] Ou coloca como formula direta. Formulario!....(mesma coisa do superior) Fico no aguardo

Boa noite. @Ana.Paula Supondo que tenha entendi tudo esse comando pesquisar executa seguinte linha: fDados_PCP iLin Sendo o comando responsável por trazer as imagens imagens. Olhando esse comando não vi comando para carregar a imagem, somente os textos, por isso não aparece foto quando você faz a pesquisa: Function fDados_PCP(iLinha As Long) 'Carrega dados txtposicao.Value = Cells(iLinha, "A").Text txtboxcodigoprod.Value = Cells(iLinha, "B").Text txtboxdescricao.Value = Cells(iLinha, "C").Text txtboxex1.Value = Cells(iLinha, "D").Text txtboxex2.Value = Cells(iLinha, "E").Text txtboxex3.Value = Cells(iLinha, "F").Text txtboxex4.Value = Cells(iLinha, "G").Text txtboxex5.Value = Cells(iLinha, "H").Text txtboxex6.Value = Cells(iLinha, "I").Text txtboxex7.Value = Cells(iLinha, "J").Text txtboxex8.Value = Cells(iLinha, "K").Text txtboxex9.Value = Cells(iLinha, "L").Text txtboxex10.Value = Cells(iLinha, "M").Text txtboxvari1.Value = Cells(iLinha, "N").Text txtboxvari2.Value = Cells(iLinha, "O").Text txtboxvari3.Value = Cells(iLinha, "P").Text txtboxvari4.Value = Cells(iLinha, "Q").Text txtboxvari5.Value = Cells(iLinha, "R").Text txtboxvari6.Value = Cells(iLinha, "S").Text End Function Como você informou que o endereço responsável pela foto estava na coluna "T" e esse comando acima não carrega essa coluna, presumo que seu código falta o "LoadPicture" na coluna "T" frmPrincipal.Image1.Picture = LoadPicture(Cells(iLinha, "T").Text) Ficando no final assim: Function fDados_PCP(iLinha As Long) 'Carrega dados txtposicao.Value = Cells(iLinha, "A").Text txtboxcodigoprod.Value = Cells(iLinha, "B").Text txtboxdescricao.Value = Cells(iLinha, "C").Text txtboxex1.Value = Cells(iLinha, "D").Text txtboxex2.Value = Cells(iLinha, "E").Text txtboxex3.Value = Cells(iLinha, "F").Text txtboxex4.Value = Cells(iLinha, "G").Text txtboxex5.Value = Cells(iLinha, "H").Text txtboxex6.Value = Cells(iLinha, "I").Text txtboxex7.Value = Cells(iLinha, "J").Text txtboxex8.Value = Cells(iLinha, "K").Text txtboxex9.Value = Cells(iLinha, "L").Text txtboxex10.Value = Cells(iLinha, "M").Text txtboxvari1.Value = Cells(iLinha, "N").Text txtboxvari2.Value = Cells(iLinha, "O").Text txtboxvari3.Value = Cells(iLinha, "P").Text txtboxvari4.Value = Cells(iLinha, "Q").Text txtboxvari5.Value = Cells(iLinha, "R").Text txtboxvari6.Value = Cells(iLinha, "S").Text 'Carregar imagem frmPrincipal.Image1.Picture = LoadPicture(Cells(iLinha, "T").Text) End Function Olha como ficou o código com a alteração nessa

@Ana.Paula manda somente a parte que não esta funcionando como deveria

Eu mudei uma coisa no seu código de puxar a foto. Private Sub cmdimagem_Click() Dim Figura As Office.FileDialog Set Figura = Application.FileDialog(msoFileDialogFilePicker) With Figura AllowMultiSelect = False Title = "Selecione a imagem." .Filters.Add "imagem JPG", "*.jpg *" If Figura.Show = True Then Selecao = Figura.SelectedItems.Item(1) frmPrincipal.Image1.Picture = LoadPicture(Selecao) End If End With End Sub Esse é a alteração. Private Sub cmdimagem_Click() Dim Figura As Office.FileDialog Set Figura = Application.FileDialog(msoFileDialogFilePicker) With Figura 'Aqui ponto antes dos comandos '----------------------------- .AllowMultiSelect = False .Title = "Selecione a imagem." '---------------- 'Fim da alteração .Filters.Add "imagem JPG", "*.jpg *" If Figura.Show = True Then Selecao = Figura.SelectedItems.Item(1) frmPrincipal.Image1.Picture = LoadPicture(Selecao) End If End With

Tem como manda um print ou a planilha para analisar?