|
 
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
|