5 thoughts on “Divisonal Double Elimination Brackets”

1. Pool table tournament

2. how about the criss-cross bracket of double elimination, can you show it to me?

3. Great bracket. This is the first I’ve seen that uses validation, instead of having to copy/paste, etc.

   Did you manually select ‘Game 1 Winner’, ‘Game 2 Winner’, etc. before saving or is there a method to select the last item in the list by default? I’ve looked all over and haven’t found anything, so I thought I’d check with the source.

   Thanks,

   J.

4. Yes, they were manually selected.

5. If you wanted to select the last entry in all the validation list, here’s some very lightly tested code.

   Visual Basic

   Public Sub SetDVToLast() Dim rAllDv As Range Dim rCell As Range Dim dv As Validation Dim rList As Range On Error Resume Next Set rAllDv = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo 0 If Not rAllDv Is Nothing Then For Each rCell In rAllDv.Cells Set dv = rCell.Validation If dv.Type = 3 Then 'it's a list If IsArray(Evaluate(dv.Formula1)) Then 'it's a range Set rList = ActiveSheet.Range(Replace(dv.Formula1, "=", vbNullString)) rCell.Value = rList.Cells(rList.Cells.Count) Else 'it's a comma separated list rCell.Value = Split(dv.Formula1, ",")(UBound(Split(dv.Formula1, ","))) End If End If Next rCell End If End Sub

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

   Public Sub SetDVToLast()          Dim rAllDv As Range     Dim rCell As Range     Dim dv As Validation     Dim rList As Range              On Error Resume Next         Set rAllDv = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)     On Error GoTo 0          If Not rAllDv Is Nothing Then         For Each rCell In rAllDv.Cells             Set dv = rCell.Validation             If dv.Type = 3 Then 'it's a list                 If IsArray(Evaluate(dv.Formula1)) Then 'it's a range                     Set rList = ActiveSheet.Range(Replace(dv.Formula1, "=", vbNullString))                     rCell.Value = rList.Cells(rList.Cells.Count)                 Else 'it's a comma separated list                     rCell.Value = Split(dv.Formula1, ",")(UBound(Split(dv.Formula1, ",")))                 End If             End If         Next rCell     End If      End Sub

---

Posting code? Use <pre> tags for VBA and <code> tags for inline.