Answer Sheet in Excel

[itsmereyyy]

Hi. I'm new in Excel VBA, and I'm trying to compare the value in a certain cell in sheet 1 and a certain cell in sheet 2 and when I get the same value, it will print "Correct" or "Wrong" on another cell. I've been visiting various websites and didn't get what I was looking for (I'm a newbie btw.) Ex. In cells C9 to C18 in sheet 1, I have questions there, in D9 to D18 same sheet, the user will type in their answer, and in Cells C4 to C13 in sheet 2, the correct answers are there. So when I press this "Check" button, it should compare the answer given by the user and the correct answer, and if the answers match, there will be a "Correct" value or if not "Wrong" in cells D9 to D18 in Sheet 1. It's like a questionnaire with checker. Thank youuuuuuuuuuu! It's greatly appreciated. This is our preliminary examination. I hope you can help Thanks!

This is what it looks like. It's what I have done.

https://prnt.sc/hi1uxd
https://prnt.sc/hi1uxn

 

[itsmereyyy]

Couple of ideas

First is a straight up comparison between the questionnaire and answer key using your commandbutton (Which I called cmbCheck)

Private Sub cmbCheck_Click()
Dim i As Integer
For i = 1 To 10
    Me.Range("E" & i + 8) = IIf(Me.Range("D" & i + 8) = Sheets("Answer Key").Range("C" & i + 3), "Correct", "Wrong")
Next i
End Sub

Second would have a formula in the remark cell which doesn't show if an arbitrary cell is set to false (I use cell A1 which can be formatted to not be visible)

=IF($A$1, IF(D10='Answer Key'!C5, "Correct", "Wrong"), "")

Then have your check button switch it to true, the clear button to reset is to false

Private Sub cmbCheck2_Click()
Me.Range("A1") = 1
End Sub


Private Sub cmbClear_Click()
Me.Range("A1") = 0
End Sub

HTH

This one works! I love you, mhrstn! You saved me from taking another sem! Haha. Peace and god bless!