locked
Ativar Option Button com Command Button

    Question

  • Olá galera, eu estou com uma dúvida quanto ao comando option button.

    Eu criei varias options buttons na minha planilha, e queria que quando eu ativasse por exemplo a option button1, não acontecer nada então eu clicarei em OK na mesma User Form e ira aparecer outra UserForm, e nessa User form eu queria que quando eu clicasse no Botão OK (command button) se estiver ativado o option button1, aparecer a UserForm JUNHO, quando estiver ativado o option button 2, aparecer a UserForm JULHO e assim por adiante.

     

        If OptionButton1.Value = True Then
        JUNHO.Show
        ElseIf OptionButton2.Value = True Then
        JULHO.Show
        End If

     

    Esse codigo ai não da certo, não sei mais o que eu faço..... =(

     

    Valeu galera desde ja muito obrigado pela atenção

     

    Abraços.

    Thursday, September 18, 2008 12:20 AM

Answers

  • Olá..

    Creio que seja pelo fato de você não especificar o nome do fórmulário..

     

     Antes do Option Button eu faço referência de qual formulário ele pertence.. 

    Code Snippet
        If UserForm1.OptionButton1.Value = True Then
            Junho.Show
            Exit Sub
        End If
        If UserForm1.OptionButton2.Value = True Then
            Julho.Show
            Exit Sub
        End If

     

     

    Qualquer duvida post denovo..Se der certo não se esqueça de marcar a resposta como respondida..

    Até..

    Tuesday, September 23, 2008 11:57 AM
  • Sim..Na hora que o form for inicializar o label1 receberá o conteúdo da célula a1 da plan1...

     

    Code Snippet

    Private Sub UserForm_Initialize()
        Me.Label1.Caption = Sheets("Plan1").Range("A1").Value
    End Sub

     

     

    Até...

    Não se esqueça de marcar como respondida...

    Quando precisar é só postar...

    Tuesday, September 23, 2008 5:09 PM
  • Olá...

    Quando for fazer uma pergunta de um outro assunto você deve criar um post novo..

     

     

    Code Snippet

    Private Sub CommandButton1_Click()
        Dim Endereco$, Rng As Range
        Set col = Plan1.Columns(1)
        Set Rng = col.Find(TextBox1, , , True)
        If Not Rng Is Nothing Then
            Endereco = Rng.Address
        Else
            Label1.Caption = ""
            Label2.Caption = ""
            Label3.Caption = ""
            Label4.Caption = ""
            MsgBox "Matrícula não encontrada"
            Exit Sub
        End If
        Label1.Caption = Range(Endereco).Offset(0, 1).Value
        Label2.Caption = Range(Endereco).Offset(0, 2).Value
        Label3.Caption = Range(Endereco).Offset(0, 3).Value
        Label4.Caption = Range(Endereco).Offset(0, 4).Value
       
    End Sub

     

     

    Não se esqueça de marcar como respondida..

    Até..

    Thursday, September 25, 2008 4:52 PM

All replies

  • Meu caro, testei o teu código e funciona perfeitamente.

    Peço que verifique se vc alterou a propriedade Name dos UserForms Junho e Julho. O que deve ter acontecido é a alteração apenas da propriedade Caption.

    [ ]s

     

    Thursday, September 18, 2008 10:37 AM
  •  

    Mas Adilson ele funciona quando eu tenho um Command Button na mesma Userform que o Option Button, agora por exemplo.

     

    Na Userform 1.. eu tenho o Option Button.. Junho... Julho... Agosto e Setembro

     

    Na User form 2 eu tenho um Command Button..

     

    Na User form 3 eu tenho outro Command Button..

     

    Eu queria que quando eu clicasse o command button da Userform 3, e se o Option Button Junho estiver ativado .. ativar o código do option button Junho.... e assim por adiante.

     

    Mais de todo jeito muitísso obrigado pela informação.

     

    Sds

    Sunday, September 21, 2008 10:43 AM
  • Olá..

    Creio que seja pelo fato de você não especificar o nome do fórmulário..

     

     Antes do Option Button eu faço referência de qual formulário ele pertence.. 

    Code Snippet
        If UserForm1.OptionButton1.Value = True Then
            Junho.Show
            Exit Sub
        End If
        If UserForm1.OptionButton2.Value = True Then
            Julho.Show
            Exit Sub
        End If

     

     

    Qualquer duvida post denovo..Se der certo não se esqueça de marcar a resposta como respondida..

    Até..

    Tuesday, September 23, 2008 11:57 AM
  • Brigadão pela resposta deu certo, realmente eu estava esquecendo de especificar o formulário.

     

    Agora mais uma dúvida, existe algum código que eu consigo pegar algum valor de uma célula e colocar em um Label?

     

    Por exemplo eu tenho na célula A1 da Plan1 ... Macro.

    e queria fazer esse nome aparecer em um Label, e atualizar toda vez q a Userform for exibida.

     

     

    Grato..

    Tuesday, September 23, 2008 4:08 PM
  • Sim..Na hora que o form for inicializar o label1 receberá o conteúdo da célula a1 da plan1...

     

    Code Snippet

    Private Sub UserForm_Initialize()
        Me.Label1.Caption = Sheets("Plan1").Range("A1").Value
    End Sub

     

     

    Até...

    Não se esqueça de marcar como respondida...

    Quando precisar é só postar...

    Tuesday, September 23, 2008 5:09 PM
  • Brigado mesmo pela atenção ai....

     

    O código funcionou perfeitamente..

     

    Abraço

     

    Tuesday, September 23, 2008 7:06 PM
  •  

    E qual é o código para enviar um texto de um textbox para uma célula de uma planilha no excel.

     

    Exemplo.:

     

    No textbox: Macro

     

    Mandar isso para a célula A1 da Plan1.

    Tuesday, September 23, 2008 7:39 PM
  • Olá..

    O processo é o mesmo só que o inverso..

    Inclua um botão e um textbox no seu form ..

    Code Snippet

    Private Sub CommandButton1_Click()
        Sheets("Plan1").Range("a1").Value = TextBox1.Value
    End Sub

     

     

     

    Até...

    Não se esqueça de marcar como respondida...

    Quando precisar é só postar...


     

    Tuesday, September 23, 2008 8:18 PM
  • Galera da um help ai..

    Eu tenho em um user form um textbox e vários labels
    e queria que quando eu digitasse um valor nesse textbox, e clicasse no botão (command  button)
    aparecesse nos labels os valores pertinentes ao numero que eu digitei no textbox.

    Ex.:

    Na na célula A2, eu tenho o valor 562
    Na célula c2 eu tenho o seguinte texto... Supervisor de Produção
    Na célula d2 eu tenho a seguinte data... 20/3/03/2007
    Na célula e2 eu tenho Administrativo...

    Obs.: tudo isso na Plan1

    E queria como dito acima, que quando eu digitasse no textbox o valor 562..(da célula A2)
    e clicasse no command button ...aparecesse nos label1 o texto Supervisor de Produção
    no label 2 a data (20/03/2007)
    e no label3 Administrativo..
    Ou seja ele iria procurar o valor correspondente ao numero que eu digitei.

    EU fiz o seguinte código

    Private Sub CommandButton1_Click()
    For i = 2 To 100
    If TextBox1.Value = Plan1.Cells(i, 1) Then
    Label1.Caption = Sheets("plan1").Range("b2").Value
    End If
    Next i
    Exit Sub
    End Sub

    Ta ai a planilha

    Eu fiz no Bloco de Notas mas espero que vocês tenham entendido.

    em cima as letras ( A - B - C - D - E - F ) sao as colunas

    e os numeros na lateral (1 - 2 - 3 - 4 - 5 - 6 - 7 - 8)...sao as linhas
       
    A     B               C                         D                                  E                                F
    1 Matricula     Nome                  Cargo                      Data de Admissão             Regime

    2    562           João        Supervisor de Produção             20/3/2007                     TURNO
    3    561           Mario             Tecnico Analista                 22/2/2007                  Administrativo
    4    562        Henrique      Supervisor de Produção            23/5/2007                   TURNO
    5    563          Pedro        Supervisor de Produção            24/7/2007               Administrativo
    6    564         Mariana       Auxiliar Administrativo             25/3/2007                Administrativo
    7    565        Graziela                  Secretária                    26/1/2007                   Administrativo
    8    566          Jonas         Supervisor de Produção          27/10/2007                     TURNO

     


    Mas não da certo..

    Valeu ai galera

    Brigadão

     

    Thursday, September 25, 2008 12:58 PM
  • Olá...

    Quando for fazer uma pergunta de um outro assunto você deve criar um post novo..

     

     

    Code Snippet

    Private Sub CommandButton1_Click()
        Dim Endereco$, Rng As Range
        Set col = Plan1.Columns(1)
        Set Rng = col.Find(TextBox1, , , True)
        If Not Rng Is Nothing Then
            Endereco = Rng.Address
        Else
            Label1.Caption = ""
            Label2.Caption = ""
            Label3.Caption = ""
            Label4.Caption = ""
            MsgBox "Matrícula não encontrada"
            Exit Sub
        End If
        Label1.Caption = Range(Endereco).Offset(0, 1).Value
        Label2.Caption = Range(Endereco).Offset(0, 2).Value
        Label3.Caption = Range(Endereco).Offset(0, 3).Value
        Label4.Caption = Range(Endereco).Offset(0, 4).Value
       
    End Sub

     

     

    Não se esqueça de marcar como respondida..

    Até..

    Thursday, September 25, 2008 4:52 PM
  • Muito obrigado pela ajuda..

     

    e me desculpe... pois sou novo aqui ainda..

     

    mais agora ja estou sabendo.. toda vez q for um novo assunto eu vou abrir um novo post.

     

    Abraço

    Thursday, September 25, 2008 7:00 PM
  •  Alvinhoo wrote:

    Olá galera, eu estou com uma dúvida quanto ao comando option button.

    Eu criei varias options buttons na minha planilha, e queria que quando eu ativasse por exemplo a option button1, não acontecer nada então eu clicarei em OK na mesma User Form e ira aparecer outra UserForm, e nessa User form eu queria que quando eu clicasse no Botão OK (command button) se estiver ativado o option button1, aparecer a UserForm JUNHO, quando estiver ativado o option button 2, aparecer a UserForm JULHO e assim por adiante.

     

        If OptionButton1.Value = True Then
        JUNHO.Show
        ElseIf OptionButton2.Value = True Then
        JULHO.Show
        End If

     

    Esse codigo ai não da certo, não sei mais o que eu faço..... =(

     

    Valeu galera desde ja muito obrigado pela atenção

     

    Abraços.

    Wednesday, December 24, 2008 8:10 PM
  •  Alvinhoo wrote:

    Olá galera, eu estou com uma dúvida quanto ao comando option button.

    Eu criei varias options buttons na minha planilha, e queria que quando eu ativasse por exemplo a option button1, não acontecer nada então eu clicarei em OK na mesma User Form e ira aparecer outra UserForm, e nessa User form eu queria que quando eu clicasse no Botão OK (command button) se estiver ativado o option button1, aparecer a UserForm JUNHO, quando estiver ativado o option button 2, aparecer a UserForm JULHO e assim por adiante.

     

        If OptionButton1.Value = True Then
        JUNHO.Show
        ElseIf OptionButton2.Value = True Then
        JULHO.Show
        End If

     

    Esse codigo ai não da certo, não sei mais o que eu faço..... =(

     

    Valeu galera desde ja muito obrigado pela atenção

     

    Abraços.

    Wednesday, December 24, 2008 8:13 PM
  • Olá! Pessoal
     
    Sou novo aqui! embora seja velho na idade. Depois de dois infarto e um derrame, resolvi estudar um pouco VBA EXCEL.
    Estou precisando de ajuda.

    Queria que o "OptionButton1" em conjunto com a Range(Xnº) através de um CommandButton1, colocasse uma informação
    na planilha. Já desenvolvi uma linha de comando através do recurso:

    "If Ob"texto" Then Cells(Rx, Cx) = "Text"
    Deu certo, mas eu gostaria de uma outra opção.

    Alguem pode me ajudar.


    ttiqueres
    Wednesday, December 24, 2008 8:23 PM