Duvida Salvar Informações no excel com option button

Question

 

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.

Answer 1

Ítalo,

Ficaria uma linha de comando, mais ou menos assim:

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

[ ]s

Answer 2

 

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

 

Answer 3

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

Answer 4

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