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.
---------------------------------------
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
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.
---------------------------------------
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
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
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.
---------------------------------------