Excel planilha vba usf combobox multiplos por selecao

Dom, 20 de Fevereiro de 2011 14:48 Expedito Marcondes
Imprimir


Esses procedimentos do aplicativo microsoft Excel VBA(Visual Basic Application), contém options que preenche os dados da propriedade rowsource do objeto ComboBox, com critério de seleção options.


Private Sub ComboBox1_Click()
'Range("A65536").Offset(1, 0).End(xlUp).Value = ComboBox1.Value
Range("A407").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item inserido..: " & ComboBox1.Value
frm_viagem.Caption = Left(ComboBox1.Value, 5)
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub OptionButton1_Click()
  Alimenta_Combo 1
End Sub

Private Sub OptionButton2_Click()
  Alimenta_Combo 2
End Sub

Private Sub OptionButton3_Click()
  Alimenta_Combo 3
End Sub

Private Sub OptionButton4_Click()
  Alimenta_Combo 4
End Sub

Sub Alimenta_Combo
(vColuna As Integer)
Dim I As Long

  Me.ComboBox1.Clear
  With Sheets("Banco_Dados")
    For I = 2 To .Cells(65536, vColuna).End(xlUp).Row
      Me.ComboBox1 = .Cells(I, vColuna)
      If Me.ComboBox1.ListIndex = -1 Then
        Me.ComboBox1.AddItem .Cells(I, vColuna)
      End If
    Next I
  End With
  Me.ComboBox1.ListIndex = -1
End Sub



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



 Baixe o exemplo de planilha contendo os procedimentos acima
Excel planilha vba usf combobox carregando multidados (28.73)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Tags:
Última atualização em Ter, 23 de Agosto de 2011 09:48