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

Pesquisar Produtos com Numeração de Variaveis diferentes

 
2024 - VBA & Macros
Post Recente por ueleodoro 6 anos atrás
6 Posts
3 Usuários
0 Reactions
1,825 Visualizações
RSS
 ueleodoro
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Boa Noite,

Estou precisando de ajuda para um projeto. Tenho uma Tabela com Produtos que são importados de uma base on-line para o excel. Presciso pesquisar pelo Cod. do Produto e retornar uma descrição do produto.

Porém estou com uma dificuldade. A coluna de códigos de produtos possui códigos ex: 198299, 09287, (vazio) e 010055R ou 06979F.

Eu consegui buscar utilizando Do Until e criei um modo de pular a linha quando vazio. Mas quando chega na linha com códigos com letras, o sistema da erros.
Estou utilizando a Declaração as Single.

Preciso entender como posso fazer essa busca por Do until ou outra ferramenta mesmo com essas variações de códigos.

Segue em anexo um modelo Testes.

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 05/09/2018 7:24 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

ueleodoro,

Bom dia!

Anexe seu arquivo, compactado com .ZIP, pois ficará mais fácil de que todos possam ajudar.

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 : 06/09/2018 4:53 am
 ueleodoro
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Bom Dia Wagner.

O arquivo esta com 600 k e a plataforma recusou anexar.
Segue um link disponibilizando a planilha direto no Google Driver: https://drive.google.com/file/d/1iCedt3 ... sp=sharing

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 06/09/2018 5:16 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Infelizmente, aqui no meu trabalho, os sites de compartilhamento de arquivos são bloqueados.

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 : 06/09/2018 5:37 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Olá bom dia!

Acredito que o seu objetivo é retornar a descrição do produto em [B2]. Sendo assim, altere seu código atual por esse: 

Private Sub cmbOk_Click()
Dim ul As Long
Dim mystring As String
Application.ScreenUpdating = False
ul = Planilha1.Range("A" & Rows.Count).End(xlUp).Row
mystring = Me.txtcod

For i = 5 To ul
    If Planilha1.Range("A" & i).Text Like "*" & mystring & "*" Then
        [B2] = Planilha1.Range("B" & i).Value
        Application.ScreenUpdating = True
        Unload Me: Exit Sub
    End If
Next i

MsgBox "Produto Não Encontrado!", vbExclamation, "Não Encontrado"
Application.ScreenUpdating = True
End Sub

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 06/09/2018 6:19 am
 ueleodoro
(@ueleodoro)
Posts: 133
Estimable Member
Topic starter
 

Código Perfeito, bem mais ágil que o qual venho utilizando. Obrigado.

Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------

 
Postado : 06/09/2018 7:16 am
Forum Jump:
  Tópico Anterior
Próximo Tópico