Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções

Esses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application) carregam um objeto ListBox e um Objeto Combobox na inicialização de Userform(formulário). 
Não deixe de ver nosso trabalho com Deslocamentos de dados (Células e Range)  - assinantes.
'- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub ComboBox1_Click()
 Plan1.Range("L65000").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
 Frame2.Caption = "Item Inserido: [ " & ComboBox1.Value & " ]"
End Sub

Private Sub CommandButton1_Click()
[b].ClearContents  'celulas nomeadas como [b]  ' nao deixe de ver nosso trabalho 'RENOMEANDO CÉLULAS'
MsgBox ("area deletada com sucesso!"), vbInformation, "Escola Saberexcel VBA Estudos"
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
 Plan1.Range("n65000").End(xlUp).Offset(1, 0).Value = ListBox1.Value
 Frame1.Caption = "Item Inserido: [ " & ListBox1.Value & " ]"
End Sub

'procedimento para posicionar o userform na folha de planilha
Private Sub UserForm_Activate()
      With UserForm1
            .Top = Application.Top + 322 '
            .Left = Application.Left + 200
      End With
End Sub

'veja que usei a propriedade Rowsource para carregar ambos objetos : combobox e listbox
Private Sub UserForm_Initialize()
Dim vLinha As String
 vLinha = Range("a1").End(xlDown).Address
 UserForm1.ListBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
 UserForm1.ComboBox1.RowSource = "Usf_carrega_combobox_listbox!a1:" & vLinha & ""
 ListBox1.ListIndex = 5
 ComboBox1.ListIndex = 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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

  Baixe o exemplo de planiha com os procedimentos e macros acima:
Excel planilha vba usf carrega combobox e listbox (87.16 KB)