Fantasy Football Draft Board

[mustang1017]

Back Story: A couple years ago I created a FF Draft Board for my fantasy league. I hook up my laptop to my two smart TVs. One screen shows the draft board. The second screen shows each team's roster as they are drafting. The draft board will fill in the players team and position after their name is put in. The roster board will automatically update each players team as they pick players. It is set up so that it fills each position based on the ranking of the players at the position. Each year, I try to add a new feature to it. That is where my question begins...

Question: After each player's name is typed into the draft board, I want 3 cells of information (Player Name{PN}/Team{T}/Position{P}) to either:
- automatically zoom in on these cells for a few seconds after each pick so that the PN/T/P can clearly be seen by everyone and then zoom back out to the full draft board, or
- after each player name is entered the PN/T/P appear in a pop up box for a few seconds and then goes away

I have no clue if something like is even possible, but I wanted see if anyone had any ideas. Thanks!

 

[Logit]

.
Paste this in the ThisWorkbook module :

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopIt
End Sub


Private Sub Workbook_Open()
    StartIt
End Sub

Paste this in the UserForm1 code module :

Private Sub CommandButton1_Click()
    
    Me.Hide
    
End Sub


Private Sub UserForm_Activate()
Dim i As Integer, j As Integer


With Sheets("Sheet1")
    i = .Cells(Rows.Count, 1).End(xlUp).Row
        For j = 1 To 3
            Controls("TextBox" & j) = .Cells(i, j)
        Next
End With


Application.Wait (Now() + TimeValue("00:00:05"))
Me.Hide


End Sub

Paste this in a Routine Module :

Option Explicit


Private eTime
Sub ScreenRefresh()
    With ThisWorkbook.Worksheets("Sheet1").Shapes(1)
        .Left = ThisWorkbook.Windows(1).VisibleRange(4, 4).Left
        .Top = ThisWorkbook.Windows(1).VisibleRange(2, 2).Top
    End With
End Sub


Sub StartTimedRefresh()
    Call ScreenRefresh
    eTime = Now + TimeValue("00:00:01")
    Application.OnTime eTime, "StartTimedRefresh"
End Sub


Sub StopTimer()
    Application.OnTime eTime, "StartTimedRefresh", , False
End Sub


Sub shwfrm()
    UserForm1.Show
End Sub


Sub StartIt()
  StartTimedRefresh
End Sub


Sub StopIt()
    StopTimer
End Sub


Sub LastRow()
'Finds the last non-blank cell in a single row or column


Dim lRow As Long
    
With Sheets("Sheet1")
    'Find the last non-blank cell in column A(1)
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox lRow
End With
End Sub

In order to eliminate confusion and possible errors, I've chosen to use a 'floating command button' on Sheet 1, where the players draft data will be entered. The project is designed so the button will scroll up and down the sheet as
the sheet is scrolled, always displaying on Col D, second row down from the top. The location can be changed by editing the code, Sub ScreenRefresh().

The userform has a built in timer that will automatically close the form after 5 seconds. The length of time to display can be changed as well.


You can alter the size and location of the Textboxes on the UserForm to suit. Perhaps you will need it to be larger ? What is provided should be a good start toward your goal.

The example workbook may be downloaded from here : https://www.amazon.com/clouddrive/share/8XsGtR5DxodnokaNYdd6nu3OcU1OEeicfvhmj5BwPgf