-
Originally Posted by TideMan
Excellent. Works really well.
I registered before the facility to have a moniker was available.
How can I do that now?
My no is 598958 (which is a very nice number) and I'd like that to be TideMan.
Will talk to the brains behind the operation to see if we can update it...
-
Originally Posted by Jay
Same here Oliver, I think I pm'd you but the change has not be made
No. is 598963 and I'd like that to be Jay
Thanks
Sorry Jay, will get onto it.
-
Originally Posted by winner69
Ferg did this a few posts back ...good effort by Ferg
ATM the most popular by far
Awesome work by the Ferg :-)! Appreciated...I was out of range while the questions were coming in!
-
STU,STU,STU,STU,STU,STU
A little nest egg treat. I like it.
"His loyalty couldn't be bought at any price; but it could be rented remarkably cheaply."
-
Staying hungry, staying foolish
Originally Posted by Ferg
Thanks winner Here is the full list. Picks is total picks 1 to 6. Backups is the number of times that stock code was pick #6.
Code |
Picks |
BackUps |
Rank |
ATM |
137 |
12 |
1 |
OCA |
117 |
8 |
2 |
PEB |
92 |
5 |
3 |
PX1 |
82 |
8 |
4 |
MFT |
77 |
10 |
5 |
HGH |
70 |
10 |
6 |
EBO |
66 |
12 |
7 |
IFT |
64 |
10 |
8 |
SKT |
60 |
3 |
9 |
FPH |
58 |
6 |
10 |
AIR |
43 |
14 |
11 |
HLG |
38 |
8 |
12 |
STU |
35 |
4 |
13 |
ZEL |
35 |
8 |
13 |
PPH |
33 |
4 |
15 |
FBU |
32 |
7 |
16 |
IKE |
32 |
3 |
16 |
AIA |
31 |
6 |
18 |
ARV |
31 |
7 |
18 |
SKO |
30 |
6 |
20 |
BLT |
28 |
7 |
21 |
RYM |
28 |
3 |
21 |
SPK |
28 |
8 |
21 |
AFT |
26 |
11 |
24 |
KPG |
25 |
5 |
25 |
ERD |
24 |
4 |
26 |
SML |
24 |
5 |
26 |
VGL |
24 |
3 |
26 |
FRE |
22 |
3 |
29 |
KMD |
22 |
6 |
29 |
THL |
22 |
6 |
29 |
APL |
20 |
1 |
32 |
SUM |
19 |
4 |
33 |
TWR |
19 |
3 |
33 |
WBC |
17 |
4 |
35 |
ANZ |
16 |
7 |
36 |
CVT |
16 |
2 |
36 |
SAN |
16 |
3 |
36 |
SKC |
16 |
2 |
36 |
GNE |
15 |
7 |
40 |
MPG |
15 |
3 |
40 |
NZO |
15 |
1 |
40 |
POT |
15 |
5 |
40 |
SKL |
15 |
8 |
40 |
CDI |
14 |
3 |
45 |
ALF |
13 |
2 |
46 |
MCY |
13 |
3 |
46 |
EVO |
12 |
2 |
48 |
GTK |
12 |
1 |
48 |
MCK |
12 |
2 |
48 |
RAK |
12 |
1 |
48 |
TLT |
12 |
2 |
48 |
WHS |
12 |
2 |
48 |
MEL |
11 |
2 |
54 |
SCL |
11 |
4 |
54 |
TRU |
11 |
0 |
54 |
WDT |
11 |
0 |
54 |
ARB |
10 |
2 |
58 |
BRM |
10 |
2 |
58 |
MHJ |
10 |
1 |
58 |
NWF |
10 |
2 |
58 |
SCT |
10 |
2 |
58 |
BOT |
9 |
0 |
63 |
CAV |
9 |
1 |
63 |
CEN |
9 |
2 |
63 |
MLN |
9 |
2 |
63 |
BGP |
8 |
2 |
67 |
CBD |
8 |
2 |
67 |
CNU |
8 |
1 |
67 |
FNZ |
8 |
4 |
67 |
NZR |
8 |
1 |
67 |
TRA |
8 |
4 |
67 |
VTL |
8 |
1 |
67 |
ARG |
7 |
1 |
74 |
GEN |
7 |
0 |
74 |
HMY |
7 |
0 |
74 |
NTL |
7 |
1 |
74 |
GXH |
6 |
1 |
78 |
MEE |
6 |
1 |
78 |
PGW |
6 |
1 |
78 |
TLL |
6 |
2 |
78 |
DGL |
5 |
4 |
82 |
FSF |
5 |
2 |
82 |
MOA |
5 |
0 |
82 |
NPH |
5 |
2 |
82 |
NZX |
5 |
1 |
82 |
QEX |
5 |
0 |
82 |
SPY |
5 |
0 |
82 |
MMH |
4 |
0 |
89 |
RBD |
4 |
1 |
89 |
SDL |
4 |
0 |
89 |
SEK |
4 |
1 |
89 |
TNZ |
4 |
1 |
89 |
AMP |
3 |
2 |
94 |
DIV |
3 |
2 |
94 |
JLG |
3 |
1 |
94 |
MHM |
3 |
0 |
94 |
NZK |
3 |
1 |
94 |
PIL |
3 |
1 |
94 |
PYS |
3 |
1 |
94 |
USG |
3 |
1 |
94 |
ASF |
2 |
1 |
102 |
ENS |
2 |
0 |
102 |
FWL |
2 |
0 |
102 |
OZY |
2 |
1 |
102 |
PFI |
2 |
0 |
102 |
PLX |
2 |
2 |
102 |
RUA |
2 |
0 |
102 |
TWF |
2 |
0 |
102 |
USF |
2 |
0 |
102 |
AGL |
1 |
0 |
111 |
CGF |
1 |
0 |
111 |
CMO |
1 |
1 |
111 |
FCG |
1 |
1 |
111 |
KFL |
1 |
1 |
111 |
MDZ |
1 |
0 |
111 |
MZY |
1 |
0 |
111 |
NPF |
1 |
0 |
111 |
NZL |
1 |
0 |
111 |
NZM |
1 |
0 |
111 |
PCT |
1 |
0 |
111 |
RAD |
1 |
0 |
111 |
SPN |
1 |
0 |
111 |
TLS |
1 |
1 |
111 |
VCT |
1 |
1 |
111 |
If anyone is interested, here is the VBA code used to analyse the data published for the competition and to output the picks into a list.
Code:
Option Explicit
Dim MyPicks(500) As MyStock 'Export array for all picks
Dim StkCount As Long 'Counter to record number of unique picks
Sub GetStats()
Dim LC As Long 'Loop
Dim AllPicks() As Variant 'Import array
AllPicks = ThisWorkbook.Sheets("Sheet1").Range("B2:B353").Value
StkCount = 1
MyPicks(1).Code = Left$(AllPicks(1, 1), 3)
For LC = 1 To 352
Call ProcessPick(Left$(AllPicks(LC, 1), 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 5, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 9, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 13, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 17, 3))
Call ProcessPick(Right$(AllPicks(LC, 1), 3), True)
Next LC
With ThisWorkbook.Sheets("Sheet2")
For LC = 1 To StkCount
.Range("A" & LC).Value = MyPicks(LC).Code
.Range("B" & LC).Value = MyPicks(LC).Count
.Range("C" & LC).Value = MyPicks(LC).BackUp
Next LC
End With
MsgBox "Finished processing picks", vbInformation, "Done"
End Sub
Sub ProcessPick(NewPick As String, Optional IsBackUp As Boolean)
Dim NewStk As Long
NewStk = CheckNew(NewPick)
If NewStk = 0 Then
StkCount = StkCount + 1
MyPicks(StkCount).Code = NewPick
MyPicks(StkCount).Count = 1
NewStk = StkCount
Else
MyPicks(NewStk).Count = MyPicks(NewStk).Count + 1
End If
If IsBackUp Then MyPicks(NewStk).BackUp = MyPicks(NewStk).BackUp + 1
End Sub
Function CheckNew(CodeToCheck As String) As Long
Dim IL As Long
CheckNew = 0
For IL = 1 To StkCount
If MyPicks(IL).Code = CodeToCheck Then
CheckNew = IL
Exit For
End If
Next IL
End Function
Also in a separate module:
Option Explicit
Public Type MyStock
Code As String
Count As Long
BackUp As Long
End Type
@Ferg
Thanks for sharing the code. From where can I download the full dataset?
-
I got the full dataset from the link I was provided that shows my placing. If you are entered into the competition, then you should have an e-mail with the link. If you are going to use the code, then it goes into the Workbook VBA section and the last part goes into a new module in the same spreadsheet. Since I did this a couple more entries have entered. Be aware that I hard coded 352 and 353 into 2 places in the first macro which you will need to amend if there are more than 352 entries. Copy and paste the web data into Sheet1 in Excel. Make sure the picks are in column B and make sure Sheet 2 exists.
Last edited by Ferg; 10-01-2021 at 03:30 PM.
Reason: typo
-
I picked RAK which is not a share I currently own but I am beginning to wish I had bought it when I made my entry!
Last edited by tango; 13-01-2021 at 04:56 PM.
-
Could we please see a list of who picked what? (even if we're not contestants)? I find that really interesting and useful
-
Originally Posted by DarkHorse
Could we please see a list of who picked what? (even if we're not contestants)? I find that really interesting and useful
Will get onto it Dark Horse :-). Just getting back into gear after being away...will build a bit on Ferg's summary and pop a link up with some info.
-
That's kind thank you. Take your time
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
|
Bookmarks