Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Procv com comobox d...
 
Notifications
Clear all

Procv com comobox de escolha

 
Página 1 / 2
2024 - VBA & Macros
23 Posts
2 Usuários
0 Reactions
2,981 Visualizações
RSS
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Ola! Eu consigo usar o procv com opção de comobox para varios valores localizados?

Ex planilha onde digito o que busco, ele localiza os dados em outra planilha com informação/codigo igual mas conteudo diferente e me da opçao de qual quero marcar.

Eu tenho algo tipo, busco por 2323, na planilha tem 2323 345 na segunda, 2323 166 na quarta, sendo que no 2323 345 segunda vem 1 2 3 4, no 2323 166 vem 4 3 2 1.

Eu preciso que o proc v localize na planilha, quando houverem varios valores que ele liste o que tem nesses valores e me deixe selecionar em comobox qual eu quero.

Obrigado

 
Postado : 05/12/2013 8:34 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Poste seu arquivo modelo!!

Leia também:
viewtopic.php?f=10&t=3788&start=20
viewtopic.php?f=10&t=5798
viewtopic.php?f=20&t=623

Att

 
Postado : 05/12/2013 8:40 am
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Segue o modelo...

Obrigado.

Modelo.zip
 
Postado : 05/12/2013 10:32 am
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Bom dia!!

Poste seu arquivo modelo!!

Leia também:
viewtopic.php?f=10&t=3788&start=20
viewtopic.php?f=10&t=5798
viewtopic.php?f=20&t=623

Att

Não precisa ser nada complicado, é só eu poder escolher o correto que quero quando eles se repetirem ou tivem mais detalhes.

 
Postado : 05/12/2013 10:44 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Mas onde vai querer o resultado, na guia "INICIO" ?

Att

 
Postado : 05/12/2013 11:06 am
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Sim e ela joga para guia print.

 
Postado : 05/12/2013 11:17 am
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Se for possível, não imprimir os que tiverem 0 na aba print.

 
Postado : 05/12/2013 1:31 pm
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Bom dia!!

Mas onde vai querer o resultado, na guia "INICIO" ?

Att

Eu tentei usar lista com procv mas são muitas condicionais.

 
Postado : 10/12/2013 6:40 am
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Eu tentei usar o bdextrair mas não deu certo.

EXp.zip
 
Postado : 11/12/2013 8:32 am
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Eu tentei usar o bdextrair mas não deu certo.

Ele faz somente titulo e linha abaixo. Não tem como seguir digitando em mais linhas?

 
Postado : 11/12/2013 8:57 am
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Tentando com o bdextrair mas em ocorrencias que se repetem ele se perde e não retorna os dados corretos.

TestBDEXTRAIR.zip
 
Postado : 11/12/2013 11:32 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Gusmão, sinceramente, monte um modelo com o resultado que pretende, eu ainda tenho que me esforçar para entender sua dúvida.

Att :( :(

 
Postado : 11/12/2013 12:00 pm
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Boa tarde!!

Gusmão, sinceramente, monte um modelo com o resultado que pretende, eu ainda tenho que me esforçar para entender sua dúvida.

Att :( :(

Eu montei Alexandre, tá nesse último arquivo do bdextrair:
Eu consultei 158 02A, foi feita a busca na tabela ao lado e ele me retornou os 3 códigos com 8 caracteres abaixo...

158 02A

1

51923616 51873724 51851838
Só que se eu tiver por exempo 158 21A e 158 21A ZZZ aí o bdextrair se perde e não retorna nada. :)

 
Postado : 11/12/2013 12:32 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Não há 158 21A!!!
[url]M V O l D I T
158 22A 1 51923616 51873724 51851838
158 22A74Z 74Z 1 51923616 51873724 51958758
158 02A 1 51923616 51873724 51851838
158 04A 1 51923616 51873724 51851838
158 44A 1 51923616 51873724 51851838
158 36 1 55211321 51938686 51851839
158 76 1 55211321 51938686 51851839
158 236 1 55211321 51938686 51851839
158 276 1 55211321 51938686 51851839
[/url]
Tente assim e faça os testes com atenção!!!

Sub AleVBA_Filtrar()
    Range("L1").Select
    Range("L1:R500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A1:G2"), CopyToRange:=Range("A5:G5"), Unique:=False
End Sub

Obs: Os cabeçalhos devem ser iguais
Veja arquivo
http://www.sendspace.com/file/a60m5r
Att

 
Postado : 11/12/2013 12:55 pm
 Gusmao
(@gusmao)
Posts: 28
Eminent Member
Topic starter
 

Foi mal Alex, só chutei. Como que uso/chamo a função?

 
Postado : 11/12/2013 1:14 pm
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico