Excel planilha vba combobox agenda busca dados

Sáb, 13 de Agosto de 2011 12:07 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa aprender Microsoft Excel VBA

E
sse 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
          vLinhavLinha + 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)

Tags:
Última atualização em Sáb, 13 de Agosto de 2011 12:53