Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha vba combobox agenda busca dados

Excel planilha vba combobox agenda busca dados

E-mail Imprimir PDF

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)

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

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje219
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19725
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33454
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456283
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA