Just set up the Sharesight link. That's a neat little addition Oliver. Thank you.
Printable View
Just set up the Sharesight link. That's a neat little addition Oliver. Thank you.
I haven't entered (due to a lack of recent focus on NZX stocks) but would be keen to see the picks if that's possible please??? (to guide to some NZX stocks to look into)
list of picks ranked by popularity would be interesting, cheers
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
STU,STU,STU,STU,STU,STU
A little nest egg treat. I like it.
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.
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!
Could we please see a list of who picked what? (even if we're not contestants)? I find that really interesting and useful :)
That's kind thank you. Take your time :)