Ir para conteúdo
Fórum Script Brasil

msottomaior

Membros
  • Total de itens

    9
  • Registro em

  • Última visita

Sobre msottomaior

msottomaior's Achievements

0

Reputação

  1. msottomaior

    Tabela Dinâmica

    Boa Noite pessoal, Queria ajuda para saber como eu monto uma tabela dinamica. Porem o Range que vai ser selecionado pode variar, por isso queria usar Range(Cells(1, 1), Cells(lngUltimaLinhaInfoInvestidor, lngUltimaColunaInfoInvestidor)) Como encaixo esse range macro de Tabela Dinamica?
  2. Boa Tarde Pessoal, To precisando de uma ajuda.. To querendo preencher em uma sheet (shtResumo) algumas funções dado os dados de outra sheet (shtInfoInvestidor), mas não estou conseguindo realizar. Estou querendo colocar as formulas (Soma, Média, Desvio Padrão, Identificar qual o maior valor, e qual a última data) Segue o que comecei a fazer e o erro que tomei. Os dados devem ir para esses Campos Alguém consegue me ajudar?
  3. Consegui fazendo 2 For, um dentro do Outro. @Alyson Ronnan Martins Obrigada pela ajuda
  4. 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?
  5. 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.
  6. 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
  7. 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
  8. 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.
  9. 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
×
×
  • Criar Novo...