Pular para o conteúdo principal

Postagem em destaque [permanente]

Dê sua opinião sobre o nosso conteúdo!

Excel Macros (VBA) - Aula 21 - Criando um cadastro de produtos - Parte 5 (criando uma pesquisa / list box)

Vamos criar um campo de pesquisa inteligente, utilizando uma listbox e uma textbox.



Ajude o canal a crescer, se torne um apoiador: https://apoia.se/10209403199701553
Para encontrar mais aulas como esta, ou outras diferentes, acesse nosso índice clicando aqui!

Comentários

  1. Olá! Estou tendo o Erro 424 e nessa parte do código indica que FProduto = a variável do objeto ou a variável do bloco 'with' não foi definida..
    Sub Pesquisar()

    //FProduto.ListBox1.Clear

    Dim Posicao As Integer
    Dim LinhaList As Integer
    Dim Pesquisa As String
    Dim Celula As String

    Pesquisa = FProduto.TXTPesquisa.Text
    LinhaList = 0

    For i = 2 To 1000
    Celula = Planilha.Cells(i, 2).Value
    If Celula = "" Then
    GoTo Proximo
    End If

    If UCase(Left(Celula, Len(Pesquisa))) = UCase(Pesquisa) Then

    With FProduto.ListBox1
    .AddItem
    .List(LinhaList, 0) = Planilha1.Cells(i, 1)
    .List(LinhaList, 1) = Planilha1.Cells(i, 2)
    .List(LinhaList, 2) = Planilha1.Cells(i, 3)
    .List(LinhaList, 3) = Planilha1.Cells(i, 4)
    .List(LinhaList, 4) = Planilha1.Cells(i, 5)
    .List(LinhaList, 5) = Planilha1.Cells(i, 6)
    .List(LinhaList, 6) = Planilha1.Cells(i, 7)
    .List(LinhaList, 7) = Planilha1.Cells(i, 8)
    End With
    LinhaList = LinhaList + 1
    Proximo:
    End If
    Next i


    End Sub

    ResponderExcluir

Postar um comentário

Postagens mais visitadas