First off, im new to VBA and need help with the returnvalue part. When i run this no matter if i click yes or no, it shows the yes dialog, and
wont + 1 to cells (15,6)
Not necessarily looking for a direct answer, examples would be great, and please tell me if i have the dim right and numRight right also. Thanks in advance
[code]Private Sub cmdGo_Click()
Dim numRight As Integer 'I think this is right
numRight = 0
'Clears all cells when button is pushed
Cells(4, 2) = ("")
Cells(5, 3) = ("")
Cells(6, 2) = ("")
Cells(7, 3) = ("")
Cells(8, 2) = ("")
Cells(9, 3) = ("")
Cells(10, 2) = ("")
Cells(11, 3) = ("")
Cells(12, 2) = ("")
Cells(13, 3) = ("")
Cells(15, 6) = 0
'Questions and Answers
'We add MsgBox to pause the script
Cells(4, 2) = ("1. What programming language is used with Excel?") 'Question 1
MsgBox "What programming language is used with Excel?", , "Question 1"
Cells(5, 3) = ("VBA or Visual Basic for Applications") 'Answer 1
MsgBox "VBA or Visual Basic for Applications", , "Answer"
MsgBox "Did you get it right?", vbYesNo, "Did you get it right?"
If MsgBoxreturnvalue = yes Then
MsgBox "Congratulations", , "Good Job"
Cells(15, 6) = Val(numRight) + 1
Else
MsgBox "Better luck next time", , "Sorry"
End If
'_____________________________________________________________________________________________________________________
Cells(6, 2) = ("What key sequence activates the VBA Editor?") 'Question 2
MsgBox "What key sequence activates the VBA Editor?", , "Question 2"
Cells(7, 3) = ("Alt-F11") 'Answer 2
MsgBox "Alt-F11", , "Answer"
MsgBox "Did you get it right?", vbYesNo, "Did you get it right?"
If returnvalue = yes Then
MsgBox "Congratulations", , "Good Job"
Cells(15, 6) = Val(numRight) + 1
Else
MsgBox "Better luck next time", , "Sorry"
End If
'_____________________________________________________________________________________________________________________
Cells(8, 2) = ("What two properties should be set for each command button?") 'Question 3
MsgBox ("What two properties should be set for each command button?"), , "Question 3"
Cells(9, 3) = ("Name, Caption") 'Answer 3
MsgBox "Name, Caption", , "Answer"
MsgBox "Did you get it right?", vbYesNo, "Did you get it right?"
If returnvalue = yes Then
MsgBox "Congratulations", , "Good Job"
Cells(15, 6) = Val(numRight) + 1
Else
MsgBox "Better luck next time", , "Sorry"
End If
'_____________________________________________________________________________________________________________________
Cells(10, 2) = ("What command is used to place data into the worksheet?") 'Question 4
MsgBox ("What command is used to place data into the worksheet?"), , "Question 4"
Cells(11, 3) = ("Cells()") 'Answer 4
MsgBox "Cells()", , "Answer"
MsgBox "Did you get it right?", vbYesNo, "Did you get it right?"
If returnvalue = yes Then
MsgBox "Congratulations", , "Good Job"
Cells(15, 6) = Val(numRight) + 1
Else
MsgBox "Better luck next time", , "Sorry"
End If
'_____________________________________________________________________________________________________________________
Cells(12, 2) = ("What button(s) appears on a dialog box ( Go, Cancel, Stop, OK, Start)?") 'Question 5
MsgBox ("What button(s) appears on a dialog box (Go, Cancel, Stop, OK, Start)?"), , "Question 5"
Cells(13, 3) = ("OK") 'Answer 5
MsgBox "OK", , "Answer"
MsgBox "Did you get it right?", vbYesNo, "Did you get it right?"
If returnvalue = yes Then
MsgBox "Congratulations", , "Good Job"
Cells(15, 6) = Val(numRight) + 1
Else
MsgBox "Better luck next time", , "Sorry"
End If
End Sub
[/code]