counting number in a cell with + sign

[annadinesh]

Hello Sir,

please help me with VBA

i want that i want to enter few numbers in a same cell . like i am counting number of currency received in a single cell
2 1 2 3 4 1 2



and when i double click on that cell it should show me the entry as

+2+1+2+3+4+1+2


Pls help

regards
Dinesh Saha

 

[FormR]

Hi, welcome to the forum.

You can give this a try sheet event code a try.

Change the range of cells where you want this action to occur.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
    Target.Value = "'" & Replace(Target.Value, " ", "+")
    Cancel = True
End If
End Sub

 

[annadinesh]

thanks for the reply,

i try the same, but not works

please re send new code

regards
dinesh saha

 

[FormR]

i try the same, but not works

Hi, where did you put the code? Do you get any errors when executing? Do you get a wrong result? The more detail you can provide the better.

 

[annadinesh]

i have put the code in VB page under Sheet 1

 

[FormR]

i have put the code in VB page under Sheet 1

Hi, you have not provided enough information to enable us to troubleshoot the issues you are having with the suggestion.

 

[annadinesh]

i have put the code in <acronym title="vBulletin" style="border-width: 0px 0px 1px; border-bottom-style: dotted; border-bottom-color: rgb(0, 0, 0); cursor: help; color: rgb(51, 51, 51); background-color: rgb(250, 250, 250);">VB</acronym> page under Sheet 1

No error found while executing

But Result not working

how can i send you a video file

 

[FormR]

But Result not working

Try to explain or give examples of what result you do get and how that differs from the result that you expect.

 

[annadinesh]

good morning

actually when i try to double click on the cell where i entered the value the result showing as the last number with a " ' "

like if I entered the following values in a cell one by one

i.e 1 5 3 2 4 1 6

after entering the last value the cell should shows the addition of the value i.e 22 and

after double click on that cell the value is showing only '6 on that cell,
i want that it should show =1 + 5 + 3 + 2 + 4 + 1 + 6

that means i have entered the following no. of Notes received in a cell

 

[FormR]

Good Morning;

i want that it should show =1 + 5 + 3 + 2 + 4 + 1 + 6

So you want a formula in the cell after the double click? If so give this a try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
    Target.Formula = "=" & Replace(Target.Value, " ", "+")
    Cancel = True
End If
End Sub