locked
Problemas para passar Cores por Obtion button RRS feed

  • Pergunta

  •  

    estou usando o seuginte codigo

    Code Snippet

     

    Worksheets("Sheet2").Range("B1") = Projetos.CAPEXPlanejado.Value
        Worksheets("Sheet2").Range("B2") = Projetos.CAPEXOrçado.Value
        Worksheets("Sheet2").Range("B3") = Projetos.OPEX.Value
        Worksheets("Sheet2").Range("B4") = Projetos.HardBenefits.Value
        Worksheets("Sheet2").Range("B5") = Projetos.OptionButton1.BackColor
        Worksheets("Sheet2").Range("B5") = Projetos.OptionButton2.BackColor
        Worksheets("Sheet2").Range("B5") = Projetos.OptionButton3.BackColor
        Worksheets("Sheet2").Range("B6") = Projetos.OptionButton4.BackColor
        Worksheets("Sheet2").Range("B6") = Projetos.OptionButton05.BackColor
        Worksheets("Sheet2").Range("B6") = Projetos.OptionButton6.BackColor
        Worksheets("Sheet2").Range("B7") = Projetos.OptionButton7.BackColor
        Worksheets("Sheet2").Range("B7") = Projetos.OptionButton8.BackColor
        Worksheets("Sheet2").Range("B7") = Projetos.OptionButton9.BackColor
        Worksheets("Sheet2").Range("B8") = Projetos.OptionButton10.BackColor
        Worksheets("Sheet2").Range("B8") = Projetos.OptionButton11.BackColor
        Worksheets("Sheet2").Range("B8") = Projetos.OptionButton12.BackColor
    ' tempo'
      If OptionButton1 = True Then
        With Selection.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
     End If
     
     If OptionButton2 = True Then
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If
       
       If OptionButton3 = True Then
        With Selection.Interior
            .ColorIndex = 10
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If

      'escopo'
      If OptionButton4 = True Then
        With Selection.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
     End If
     
     If OptionButton05 = True Then
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If
       
       If OptionButton6 = True Then
        With Selection.Interior
            .ColorIndex = 10
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If
     
      'custo'
       If OptionButton7 = True Then
        With Selection.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
     End If
     
     If OptionButton8 = True Then
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If
       
       If OptionButton9 = True Then
        With Selection.Interior
            .ColorIndex = 10
            .Pattern = xlSolid
        End With
       Cells(6, 2).Select
        End If
       
        'Pendencias'
         If OptionButton10 = True Then
        With Selection.Interior
            .ColorIndex = 3
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If
     
     If OptionButton11 = True Then
        With Selection.Interior
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If
       
       If OptionButton12 = True Then
        With Selection.Interior
            .ColorIndex = 10
            .Pattern = xlSolid
        End With
        Cells(6, 2).Select
        End If

     

     


     so que so esta aparecendo a cor verde da 3º celula de b a 12º rs.. como eu resolvo isso queria as celulas ficassem para cada 3 option button uma celula

    quarta-feira, 30 de abril de 2008 20:22