Extract information out of a cell.

[Ramballah]

Well hello everyone...
I have posted this before, but since i got no replies or help, i thought i would repost it and ask it a bit differently or something.
So i have an sheet where i want to keep track of my coinflips.. But to make life easy i want to just write down simple things and then excel has to extract the information from that cell
into my charts
in the end it has to look something like this:

		Number	Winstreak	Amount BET	Whats bet on	Win/Lose	What the coin landed on	Profits	Person
50 t	lose	me	1	-	50	Tails	Lose	Heads	$ -50	Me
5 h	win	shee	2	-	5	Heads	Win	Heads	-	Shee
50 t	win	me	3	1	50	Tails	Win	Tails	$ 50	Me
50 t	win	me	4	2	50	Tails	Win	Tails	$ 50	Me
600 h	win	me	5	3	600	Heads	Win	Heads	$ 600	Me
50 t	lose	me	6	-	50	Tails	Lose	Heads	$ -50	Me
250 t	win	me	7	1	250	Tails	Win	Tails	$ 250	Me
500 h	lose	me	8	-	500	Heads	Lose	Tails	$ -500	Me
500 h	lose	me	9	-	500	Heads	Lose	Tails	$ -500	Me
1000 h	lose	me	10	-	1000	Heads	Lose	Tails	$ -1,000	Me
1500 h	lose	me	11	-	1500	Heads	Lose	Tails	$ -1,500	Me
319 h	win	me	12	1	319	Heads	Win	Heads	$ 319	Me
100 t	win	me	13	2	100	Tails	Win	Tails	$ 100	Me
100 t	win	me	14	3	100	Tails	Win	Tails	$ 100	Me
200 h	win	me	15	4	200	Heads	Win	Heads	$ 200	Me
200 t	win	me	16	5	200	Tails	Win	Tails	$ 200	Me
100 h	win	me	17	6	100	Heads	Win	Heads	$ 100	Me
73 t	win	me	18	7	73	Tails	Win	Tails	$ 73	Me
100 t	win	me	19	8	100	Tails	Win	Tails	$ 100	Me
100 h	win	me	20	9	100	Heads	Win	Heads	$ 100	Me
100 t	win	me	21	10	100	Tails	Win	Tails	$ 100	Me
100 t	lose	me	22	-	100	Tails	Lose	Heads	$ -100	Me

<tbody>
</tbody>

As you can see, on the left I put in 100 t lose me for example
meaning, i bet 100$ on tails but i lost, and i was the one doing it. (sometimes there are other people also coinflipping)
Now i need this simplified information to be put in the charts, and then with formulas i can probably figure out the rest.
And also if its not to hard to do, is it possible to have it at 1 cell where i type my simplified info, then it gets put into the charts and cleans the cell where i put in my info? so i dont have to go over 4000 lines for example.
i hope i cleared my question from my previous post.
I'm not sure how the rules work if its allowed but i will put the link of my previous post here
https://www.mrexcel.com/forum/excel-questions/1098440-coinflipping-charts.html

Yours sincerely,
Ramballah

<tbody>
</tbody>

 

[Rick Rothstein]

I have tried to use this code, but the moment i type in my 100 t for example i get an error: Compile error: Expected End Sub
the last End If is marked in blue so i can retype it and this is marked in yellow:

Private Sub Worksheet_Change(ByVal Target As Range)

<tbody>
</tbody>

*Edit* It is whenever i make anychange to the worksheet, no matter which cell it is but if i change the contents i will get this error

You did not copy all of the code I posted (see the vertical scroll bar... it means there is more text below the bottom of the display). I don't know where those extra line feeds came from, but they pushed the "End Sub" statement below the visible part of the screen. Just add "End Sub" (without the quotes) at the end of the code you copied and all should be well.

 

[Ramballah]

Ahh thanks now everything is perfect :d
Also it is quite laggy now? or is it me?

 

[Rick Rothstein]

Ahh thanks now everything is perfect :d
Also it is quite laggy now? or is it me?

The code is not doing all that much so it should not be laggy (it is not laggy for me on my copy of XL2010).

One note... the code currently put the minus sign for losses on the left of the $ sign; however, an earlier post by you showed the minus sign for losses on the left of the number (to the right of the $ sign). If you would like this display format, change this line of code...

Cells(Rw, "G").NumberFormat = "\$ 0"

to this...

Cells(Rw, "G").NumberFormat = "\$ 0;\$ -0"

 

[Ramballah]

The code is not doing all that much so it should not be laggy (it is not laggy for me on my copy of XL2010).

One note... the code currently put the minus sign for losses on the left of the $ sign; however, an earlier post by you showed the minus sign for losses on the left of the number (to the right of the $ sign). If you would like this display format, change this line of code...

Cells(Rw, "G").NumberFormat = "\$ 0"

to this...

Cells(Rw, "G").NumberFormat = "\$ 0;\$ -0"

Thanks alot, somehow when i editted it to the new format, it stopped lagging. Thanks alot ur the best!