Clickable cell that equals a number

[timdf]

Hello everyone,

I am trying to figure out if I can click a cell and make the value I want to appear.

For example: I click Cell C3 and the number 7 appears; I click Cell C4 the number 6 appears, etc.., rather than having to type the number in every cell? If it isn't possible to click, is it possible to just type X in the cell and the number will appear? I am just looking for a faster way to add things up. Thanks for any help!

[David A Coop]

Yes it can be done, but you would need an event macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$1" Then [C1] = 7
    If Target.Address = "$C$2" Then [C2] = 6
End Sub

This macro is attached to the Worksheet, not a Macro Module.

Hit Alt+F11, then click on the sheet you need (possibly Sheet1), then paste the macro above

I hope this helps, please let me know!

Regards,

David


- Please click on the *Add Reputation button at the bottom of helpful responses.

Please mark your thread as SOLVED:
- Click Thread Tools above your first post, select "Mark your thread as Solved".

If several people have responded, when you reply please make it clear WHO you are responding
to by mentioning their name.

[timdf]

Yes it can be done, but you would need an event macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$1" Then [C1] = 7
    If Target.Address = "$C$2" Then [C2] = 6
End Sub

This macro is attached to the Worksheet, not a Macro Module.

Hit Alt+F11, then click on the sheet you need (possibly Sheet1), then paste the macro above

I hope this helps, please let me know!

Regards,

David


- Please click on the *Add Reputation button at the bottom of helpful responses.

Please mark your thread as SOLVED:
- Click Thread Tools above your first post, select "Mark your thread as Solved".

If several people have responded, when you reply please make it clear WHO you are responding
to by mentioning their name.

Exactly what I needed! Thank you!!!