Jump to content
Fórum Script Brasil
  • 0

Alteração de ListBox de acordo com OptionButton


Question

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!

 

Capturar.PNG

Capturar2.PNG

Capturar3.PNG

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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

 

image.png.dd1a792980f4b5b2e1042b15be054d9c.png

image.thumb.png.ae618d223b7efa8b2b32fd19b1511c8b.png

image.thumb.png.43e9f7c62945da246ce87bf34ac08fcd.png

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149193
    • Total Posts
      645448
×
×
  • Create New...