Usuário com melhor resposta
VBA UserForms - Clicar em um OptionButton e ele escrever um nome em uma celula fixa na planilha

Pergunta
-
Olá galera, estou iniciando no VBA e apareceram algumas duvidas...
Preciso clicar em um OptionButton, quando clicar preciso que ele "escreva" um nome em uma celula fixa.
Ex.:
Tenho três OptionButton: Confirmado - À Confirmar - Cancelado
Quando eu clicar no "Confirmado", tera que escrever na Ex(celula A1), que vai fazer um filtro avançado e exibir só as informações que estão confirmadas em um TextBox...
Desde ja agradeço.
- Movido Hezequias VasconcelosModerator segunda-feira, 30 de setembro de 2013 15:47 Questão relacionada ao produto VBA
Respostas
-
Use como base o exemplo abaixo:
Private Sub OptionButton1_Click() fncUpdateOptionButton End Sub Private Sub OptionButton2_Click() fncUpdateOptionButton End Sub Private Sub OptionButton3_Click() fncUpdateOptionButton End Sub Private Sub fncUpdateOptionButton() Dim str As String Select Case True Case Me.OptionButton1: str = "Confirmado" Case Me.OptionButton2: str = "A Confirmar" Case Me.OptionButton3: str = "Cancelado" End Select 'Ou seria str = Me.TextBox1 ? ThisWorkbook.Worksheets("Plan1").Range("A2") = str 'código do filtro avançado aqui End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 22:43
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 22:43
Todas as Respostas
-
-
Use como base o exemplo abaixo:
Private Sub OptionButton1_Click() fncUpdateOptionButton End Sub Private Sub OptionButton2_Click() fncUpdateOptionButton End Sub Private Sub OptionButton3_Click() fncUpdateOptionButton End Sub Private Sub fncUpdateOptionButton() Dim str As String Select Case True Case Me.OptionButton1: str = "Confirmado" Case Me.OptionButton2: str = "A Confirmar" Case Me.OptionButton3: str = "Cancelado" End Select 'Ou seria str = Me.TextBox1 ? ThisWorkbook.Worksheets("Plan1").Range("A2") = str 'código do filtro avançado aqui End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Sugerido como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 22:43
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 22:43