locked
Duvida Salvar Informações no excel com option button RRS feed

  • Pergunta

  •  

    Bom dia pessoal,

     

    to querendo fazer  o seguinte no meu formulario em vba

    Quando o usuario clicar em salvar , os campos OptionButton devem preencher uma celula do excel com a cor de fundo que eles estao .

     

    alguem sabe como fazer??

     

    aaa estou usando dentro do meu frame um multipage.

    terça-feira, 29 de abril de 2008 12:56

Respostas

  • Code Snippet
        Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton1.BackColor
        Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton2.BackColor
        Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton3.BackColor
        Worksheets("Sheet2").Cells(2, 6).Interior.Color = OptionButton4.BackColor
        Worksheets("Sheet2").Cells(2, 6).Interior.Color = OptionButton05.BackColor
        Worksheets("Sheet2").Cells(2, 6).Interior.Color = OptionButton6.BackColor
        Worksheets("Sheet2").Cells(2, 7).Interior.Color = OptionButton7.BackColor
        Worksheets("Sheet2").Cells(2, 7).Interior.Color = OptionButton8.BackColor
        Worksheets("Sheet2").Cells(2, 7).Interior.Color = OptionButton9.BackColor
        Worksheets("Sheet2").Cells(2, 8).Interior.Color = OptionButton10.BackColor
        Worksheets("Sheet2").Cells(2, 8).Interior.Color = OptionButton11.BackColor
        Worksheets("Sheet2").Cells(2, 8).Interior.Color = OptionButton12.BackColor

     

     


    tente assim, ms tem uma coisa que eu não intendi:

    A celula vai ter a cor do option button quando ele estiver selecionado?

    Se sim vc terá que por o codigo da seguinte maneira:

     

    Code Snippet

    If OptionButton1.Value = True Then

    Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton1.BackColor

    End If

     

     

    e assim por diante, tente assim e retorne os resultados!

    Estamos a disposição!

    Abraço

    terça-feira, 6 de maio de 2008 20:10

Todas as Respostas

  • Ítalo,

    Ficaria uma linha de comando, mais ou menos assim:

    Cells(1, 1).Interior.Color = OptionButton2.BackColor

    [ ]s

    terça-feira, 29 de abril de 2008 18:06
  •  

    Adilson,

    eu tentei implentar no meu codigo e da o seguinte erro:

     

    ele esta me trazendo os valores e nao as cores ..rs

     

    como concerto isso veja como ficou o codigo.

     

     

    Code Snippet
    Private Sub Salvar_Click()
        Worksheets("Sheet2").Range("B1") = Projeto.CAPEXPlanejado.Value
        Worksheets("Sheet2").Range("B2") = Projeto.CAPEXOrçado.Value
        Worksheets("Sheet2").Range("B3") = Projeto.OPEX.Value
        Worksheets("Sheet2").Range("B4") = Projeto.HardBenefits.Value
        Worksheets("Sheet2").Cells(2, 5) = OptionButton1.BackColor
        Worksheets("Sheet2").Cells(2, 5) = OptionButton2.BackColor
        Worksheets("Sheet2").Cells(2, 5) = OptionButton3.BackColor
        Worksheets("Sheet2").Cells(2, 6) = OptionButton4.BackColor
        Worksheets("Sheet2").Cells(2, 6) = OptionButton05.BackColor
        Worksheets("Sheet2").Cells(2, 6) = OptionButton6.BackColor
        Worksheets("Sheet2").Cells(2, 7) = OptionButton7.BackColor
        Worksheets("Sheet2").Cells(2, 7) = OptionButton8.BackColor
        Worksheets("Sheet2").Cells(2, 7) = OptionButton9.BackColor
        Worksheets("Sheet2").Cells(2, 8) = OptionButton10.BackColor
        Worksheets("Sheet2").Cells(2, 8) = OptionButton11.BackColor
        Worksheets("Sheet2").Cells(2, 8) = OptionButton12.BackColor
      
    End Sub

     

     

     

    Obrigado pelas ajudas

    Ítalo B. Bertunes


     

    quarta-feira, 30 de abril de 2008 13:01
  • Code Snippet
        Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton1.BackColor
        Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton2.BackColor
        Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton3.BackColor
        Worksheets("Sheet2").Cells(2, 6).Interior.Color = OptionButton4.BackColor
        Worksheets("Sheet2").Cells(2, 6).Interior.Color = OptionButton05.BackColor
        Worksheets("Sheet2").Cells(2, 6).Interior.Color = OptionButton6.BackColor
        Worksheets("Sheet2").Cells(2, 7).Interior.Color = OptionButton7.BackColor
        Worksheets("Sheet2").Cells(2, 7).Interior.Color = OptionButton8.BackColor
        Worksheets("Sheet2").Cells(2, 7).Interior.Color = OptionButton9.BackColor
        Worksheets("Sheet2").Cells(2, 8).Interior.Color = OptionButton10.BackColor
        Worksheets("Sheet2").Cells(2, 8).Interior.Color = OptionButton11.BackColor
        Worksheets("Sheet2").Cells(2, 8).Interior.Color = OptionButton12.BackColor

     

     


    tente assim, ms tem uma coisa que eu não intendi:

    A celula vai ter a cor do option button quando ele estiver selecionado?

    Se sim vc terá que por o codigo da seguinte maneira:

     

    Code Snippet

    If OptionButton1.Value = True Then

    Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton1.BackColor

    End If

     

     

    e assim por diante, tente assim e retorne os resultados!

    Estamos a disposição!

    Abraço

    terça-feira, 6 de maio de 2008 20:10
  •  XoX wrote:

     

    Code Snippet

    If OptionButton1.Value = True Then

    Worksheets("Sheet2").Cells(2, 5).Interior.Color = OptionButton1.BackColor

    End If

     

     

    e assim por diante, tente assim e retorne os resultados!

    Estamos a disposição!

    Abraço

     

     

    Eu ja tinha feito isso antes e funciona mesmo ... eu achei que tinah fechado esse post mas vlw pela atenção

     

    abraço

    terça-feira, 6 de maio de 2008 20:42