É uma dúvida simples porém pesquisei e não consegui achar algo específico para o meu caso. O código abaixo corresponde a pesquisa de dados em uma tabela, porém quando há mais de 1 valor correspondente, ele substitui o último valor encontrado. O que eu gostaria é que ele adicione uma linha conforme o exemplo abaixo:
**O exemplo não tem relação com o código
Tabela
AAA 111 222 333
AAA 111 555 777
Procurar: AAA
Resultado atualmente:
AAA 111 555 777(substituído por AAA 222 333)
O que eu gostaria:
AAA 111 222 333
AAA 111 555 777
Private Sub Pesquisar_Click()
Dim nApol As String
Dim nApolBanco As String
Dim nlin As Long
Dim Linha As Range
Application.ScreenUpdating = False
If Len(Me.TextBox1.Value) > 3 Then
nApol = TextBox1.Value + TextBox2.Value + TextBox3.Value
For nlin = 2 To Sheets("Banco de Dados").Cells(Rows.Count, "B").End(xlUp).Row
nApolBanco = Cells(nlin, "B")
If UCase(nApolBanco) Like nApol Then
MsgBox ("Found")
ListBox1.ColumnCount = 14
ListBox1.RowSource = Range(Cells(nlin, "A"), Cells(nlin, "T")).Address
End If
Next
Else
MsgBox ("Não encontrado")
End If
End Sub