Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
simplificar com loo...
 
Notifications
Clear all

simplificar com loop

 
Página 4 / 4
2024 - VBA & Macros
Post Recente por leandroxtr 8 anos atrás
50 Posts
4 Usuários
0 Reactions
5,231 Visualizações
RSS
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

Boa Tarde

Teria como simplificar a macro abaixo pois vou tera mais linhas iguais.

Teria como colocar um loop ai ?

mudara: Pro1.Value , Label_Pro1, Label_Pro1A ....

Private Sub Pro1_Enter()

Sheets("Estoque").Activate

Dim intervalo As Range
Dim codigo As Integer
Set intervalo = Plan19.Range("B6:W605")
            
codigo = Pro1.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro1.Caption = Pesquisa
Label_Pro1A.Caption = Pesquisa1

codigo = Pro2.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro2.Caption = Pesquisa
Label_Pro2A.Caption = Pesquisa1

codigo = Pro3.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro3.Caption = Pesquisa
Label_Pro3A.Caption = Pesquisa1

codigo = Pro4.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro4.Caption = Pesquisa
Label_Pro4A.Caption = Pesquisa1

codigo = Pro5.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro5.Caption = Pesquisa
Label_Pro5A.Caption = Pesquisa1

codigo = Pro6.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro6.Caption = Pesquisa
Label_Pro6A.Caption = Pesquisa1

codigo = Pro7.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro7.Caption = Pesquisa
Label_Pro7A.Caption = Pesquisa1

codigo = Pro8.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro8.Caption = Pesquisa
Label_Pro8A.Caption = Pesquisa1

codigo = Pro8.Value
  Pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
  Pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
Label_Pro8.Caption = Pesquisa
Label_Pro8A.Caption = Pesquisa1






End Sub
 
Postado : 27/01/2017 11:21 am
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

ta baguncado, mas veja que o caixa funciona tudo relacionado a colocar os produtos na carrinho.

somente os lootipos estou acertando os codigos como fiz em proyeina , energia etc

 
Postado : 31/01/2017 1:16 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Esse último arquivo, nada funcionou.
Falta as imagens nos caminhos corretos, falta o banco de dados em access dos clientes, pra selecionar a venda avulsa eu preciso selecionar produto e pra selecionar produto dá erro por causa das imagens.. .. ...
Aqui é uma planilha morta pra mim.

 
Postado : 31/01/2017 1:23 pm
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

vou mandar as imagens e o caminho chora nao

 
Postado : 31/01/2017 1:25 pm
 fazerbem
(@fazerbem)
Posts: 0
New Member
Topic starter
 

mandei ve ai se chegou

 
Postado : 31/01/2017 1:28 pm
 leandroxtr
(@leandroxtr)
Posts: 0
New Member
 

"Chora não" kkkkk esse cara!

 
Postado : 31/01/2017 2:20 pm
Página 4 / 4
Forum Jump:
  Tópico Anterior
Próximo Tópico