Alteração de ListBox de acordo com OptionButton

[Oli Garcia]

Olá, sou iniciante no VBA e gostaria de criar um formulário de preenchimento de uma linha para um Fluxo de Caixa Diário, contendo essas informações, o que eu gostaria de de fazer é: Alterar a "Fonte" da ListBox "Item", de acordo com o Option Button selecionado (Entrada e Saída), fazendo com que a ListBox mostrasse a lista de Entradas se o Button de Entradas for selecionado, a mesma coisa c om o ListBox de Saídas.
Em uma das imagens há um código que pega as células para aparecer na ListBox (de um dos tutoriais da Hashtag Treinamentos), se possível aproveitá-lo... Se alguém  puder me dar uma explicação de como posso fazer ou tiver uma maneira melhor de fazer eu agradeço! Abraços!

 

[Alyson Ronnan Martins]

Boa noite @Oli Garcia

Eu fiz um código que poderia ser usado por ti:

Private Sub opEntrada_Click()
PreencherCampos
End Sub

Private Sub opSaida_Click()
PreencherCampos
End Sub

Private Sub UserForm_Initialize()
'Carregar
PreencherCampos
End Sub

Public Sub PreencherCampos()
Dim uLinha As Long
With UserForm1
    If .opEntrada Then
        uLinha = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Row
        CB_item.RowSource = "Planilha1!A1:A" & uLinha
    ElseIf .opSaida Then
        uLinha = Sheets("Planilha1").Cells(Rows.Count, "B").End(xlUp).Row
        CB_item.RowSource = "Planilha1!B1:B" & uLinha
    End If
End With
End Sub

 

[Oli Garcia]

Obrigada!!! O código foi muito útil! Agradeço pela ajuda <3! @Alyson Ronnan Martins

Editado Dezembro 3, 2020 por Oli Garcia