Estou tentando adicionar uma linha inteira em um listbox, baseado no resultado de uma pesquisa .Find
, a ideia é ao achar o valor que bate com o termo pesquisado ele adiciona cada linha que contenha esse valor na listbox.
Tentei alguma maneiras que não deram certo.
Private Sub CommandButton2_Click()
Dim a As Range
Dim pesquisa As Range
Dim valor As String
Dim resultado As Range
Dim resultadoAnterior As Range
Dim intervalo As Range
Dim linha As Range
Set intervalo = Range("B1:B100")
With frmPesquisa
valor = Me.TextBox1.Value + "*"
Set resultado = intervalo.Find(valor, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns)
Do
Set resultadoAnterior = resultado
Set resultado = intervalo.Find(valor, After:=resultadoAnterior, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns)
linha = resultadoAnterior.EntireRow
ListBox1.AddItem (linha)
Loop Until resultado.Row < resultadoAnterior.Row
End With
End Sub