Simple macro button to create data - Please help

Hello, I want to thank you in advance for reading this. I have a button on Sheet1 that I want, when clicked, to enter the value "1" in cell "B2" on Sheet4. Although simple, I can not seem to get this to work. Below is the code that I have tried:

---

Sub P1()
Worksheets("Sheet4").Cell("B2").Select
With ActiveCell
ActiveCell.Value = "1"
End With
End Sub

---

I also have the correct Macro assigned ("FileName.xslm!Sheet1.P1") to the rectangle on "Sheet1."

Your help is much appreciated, I imagine it is a quick fix. I have exhausted the little expertise that I have, trying different renditions of the same code and exhausting the internet. Thank you!

Hi brandonlbrewere

There are many ways, your code probably does not work because "B2" is a range, not a cell (in VBA). Change the code to Worksheets("Sheet4").Range("B2").Select and all should be well (change in red).

Cheers

Originally Posted by XOR LX

Hi,

Simply:

Please Login or Register  to view this content.

Regards

This worked! Thank you everyone for your assistance, I choose this one due to simplicity. To complete the code I need a little more code. If I want to change the active cell to a cell 2 below the push button, is there an easy scroll feature that does this? Thanks

This is a questionnaire sort of form. The buttons responds to a yes or no to the respective questions. The reason why the scroll is important is that it is zoomed in to where only 2 rows can be seen at a time to increase font size for the visually impaired. So if the code would automatically scroll for them, down two cells, that would be very convenient as it brings the next question into view!

I hope that clears it up,
Brandon

Hi,

you can add the following code for that, here 2 is the number rows you want to scroll

Please Login or Register  to view this content.

Thank you! That code works perfectly, thanks again guys! I sincerely appreciate your help.

Have a good day,

Brandon