form populates the wrong data sheet

Hello all,

I have created a form, however when I hit my command button to populate the data storage sheet the data is stored in which ever sheet is open rather than the specific data storage sheet? How can I program the command button to only populate to the data storage sheet?

Thanks in advance for your help.

Z

It would help to share your code with us.

Private Sub CommandButton1_Click()
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1).Value = Stem1.Text
Cells(erow, 2).Value = Stem2.Text
Cells(erow, 3).Value = Val(NumberofPossibleResponses.Text)
Cells(erow, 4).Value = Response1.Text
Cells(erow, 5).Value = Response2.Text
Cells(erow, 6).Value = Response3.Text
Cells(erow, 7).Value = Response4.Text
Cells(erow, 8).Value = Response5.Text
Cells(erow, 9).Value = Response6.Text
Cells(erow, 10).Value = AnswerKey.Text
Cells(erow, 11).Value = ImageFile1Filename.Text
Cells(erow, 12).Value = Val(ImageFile1xcoordinate.Text)
Cells(erow, 13).Value = Val(ImageFile1ycoordinate.Text)
Cells(erow, 14).Value = Val(ImageFile1Scaling.Text)
Cells(erow, 15).Value = ImageFile2Filename.Text
Cells(erow, 16).Value = Val(ImageFile2xcoordinate.Text)
Cells(erow, 17).Value = Val(ImageFile2ycoordinate.Text)
Cells(erow, 18).Value = Val(ImageFile2Scaling.Text)
Cells(erow, 19).Value = Qualification.Text
Cells(erow, 20).Value = CurriculumTopicMain
Cells(erow, 21).Value = CurriculumAuxiliaryTopic1
Cells(erow, 22).Value = CurriculumAuxiliaryTopic2
Cells(erow, 23).Value = Val(TestID.Text)
Cells(erow, 24).Value = Val(ItemSequenceNumber.Text)
Cells(erow, 25).Value = Authors
Cells(erow, 26).Value = QuestionType
Cells(erow, 27).Value = Val(Marks.Text)
Cells(erow, 28).Value = Val(Weighting.Text)
Cells(erow, 29).Value = Val(LevelOfDemand.Text)
Cells(erow, 30).Value = EditorReviewer
Cells(erow, 31).Value = Val(Version.Text)
Cells(erow, 32).Value = StatusInLifecycle
Cells(erow, 33).Value = StageOfDevelopment
Cells(erow, 34).Value = AuthorNote
Cells(erow, 35).Value = IPRCopyrightNote
Cells(erow, 36).Value = ItemTitle
Cells(erow, 37).Value = Context
Cells(erow, 38).Value = TranslatorReviewer
Cells(erow, 39).Value = StageOfDevelopmentWorkflow
Cells(erow, 40).Value = EnemyItems
Range("b2").Value = Stem1
Range("c2").Value = Stem2
Range("d2").Value = NumberofPossibleResponses
Range("e2").Value = Response1
Range("f2").Value = Response2
Range("g2").Value = Response3
Range("h2").Value = Response4
Range("i2").Value = Response5
Range("j2").Value = Response6
Range("k2").Value = AnswerKey
Range("l2").Value = ImageFile1Filename
Range("m2").Value = ImageFile1xcoordinate
Range("n2").Value = ImageFile1ycoordinate
Range("o2").Value = ImageFile1Scaling
Range("p2").Value = ImageFile2Filename
Range("q2").Value = ImageFile2xcoordinate
Range("r2").Value = ImageFile2ycoordinate
Range("s2").Value = ImageFile2Scaling
Range("t2").Value = Qualification
Range("u2").Value = CurriculumTopicMain
Range("v2").Value = CurriculumAuxiliaryTopic1
Range("w2").Value = CurriculumAuxiliaryTopic2
Range("x2").Value = Val(TestID.Text)
Range("y2").Value = Val(ItemSequenceNumber.Text)
Range("z2").Value = Authors
Range("aa2").Value = QuestionType
Range("ab2").Value = Val(Marks.Text)
Range("ac2").Value = Val(Weighting.Text)
Range("ad2").Value = Val(LevelOfDemand.Text)
Range("ae2").Value = EditorReviewer
Range("af2").Value = Val(Version.Text)
Range("ag2").Value = StatusInLifecycle
Range("ah2").Value = StageOfDevelopment
Range("ai2").Value = AuthorNote
Range("aj2").Value = IPRCopyrightNote
Range("ak2").Value = ItemTitle
Range("al2").Value = Context
Range("am2").Value = TranslatorReviewer
Range("an2").Value = StageOfDevelopmentWorkflow
Range("ao2").Value = EnemyItems
End Sub