Boa tarde!!

Nossa base de dados não te ajuda em nada?
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Seria algo +/- assim

Private Sub UserForm_Initialize()
Dim x As Long
TextBox1.Text = "CBR0107-030-G"
For x = 2 To 19
    If Sheets("Plan1").Cells(x, 1) = TextBox1.Text Then TextBox2.Text = Sheets("Plan1").Cells(x, 2).Value
Next
End Sub

Show de bola Reinaldo,

eu to usando esse carregamento com banco de dados, consigo adaptar ao seu código?

Const nomeplanilhacadastro As String = "Fornecedores"

------------------
Option Explicit
Private wsCadastro As Worksheet
Private wbCadastro As Workbook

-----------------------------------------------
ate Sub DefinePlanilhaDados()
Dim abrirArquivo As Boolean
Dim wb As Workbook
Dim caminhoCompleto As String
Dim ARQUIVO_DADOS As String
Dim PASTA_DADOS As String

abrirArquivo = True

ARQUIVO_DADOS = Range("ARQUIVO_DADOS").Value
PASTA_DADOS = Range("PASTA_DADOS").Value

If ThisWorkbook.Name <> ARQUIVO_DADOS Then
'monta a string do caminho completo
If PASTA_DADOS = vbNullString Or PASTA_DADOS = "" Then
caminhoCompleto = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, vbNullString) & ARQUIVO_DADOS
Else
If Right(PASTA_DADOS, 1) = "" Then
caminhoCompleto = PASTA_DADOS & ARQUIVO_DADOS
Else
caminhoCompleto = PASTA_DADOS & "" & ARQUIVO_DADOS
End If
End If

'verifica se o arquivo não está aberto
For Each wb In Application.Workbooks
If wb.Name = ARQUIVO_DADOS Then
abrirArquivo = False
Exit For
End If
Next

'atribui o arquivo
If abrirArquivo Then
Set wbCadastro = Workbooks.Open(Filename:=caminhoCompleto, ReadOnly:=True)
Else
Set wbCadastro = Workbooks(ARQUIVO_DADOS)
End If
Else
Set wbCadastro = ThisWorkbook
End If

Set wsCadastro = wbCadastro.Worksheets(nomeplanilhacadastro)

'oculta o arquivo de dados
wbCadastro.Windows(1).Visible = False

End Sub

Pessoal, ainda tenho dúvidas pq não consigo adaptar o código a minha planilha uso com banco de dados.

to anexando aqui... se alguém puder ajudar... coloquei explicações no form.