examples                              
*     Microsoft Stuff  
  4/7/22   examples  
                                 
   
  Home Name Left Right Player Team Tm2 Pos Pos2 T,P code Rk Player
  How To's Day, Jason Day Jason Mike Trout LAA (LAA CF - CF) (LAA - CF) 116 1 Mike Trout (LAA - CF)
  Misc filename.type filename type
  Networking
  Windows
  Glossary Char Position of 2nd 3rd etc instance of character https://exceljet.net/formula/position-of-2nd-3rd-etc-instance-of-character
  Excell (  Char Occ Posn Text
  Examples Occ x 2 7 100x15x50
  Outlook 1 Name Player - 3 11 cat-in-the-hat
  Paint Shop Pro 14 Alvin Kamara Alvin Kamara (NO)  ( 1 12 Mike Trout (LAA - CF)
  Skype
  WSH
  DOS Find ( )
    16 23 Minnesota D/ST (D, MIN)
   
   
    Get workbook name only: Microsoft_Stuff.xlsm https://exceljet.net/formula/get-workbook-name-only
   
    Refreshing your Calculations: F2 – select any cell then press F2 key and hit enter to refresh formulas. https://spreadsheeto.com/recalculate-and-refresh-formulas/
    F9 – recalculates all sheets in workbooks
    SHIFT+F9 – recalculates all formulas in the active sheet
    CTRL+ALT+F9 – force calculate open worksheets in all open workbooks including cells that have not been changed
    CTRL+ALT+SHIFT+F9 – recalculates all sheets in all open workbooks
   
   
    ie DFS_baseball.xlsm Fname
    Wbname
    Sname
   
   
    Creating a name: ActiveWorkbook.Names.Add Name:="Rotowire_db", RefersToR1C1:="=Rotowire!R3C3:R" & XEOD & "C24"
        ( from PP) ActiveWorkbook.Names.Add Name:="Fpros_db", RefersTo:="=Fpros!$C$3:$s$" & EODs
   
    '   Update_Names     Offset = 5
         (from weekly     Sname = Cells(1, 2).Value
           Fpro's )     Range("LOF_" & Sname).Value = "=counta(j6:j375)"
        EOF = Range("LOF_" & Sname).Value
   
        Var1 = Sname & "_Rk"
        Var2 = Sname & "_Name"
        Rk = "=" & Sname & "!$H$6:$H$" & EOF + Offset
        Name = "=" & Sname & "!$D$6:$D$" & EOF + Offset
        ActiveWorkbook.Names.Add Name:=Var1, RefersTo:=Rk
        ActiveWorkbook.Names.Add Name:=Var2, RefersTo:=Name
   
   
    Entering a formula: ActiveCell.Value = "=count(u4:u1000)
    ActiveCell.Value = "=sum(g4:g1000)"
    ActiveCell.FormulaR1C1 = "test"
   
    Cells(4, 10).Value = "=counta(j6:j375)"
   
    Sname = Cells(1, 2).Value
    Range("LOF_" & Sname).Value = "=counta(j6:j375)"
   
    Finding "Last Row" 120 =MATCH("zzzzzzzzzzzzzzzz",Inj)  + offset
    115 =MATCH("zzzzzzzzzzzzzzzz",(G4:G444))  + offset
   
   
    Increase EOF Sub Increase_IB_EOF()
        ( from PP) '
    ' Increase_IB_EOF Macro
    '
        Sheets("input-buffer").Select
        Application.Goto Reference:="EOF"
        EOF = ActiveCell.Value + 5
        Range("A" & EOF & ":x" & EOF).Select
        Selection.Insert shift:=xlDown
        Selection.Insert shift:=xlDown
        Selection.Insert shift:=xlDown
        Selection.Insert shift:=xlDown
        Selection.Insert shift:=xlDown
        Selection.Insert shift:=xlDown
        Selection.Insert shift:=xlDown
        Range("A" & EOF - 1 & ":x" & EOF - 1).Select
    AutoFill     Selection.AutoFill Destination:=Range("A" & EOF - 1 & ":x" & EOF + 6), Type:=xlFillDefault
        Range("A" & EOF - 1 & ":x" & EOF + 6).Select
        Application.Goto Reference:="EOF"
        EOF = ActiveCell.Value + 5
        Range("A" & EOF & ":x" & EOF).Select
        Selection.Delete shift:=xlUp
        Range("Z2").Select
    End Sub
    AutoFill via
      Copy & Paste     Range("B6:E6").Select
        Selection.Copy
        Range("B7:E" & EOF + Offset).Select
        ActiveSheet.Paste
   
   
    Range selection     Range("A" & EOF - 1 & ":x" & EOF - 1).Select
   
   
    Getting the LOF Sub Get_LOF()
        Sheets("DKSalaries").Select
        LOF = Range("LOF_DK").Value
    End Sub
   
   
    "Sort Key" see -> Mark\Football\Weekly Info\Z_Rosters_new.xlsm
    Mark\Football\Cheat sheets working area\FantasyPros_data.xlsm
   
   
    Selecting entire Rows(i).Select
        row. Cells(i, 1).EntireRow.Select
   
    Delete (shifting Sub Remove_Entry()
         cells up) '   Remove_Entry Macro
    '
        Range(Cells(r, 3), Cells(r, 10)).Select
        Selection.Delete Shift:=xlUp
    End Sub
   
    D:\GoogleDrive\Mark\Basketball\Fpro.xlsm
    Last  Row
    Reset Formulas
    Remove: Rows (blanks)
    header
    footer