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

Problemas com Listagem

 
2024 - VBA & Macros
Post Recente por Alminen 11 anos atrás
2 Posts
2 Usuários
0 Reactions
952 Visualizações
RSS
 ueleodoro
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Boa Tarde,

Tenho um sistema de lançamento de produtos. Os lançamentos respeitam um cod. matriz no caso Chamo de "Seq. Kit".

Toda vez que aciono "Seq. Kit" é listados todos os produtos em um listbox lateral.

Como ex. temos dois "Seq. Kit" o numero 1 e o 51. O 51 tem muitos lançamentos e o 1 tem apenas um lançamento. Porém ao acionar "Seq. Kit" numero 1 é carregado vários outros lançamentos.

Alguém sabe o que pode estar errado?

Segue em anexo o modelo.

Modelo 1.rar
 
Postado : 03/07/2013 11:13 am
 Alminen
(@alminen)
Posts: 77
Trusted Member
 

No cbpesquisar_Click():

Do Until Sheets("ADM FICHAS MERCADORIA").Cells(Lin, 2) = ""
    If Sheets("ADM FICHAS MERCADORIA").Cells(Lin, 2) Like "*" & Me.cbsequencia & "*" Then _

Seu problema está na segunda linha, o 'Like "*" & Me.cbsequencia & "*" Then _'.

O Se buscará na célula quaisquer caracteres antes e depois do critério definido - número da sequência. Sendo o critério igual a 1, ele vai buscar em todas as linhas, células que contenham 1! Por exemplo: 11, 51, 39301 49494949541 (números fictícios). Sugiro colocar o critério como absoluto (Like Me.cbsequencia)

 
Postado : 03/07/2013 2:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico