sharetrader
Page 8 of 16 FirstFirst ... 456789101112 ... LastLast
Results 71 to 80 of 160
  1. #71
    CEO, NZ Shareholders Association
    Join Date
    May 2017
    Location
    Wellington
    Posts
    593

    Default

    Quote Originally Posted by TideMan View Post
    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...

  2. #72
    CEO, NZ Shareholders Association
    Join Date
    May 2017
    Location
    Wellington
    Posts
    593

    Default

    Quote Originally Posted by Jay View Post
    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.

  3. #73
    CEO, NZ Shareholders Association
    Join Date
    May 2017
    Location
    Wellington
    Posts
    593

    Default

    Quote Originally Posted by winner69 View Post
    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!

  4. #74
    Investor / Wizard / Mall Santa Pricey's Avatar
    Join Date
    Mar 2014
    Posts
    92

    Default

    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."

  5. #75
    Staying hungry, staying foolish
    Join Date
    Oct 2019
    Posts
    44

    Default

    Quote Originally Posted by Ferg View Post
    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?

  6. #76
    DFABPCLMB
    Join Date
    Jul 2020
    Posts
    692

    Default

    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 02:30 PM. Reason: typo

  7. #77
    Senior Member
    Join Date
    Nov 2009
    Posts
    746

    Default

    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 03:56 PM.

  8. #78
    Senior Member
    Join Date
    Sep 2013
    Posts
    525

    Default

    Could we please see a list of who picked what? (even if we're not contestants)? I find that really interesting and useful

  9. #79
    CEO, NZ Shareholders Association
    Join Date
    May 2017
    Location
    Wellington
    Posts
    593

    Default

    Quote Originally Posted by DarkHorse View Post
    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.

  10. #80
    Senior Member
    Join Date
    Sep 2013
    Posts
    525

    Default

    That's kind thank you. Take your time

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •