Usuário com melhor resposta
Duvida Salvar Informações no excel com option button

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 SnippetWorksheets("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 SnippetIf 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 SnippetPrivate 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 SubObrigado pelas ajudas
Ítalo B. Bertunes
quarta-feira, 30 de abril de 2008 13:01 -
Code SnippetWorksheets("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 SnippetIf 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 SnippetIf 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