Ola pessoal boa noite!
Preciso criar um questionário no excel onde cada pergunta guardara o valor selecionado no radio button, e ao clicar no botão "Próxima Pergunta" a pergunta seguinte terá de aparecer na mesma célula onde estava a "Pergunta 1" e também guardar em um local qualquer o valor selecionado no radio button. Basicamente é um questionário simples, mas ao invés das perguntas estarem todas listadas uma embaixo da outra, elas irão aparecer uma de cada vez e havera um botao de avancar e recuar nas perguntas, se eu voltar o valor do radio tambem devera ser alterado
Os valores selecionados nos radio buttons de cada pergunta, podem ficar armazenados em qualquer lugar,depois vou ter que somá-los para gerar um score.
Ja consegui fazer boa parte do que quero,mas preciso otimizar o codigo e resolver o problema do botao voltar que nao consigo retrabalhar os valores do RadioButton.
Alguém poderia ajudar? Desde já grato!
Segue Code:
Public y As Integer
Private Sub CommandButton1_Click()
y = y - 1
Avancar_Questao
End Sub
Private Sub CommandButton2_Click()
Dim Answer As String
If OptionButton1.Value = True Then
Answer = "1"
ElseIf OptionButton2.Value = True Then
Answer = "2"
Else
MsgBox "Selecione uma alternativa!"
Exit Sub
End If
Dim counter As Integer
counter = 1
Do Until ThisWorkbook.Sheets("Respostas").Cells(counter, 1).Value = ""
counter = counter + 1
Loop
ThisWorkbook.Sheets("Respostas").Cells(counter, 1).Value = Answer
y = y + 1
Avancar_Questao
End Sub
Function Avancar_Questao()
Dim numero_questao As Range
Set numero_questao = Range("P19:P29")
For Each x In numero_questao
If y = 0 Then
Range("Q19").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = False
ElseIf y = 1 Then
Range("Q20").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 2 Then
Range("Q21").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 3 Then
Range("Q22").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 4 Then
Range("Q23").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 5 Then
Range("Q24").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 6 Then
Range("Q25").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 7 Then
Range("Q26").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 8 Then
Range("Q27").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 9 Then
Range("Q28").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True
ElseIf y = 10 Then
ActiveSheet.CommandButton2.Visible = False
ActiveSheet.CommandButton3.Visible = True
End If
Next x
End Function
Private Sub CommandButton3_Click()
Score
y = 0
End Sub
Início