Boa tarde galera, tenho vindo muito ao fórum por conseguirem me dar as respostas necessárias, muito obrigado.

Agora estou com 2 problemas,

-preencher o list box com os dados armazenados automaticamente (coluna A até M)

-preencher o list box, com um dado como código(na verdade é um botão de pesquisa, que via me listar tudo que tem a ver com o código digitado.)

1º O CÓDIGO QUE ESTOU USANDO PARA PREENCHER AUTOMATICAMENTE O LISTBOX.

Sub preencherlistbox()

Dim ult As Long
Dim linha

ult = Sheets("DataBase").Range("A100").End(x1up).Row

For linha = 2 To ult

    UserForm1.ListBox1.AddItem Formulario.Range("A" & linha)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Sheets("Database").Range("A:M" & linha)

Next

End Sub

2º O CODIGO PRA PESQUISAR NOS DADOS E EXIBIR NO LIST BOX.

Private Sub btn_1_Click()

Range("a2").Select

Dim linhaatual As Integer

If txt_codtouro <> "" Then

contador = 0

Do While ActiveCell.Value <> txt_codtouro And contador < 300
ActiveCell.Offset(1, 0).Select
contador = contador + 1

Loop

End If

If ActiveCell.Value = txt_codtouro.Value Then
    ListBox1.Clear
    linhaatual = ActiveCell.Row
    ListBox1.AddItem DataBase.Range("a" & linhaatual)
    ListBox1.List(ListBox1.ListCount - 1, 1) = Formulario.Range("b" & linhaatual)
Else
    MsgBox "registro não localizado", vbCritical, "Erro"
End If

End Sub