The Guga

beleza galera... Bom, preciso da ajuda de voces para otimizar uma parte do código de uma aplicação que estou responsável. Abaixo esta o código que existe hoje, ele oculpa umas 6 folhas e poderá caso conseguir ser resumido em algumas linhas.... Private Sub FinishButton_Click() Dim I, J, K, Equip_A, Equip_E, Equip_NS, Equip_T, Aprov_Geral, Cont As Integer Acertos = 0 Erros = 0 Sem_Resp = 0 Workbooks("Avaliacao.xls").Activate 'ativa a planilha avaliação NumeroQuestoes = Worksheets("Configurações").Cells(5, 11) 'retorna o valor da celula da linha 5 coluna 11 ( k5 ) e o guarda na variavel NumeroQuestoes ' Questao 1 ' AQUI COMEÇA O CÓDIGO QUE QUERO OTIMIZAR If Me.OptionButton1.Value = True Then ' NOTE QUE O NOME DO BOTÃO OptionButton1 tem o valor 1 e será incrementado em 3 quando passar para a questão 2 Matriz(0, 3) = 1 ' Na matriz temos dois valores 0 e 3 será incrementado de um em um ElseIf Me.OptionButton2.Value = True Then 'Idem do OpitinoButton1, será incrementado de 3 em 3 Matriz(0, 3) = 0 Else Matriz(0, 3) = 2 End If ' Questao 2 If Me.OptionButton4.Value = True Then Matriz(1, 3) = 1 ElseIf Me.OptionButton5.Value = True Then Matriz(1, 3) = 0 Else Matriz(1, 3) = 2 End If ' Questao 3 If Me.OptionButton7.Value = True Then Matriz(2, 3) = 1 ElseIf Me.OptionButton8.Value = True Then Matriz(2, 3) = 0 Else Matriz(2, 3) = 2 End If ' Questao 4 If Me.OptionButton10.Value = True Then Matriz(3, 3) = 1 ElseIf Me.OptionButton11.Value = True Then Matriz(3, 3) = 0 Else Matriz(3, 3) = 2 End If ' Questao 5 If Me.OptionButton13.Value = True Then Matriz(4, 3) = 1 ElseIf Me.OptionButton14.Value = True Then Matriz(4, 3) = 0 Else Matriz(4, 3) = 2 End If ' Questao 6 If Me.OptionButton16.Value = True Then Matriz(5, 3) = 1 ElseIf Me.OptionButton17.Value = True Then Matriz(5, 3) = 0 Else Matriz(5, 3) = 2 End If ' Questao 7 If Me.OptionButton19.Value = True Then Matriz(6, 3) = 1 ElseIf Me.OptionButton20.Value = True Then Matriz(6, 3) = 0 Else Matriz(6, 3) = 2 End If ' Questao 8 If Me.OptionButton22.Value = True Then Matriz(7, 3) = 1 ElseIf Me.OptionButton23.Value = True Then Matriz(7, 3) = 0 Else Matriz(7, 3) = 2 End If ' Questao 9 If Me.OptionButton25.Value = True Then Matriz(8, 3) = 1 ElseIf Me.OptionButton26.Value = True Then Matriz(8, 3) = 0 Else Matriz(8, 3) = 2 End If ' Questao 10 If Me.OptionButton28.Value = True Then Matriz(9, 3) = 1 ElseIf Me.OptionButton29.Value = True Then Matriz(9, 3) = 0 Else Matriz(9, 3) = 2 End If ' Questao 11 If Me.OptionButton31.Value = True Then Matriz(10, 3) = 1 ElseIf Me.OptionButton32.Value = True Then Matriz(10, 3) = 0 Else Matriz(10, 3) = 2 End If ' Questao 12 If Me.OptionButton34.Value = True Then Matriz(11, 3) = 1 ElseIf Me.OptionButton35.Value = True Then Matriz(11, 3) = 0 Else Matriz(11, 3) = 2 End If ' Questao 13 If Me.OptionButton37.Value = True Then Matriz(12, 3) = 1 ElseIf Me.OptionButton38.Value = True Then Matriz(12, 3) = 0 Else Matriz(12, 3) = 2 End If ' Questao 14 If Me.OptionButton40.Value = True Then Matriz(13, 3) = 1 ElseIf Me.OptionButton41.Value = True Then Matriz(13, 3) = 0 Else Matriz(13, 3) = 2 End If ' Questao 15 If Me.OptionButton43.Value = True Then Matriz(14, 3) = 1 ElseIf Me.OptionButton44.Value = True Then Matriz(14, 3) = 0 Else Matriz(14, 3) = 2 End If ' Questao 16 If Me.OptionButton46.Value = True Then Matriz(15, 3) = 1 ElseIf Me.OptionButton47.Value = True Then Matriz(15, 3) = 0 Else Matriz(15, 3) = 2 End If ' Questao 17 If Me.OptionButton49.Value = True Then Matriz(16, 3) = 1 ElseIf Me.OptionButton50.Value = True Then Matriz(16, 3) = 0 Else Matriz(16, 3) = 2 End If ' Questao 18 If Me.OptionButton52.Value = True Then Matriz(17, 3) = 1 ElseIf Me.OptionButton53.Value = True Then Matriz(17, 3) = 0 Else Matriz(17, 3) = 2 End If ' Questao 19 If Me.OptionButton55.Value = True Then Matriz(18, 3) = 1 ElseIf Me.OptionButton56.Value = True Then Matriz(18, 3) = 0 Else Matriz(18, 3) = 2 End If ' Questao 20 If Me.OptionButton58.Value = True Then Matriz(19, 3) = 1 ElseIf Me.OptionButton59.Value = True Then Matriz(19, 3) = 0 Else Matriz(19, 3) = 2 End If ' Questao 21 If Me.OptionButton61.Value = True Then Matriz(20, 3) = 1 ElseIf Me.OptionButton62.Value = True Then Matriz(20, 3) = 0 Else Matriz(20, 3) = 2 End If ' Questao 22 If Me.OptionButton64.Value = True Then Matriz(21, 3) = 1 ElseIf Me.OptionButton65.Value = True Then Matriz(21, 3) = 0 Else Matriz(21, 3) = 2 End If ' Questao 23 If Me.OptionButton67.Value = True Then Matriz(22, 3) = 1 ElseIf Me.OptionButton68.Value = True Then Matriz(22, 3) = 0 Else Matriz(22, 3) = 2 End If ' Questao 24 If Me.OptionButton70.Value = True Then Matriz(23, 3) = 1 ElseIf Me.OptionButton71.Value = True Then Matriz(23, 3) = 0 Else Matriz(23, 3) = 2 End If ' Questao 25 If Me.OptionButton73.Value = True Then Matriz(24, 3) = 1 ElseIf Me.OptionButton74.Value = True Then Matriz(24, 3) = 0 Else Matriz(24, 3) = 2 End If ' Questao 26 If Me.OptionButton76.Value = True Then Matriz(25, 3) = 1 ElseIf Me.OptionButton77.Value = True Then Matriz(25, 3) = 0 Else Matriz(25, 3) = 2 End If ' Questao 27 If Me.OptionButton79.Value = True Then Matriz(26, 3) = 1 ElseIf Me.OptionButton80.Value = True Then Matriz(26, 3) = 0 Else Matriz(26, 3) = 2 End If ' Questao 28 If Me.OptionButton82.Value = True Then Matriz(27, 3) = 1 ElseIf Me.OptionButton83.Value = True Then Matriz(27, 3) = 0 Else Matriz(27, 3) = 2 End If ' Questao 29 If Me.OptionButton85.Value = True Then Matriz(28, 3) = 1 ElseIf Me.OptionButton86.Value = True Then Matriz(28, 3) = 0 Else Matriz(28, 3) = 2 End If ' Questao 30 If Me.OptionButton88.Value = True Then Matriz(29, 3) = 1 ElseIf Me.OptionButton89.Value = True Then Matriz(29, 3) = 0 Else Matriz(29, 3) = 2 End If For I = 0 To NumeroQuestoes If Matriz(I, 2) = Matriz(I, 3) Then Matriz(I, 4) = 1 Acertos = Acertos + 1 ElseIf Matriz(I, 3) = 2 Then Matriz(I, 4) = 2 Sem_Resp = Sem_Resp + 1 Else Matriz(I, 4) = 0 Erros = Erros + 1 End If Next I Resultados.Label4.Caption = Acertos & " Questões - " & Round(((Acertos / NumeroQuestoes) * 100), 2) & "%" Resultados.Label5.Caption = Erros & " Questões - " & Round(((Erros / NumeroQuestoes) * 100), 2) & "%" Resultados.Label6.Caption = Sem_Resp & " Questões - " & Round(((Sem_Resp / NumeroQuestoes) * 100), 2) & "%" Aprov_Geral = Round(Acertos / NumeroQuestoes * 100, 2) Resultados.Label7.Caption = Aprov_Geral & "%" PENSEI E RESUMIR TODA ESTAS QUESTÕES COM A FUNÇÃO ABAIXO ONDE: INSERI VARIAVEIS INTEIRAS: Q = IRA SER INCREMENTADO DE UM EM UM E FICAR DENTRO DO PARENTESES DA MATRIZ COMO DESCREVI B = 1 TERA O VALOR INICIAL DE 1 PARA O OptionButton1 C = 2 TERA O VALOR INICIAL DE 2 PARA O OptionButton2 ABAIXO O CÓGIDO ' DEFINIDO AS VARIAVEIS NO INICIO DO CÓDIGO AUX1 E AUX2 COMO STRING E Q,B,C COMO INTEIRAS Q = 0 B = 1 C = 2 Do Aux1 = (OptionButton & "B") 'TENHO QUE FAZER COM QUE EU CONCATENE A PALAVRA OptionButton COM O NOVO VALOR Aux2 = OptionButton & "C" If Me.Aux1.Value = True Then 'AUX1 IRA RECEBER A STRIG AMARZENADA PARA O BOTÃO, ESTA DANDO ERRO AQUI ERRO: ERRO DE COMPILAÇÃO ( SELECIONADO .Aux1 ) era esperado: Método ou membro de 'dados não encontrado Matriz(Q, 3) = 1 ElseIf Me.Aux2.Value = True Then ' DANDO O MESMO ERRO AQUI Matriz(Q, 3) = 0 Else Matriz(Q, 3) = 2 End If Q = Q + 1 AQUI OS VALORES SÃO INCREMENTADOS B = B + 3 C = C + 3 Loop While (Q < NumeroQuestoes) JÁ TENTEI CONCATENAR NO LOCAL DA AUX1 E 2 A STRING OptionButton COM OS VALORES B E C MAS TENDO O MESMO PROBLEMA DE ERRO DE COMPILAÇÃO... DESDE JÁ AGRADEÇO A AJUDA DE vocês.. VALEU GALERA... THE GUGA