none
VBA UserForms - Clicar em um OptionButton e ele escrever um nome em uma celula fixa na planilha RRS feed

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

    sexta-feira, 27 de setembro de 2013 17:13

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

    quarta-feira, 2 de outubro de 2013 01:33
    Moderador

Todas as Respostas

  • Olá, boa tarde.

    Estou transferindo a sua dúvida para o fórum especializado em VBA, onde conseguirá apoio mais especializado.


    Obrigado por contactar o fórum Microsoft Technet!

    segunda-feira, 30 de setembro de 2013 15:46
    Moderador
  • 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

    quarta-feira, 2 de outubro de 2013 01:33
    Moderador