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