Changing cell data by just clicking on it...

Hey guys,

i have made (found) a way to change the data in a cell by clicking on it, however i can only make it go from 1 to 0 or 0 to 1...heres the VB code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (ActiveCell.Value = 1) Then
ActiveCell.Value = ""
Else:
If (ActiveCell.Value = "") Then
ActiveCell.Value = 1
End If
End If
End Sub

however, i would like the code to do a different task, i would like it to add one to the number everytime you click on it...i.e. it goes from 1 to 2 to 3 to 4 to 5 etc. everytime you click on it...

if it is possible, i would also like it to be restricted to a few cells, which i can determine afterwards and change

Thnx
Mayhs

thnx...i tried them both and they didnt seem to work

...could you write a general one please, that works on all the cells (doesnt have a range like the ones posted above)...like the first one i posted but make it add one all the time? thnx

Thnx
Mayhs

Hi again, thanks for the help

when i inputted the code you gave me into VB editor for a worksheet i saved it and then i went back to that worksheet and i clicked on the cell and it just set the target to 0.

i cant use a macro, because im updating multiple items at different times, namely stock items and it would be impratcial having a macro for each stock item, as there are 40

if you could try out the code i gave in my first post, i would like something similar, where you just click on the cell and the number goes up

Thnx
Mayhs

Originally Posted by davesexcel

Here you go

Please Login or Register  to view this content.

You threw me off with "Just click on the cell" because selection change doesn't work like that

PERFECT! THANKS!!

thanks for your time and effort...youll be seeing a lot of me around here lol:p

Thnx
Mayhs

sorry a quick question...how would i edit the code if i wanted to give it a range, for example from E19:E42?

Thnx
Mayhs

ahh dave that code doesnt work!

i dont know why it isnt but the code you gave me previously is working...

im updating stock items...

its a software im creating for my cousin...it is a simulation of using a upc scanner in his retail business

so clicking on the cell will be like scanning

one sec ill try it on a plain worksheet...but its not working on my real software right now

ok...just checked and its working on a plain worksheet

but in my real worksheet, the cells are merged (e is merged with f)...i think thats what might be causing it now to work?

yeah just checked...i unmerged the cells and its working but i need the cells to be merged...

Thanks

i nearly had a heart attack lol