Olá segue o código
Private Sub textbox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Listbox.RowSource = ""
pesquisa
Me.texbox = Empty
End If
End Sub
Sub pesquisa()
Dim n%
n = 1
Range("a2").Select
Do While ActiveCell <> ""
If InStr(1, ActiveCell, Barra) > 0 Then
'Endereco = ActiveCell.Address
Range("h" & n).Offset(1, 0).Value = ActiveCell
Range("h" & n).Offset(1, 1).Value = ActiveCell.Offset(0, 1)
Range("h" & n).Offset(1, 2).Value = ActiveCell.Offset(0, 2)
Range("h" & n).Offset(1, 3).Value = ActiveCell.Offset(0, 3)
Range("h" & n).Offset(1, 4).Value = ActiveCell.Offset(0, 4)
n = n + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
If n > 1 Then
Listbox.RowSource = "h2:l" & n
Else
Listbox.RowSource = ""
MsgBox "Nenhum registro encontrado", vbInformation, "Aviso"
End If
End Sub
Private Sub UserForm_Initialize()
Me.textbox.SetFocus
With Sheets("Plan1").UsedRange
Lista.RowSource = "H2:L100"
End Sub
Eu queria saber como, faz para esse código fazer uma lista no listbox em cada dados que eu vou pesquisando ele vai adicionando "h2:l" da planilha e no listbox, sem apagar a primeira linha do "h2" e o cursor não voltar depois que
apagar os dados do textbox.
