Saberexcel - o site de quem precisa aprender Microsoft Excel VBA
Esse exemplo de procedimento do Aplicativo Microsoft Excel VBA(visual Basic Application), carrega uma combobox e busca dados em outra folha de planilha, observem que estamos referenciando a folha de planilha desejada para buscar os dados, eu sempre uso a referencia como a folha de código da folha de planilha, usando a folha de código de código da folha de planilha, caso o usuário mude o nome da folha de planilha, não ocorrerá erros no Visual Baisc. Espero que gostem. (O exemplo de planilha esta disposto para downlad na área livre para Registrados.
Prezado Fabiano, abrir o formulário em outra folha de planilha e buscar os dados desejados em outra folha de planilha você tem que referenciar,
como no procedimento abaixo.
Private Sub ComboBox1_Click()
Dim i, vLinha As Long
vLinha = 2
Do While Saber1.Range("A" & vLinha).Value <> ""
If frmAgenda.ComboBox1.Value = Saber1.Range("B" & vLinha).Value Then
frmAgenda.TextBox1.Text = Saber1.Range("A" & vLinha).Value
frmAgenda.TextBox2.Text = Saber1.Range("B" & vLinha).Value
frmAgenda.TextBox3.Text = Saber1.Range("C" & vLinha).Value
frmAgenda.TextBox4.Text = Saber1.Range("D" & vLinha).Value
frmAgenda.TextBox5.Text = Saber1.Range("E" & vLinha).Value
frmAgenda.TextBox6.Text = Saber1.Range("F" & vLinha).Value
frmAgenda.TextBox7.Text = Saber1.Range("G" & vLinha).Value
frmAgenda.TextBox8.Text = Saber1.Range("H" & vLinha).Value
frmAgenda.TextBox9.Text = Saber1.Range("I" & vLinha).Value
frmAgenda.TextBox10.Text = Saber1.Range("J" & vLinha).Value
Exit Sub
Else
vLinha = vLinha + 1
End If
Loop
vLinha = vLinha - 1
End Sub
Private Sub UserForm_Activate()
Dim i, vLinha As Long
vLinha = 2
Do While Saber1.Range("A" & vLinha).Value <> ""
frmAgenda.ComboBox1.AddItem (Saber1.Range("B" & vLinha).Value)
vLinha = vLinha + 1
Loop
vLinha = vLinha - 1
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Acesso Livre - Registrados (REGISTRE-SE!) 
Baixe o exemplo de planilha contendo os procedimentos acima
Excel planilha vba combobox agenda busca dados (478.01 KB)
