Atualização Cadastral usando Forms dentro de FOR

[msottomaior]

Boa Noite Pessoal, 

 

Estou precisando de uma ajuda.
Estou criando uma tabela que vai procurar em uma aba de cadastro o sexo de um usuário para preencher.

Iniciei fazendo um vlookup para pegar essa informação, mas se o nome não tiver na aba cadastro queria que abrisse um campo onde eu pudesse atualizar a base de dados.

Pensei em fazer o vlookup dentro de um For que quando não achasse o nome abriria um forms para preenchimento, mas nesse forms teria que aparecer o nome do usuário que não esta cadastrado e o campo para definir se é "M" ou 'F". Com o preenchimento do forms ele deveria colocar essa informação na aba de cadastro

 

 

[Alyson Ronnan Martins]

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?

[msottomaior]

Bom dia, @Alyson Ronnan Martins .

Então, eu não sei por onde começar... consegue me ajudar?  To começando agora no VBA.

Pensei na estrutura, mas não sei como realizar.

[Alyson Ronnan Martins]

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.

Editado Outubro 11, 2019 por Alyson Ronnan Martins
Correção de texto

[msottomaior]

Base de Cadastro de Usuario onde tema informação do Sexo

Onde ele vai preencher a informação.


Se por um acaso ele não achar o cadastro da pessoa para pegar o sexo dela e preencher, o que eu queria era que aparecesse algum box para eu definir, depois de definido ele preencher essa informação no Cadastro_Usuario

 

[Alyson Ronnan Martins]

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?

[msottomaior]

Loop (todas a linhas de Info_Investidor)
   Em cada linha olhar se o nome existe na  Cadastro_Usuario e se em o Sexo cadastrado 
   Se sim 
      atualizar a coluna G (Info_Ivestidor)
   Se 
      exibir formulário que vai preencher o  range da coluna G e atualizar a Cadastro_Usuario 
   Fim do Se
Fim do Loop

[Alyson Ronnan Martins]

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

Editado Outubro 14, 2019 por Alyson Ronnan Martins
Erro no código

[msottomaior]

For lngContador = 2 To lngUltimaLinhaInfoInvestidor
    
    shtInfoInvestidor.Cells(lngContador, 7).FormulaR1C1 = "=VLOOKUP(RC[-5],Cadastro_Usuário!C[-5]:C[6],12,0)"
        If shtInfoInvestidor.Cells(lngContador, 7) = "0" Then
            strInputBox = InputBox(Cells(lngContador, 1), "Defina o Sexo do Cliente")
            shtInfoInvestidor.Cells(lngContador, 7) = strInputBox
            
        
       End If
        
             
Next lngContador

Eu consegui com esse código preencher corretamente na aba Info.Investidor, mas não sei como fazer para atualizar a base de cadastro de Usuario. Eu entendo que deveria ter alguma forma de encontrar na aba Cadastro_Usuario o rangeshtInfoInvestidor.Cells(lngContador,2) quando encontrasse ele colaria o strInputBox na coluna de sexo.

 

[Alyson Ronnan Martins]

Não entendi.

[msottomaior]

For lngContador = 2 To lngUltimaLinhaInfoInvestidor
    
    shtInfoInvestidor.Cells(lngContador, 7).FormulaR1C1 = "=VLOOKUP(RC[-5],Cadastro_Usuário!C[-5]:C[6],12,0)"
        If shtInfoInvestidor.Cells(lngContador, 7) = "0" Then
            strInputBox = InputBox(Cells(lngContador, 1), "Defina o Sexo do Cliente")
            shtInfoInvestidor.Cells(lngContador, 7) = strInputBox
            
Agora eu queria que ele preenchesse essa informação de Sexo na planilha Cadastro_Usuario, mas para isso ele teria que usar o email da pessoa que esta no Range:  cells((lngContador, 2) , achar o correspondente na planilha Cadastro_Usuario e preencher na coluna M.
               
           
       End If
        
             
Next lngContador

Entendeu?

[msottomaior]

Consegui fazendo 2 For, um dentro do Outro.

@Alyson Ronnan Martins Obrigada pela ajuda