Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Vlookup
 
Notifications
Clear all

Vlookup

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
8 Posts
2 Usuários
0 Reactions
1,777 Visualizações
RSS
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

No código não estou conseguindo realizar o vlookup, tive que salvar o valor na guia Doc_Lcto.
Queria que quando digitar o numero do documento, ela faz o calculo automatico de acetona e alcool da guia Info Cadastro.

Private Sub CodProd_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Long
Dim pesquisa

Dim mensagem
codigo = CodProd.Text
Sheets("Doc_Lcto").Select
Set intervalo = Range("A2:g1000")
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesquisa2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)[quote][/quote]
pesquisa3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
pesquisa4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False)
'QtdeAlc.Caption = Application.WorksheetFunction.VLookup(CodProd.Text, intervalo, 7, False)
Cod_Prod.Text = pesquisa
DescProd.Caption = pesquisa1
LoteProd.Caption = pesquisa2
QtdeAcet.Caption = pesquisa3
QtdeAcet.Caption = Format(QtdeAcet.Caption, "0.00")
QtdeAlc.Caption = pesquisa4
QtdeAlc.Caption = Format(QtdeAlc.Caption, "0.00")
Exit Sub

trataErro:
   texto = "Código não localizado!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)
   
'End Sub
End Sub
Acompanhamento de Insumos.rar
 
Postado : 02/12/2017 11:10 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

robertonl,

Boa tarde!

Não entendi...

O que você quer fazer?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/12/2017 2:36 pm
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

O que realmente eu preciso, é quando digitar o numero do documento, ele faça calcule o valor de acetona e alcool do produto.
as porcentagens usada estão em uma guia e o numero do documento com a quantidade está em outra guia.

 
Postado : 02/12/2017 3:37 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Ok. Entendido, mas...

1 - Digitar o número do documento aonde? Na planilha? No formulário? Se na planilha, em que célula? Se no formulário, qual o nome do formulário? Qual o nome do campo onde será digitado esse número do documento? Qual é o evento que dispara o código que calcula o valor da acetona e do álcool?

2 - As porcentagens estão em qual guia? Qual o nome da Guia?

3 - o número do documento está em qual guia? Qual o nome da guia?

4 - Qual a relação entre essas guias? Não entendi o que uma tem a ver com a outra...

5 - Explique todo o processo com detalhes (nos mínimos detalhes, como se faz). Por exemplo: carrego o formulário TAL e digito o número TAL no campo TAL e saio desse campo com TAB. Nesse momento, o código do evento TAL do campo TAL faz a busca na guia TAL das informações TAIS e TAIS e TAIS e também na guia TAL das informações TAIS, TAIS e TAIS, calculando o valor da Acetona e do Álcool e inserindo esses valores nos campos TAL e TAL. Explique se o código faz o cálculo ou apenas pega o que já está calculado na guia e leva pros campos.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/12/2017 3:50 pm
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Ao digitar o Código do Documento no formulário Movimento( O numero do documento encontra-se abaixo da Label Codigo Dcto).
As informações serão puxadas da guia da planilha Doc_Lcto.
Na guia Doc_Lcto encontra-se as seguintes informações (Nº.DOCT - COD.PROD - DESCRIÇÃO PRODUTO - LOTE PRODUTO - QTDE PROG.)
Os valores de acetona e de alcool preciso que ela faça o calculo da quantidade que se encontra na guia Doc_Lcto e multiplique pelo percentual que se encontra na guia InfoCadastro.

 
Postado : 03/12/2017 5:32 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

robertonl,

É amigo... infelizmente, tentei de ajudar mas não dá! Com a sua última explicação eu consegui carregar o formulário Movimento que você se refere, digitei o Código do Documento (que na verdade, na aba Doc_Lcto está na coluna A e se chama Nº DOCTO e no formulário se chama CÓDIGO DCTO), e todos os dados da aba Doc_Lcto foram carregados normalmente para o formulário Movimento.

Daí, fiquei agora sem saber aonde é que tem erro... pra mim, ta tudo normal e funcionando muito bem! O que é para fazer? O que está errado?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 04/12/2017 4:06 pm
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

O que estou tentando fazer é quando digitar o numero do documento ele multiplique o valor real pelas porcentagens de acetona e alcool.
Exemplo, pegaria os 5000 e multiplicaria pelas porcentagens de alcool e acetona e retornaria o valor em acetona e alcool.

 
Postado : 06/12/2017 1:58 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

robertonl,

Bom dia!

Ufa!! Acho que finalmente entendi!

Se você tivesse dito, desde o começo, que queria que o cálculo fosse efetuado automaticamente e o resultado inserido no formulário Movimento, citando que campos e abas específicas que se deveria trabalhar, já teria feito a muito tempo.

Veja se é assim.

Acompanhamento de Insumos.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/12/2017 8:42 am
Forum Jump:
  Tópico Anterior
Próximo Tópico