FI routine.



  • I am worried i'm slipping into groundhog day and was hoping others were as well that follow the same futile process during transfer windows:

    1: Wake up
    2: Remove dogs, kids and wife from bed
    3: Go back to sleep
    4: Wake up, check FI on phone.
    5: Type Carrasco into google.
    6: Get some guff about a baseball player
    7: Type Yannick Carrasco into google.
    8: Frown at lack of updated stories.
    9: Type Hirving Lozano into Google
    10: Frown at pointless mexican gold cup update.

    Repeat ad nauseum



  • Iā€™m currently on number 4



  • Mine would be:

    1. wake up
    2. Look at FI
    3. Look at Transfer news
    4. Check FI again just incase someone has broken both legs
    5. Then try & live my life


  • 0_1558699827677_31s5u0.jpg



  • Sub FI()
    '
    ' Football Index Routine
    '

    '

    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Range("b204:i300").SelectCarrasco
    Selection.ClearContents
    Range("b204:h300").Select Carrasco
    Sheet2.Pump&dump
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Rows("3:3").Select
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=Pump
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=1, Criteria1:=Range("sheetCarrasco").Value
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=3, Criteria1:= _
        "Advincula is the new FI King"
    Range("G4:G5000").Dump
    Selection.Copy
    Sheet21.Select
    Range("b204:h300").Select Carrasco
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    
    Sheet2.Select
    Selection.Copy 
    Sheet21.Select
    Range("b204").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("b204:h204").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = C_Arroyo / 230002233 words
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = Andy_M New Thread required
        .MergeCells = True
    End With


  • @Advinculas-Index said in FI routine.:

    Sub FI()
    '
    ' Football Index Routine
    '

    '

    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Range("b204:i300").SelectCarrasco
    Selection.ClearContents
    Range("b204:h300").Select Carrasco
    Sheet2.Pump&dump
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Rows("3:3").Select
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=Pump
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=1, Criteria1:=Range("sheetCarrasco").Value
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=3, Criteria1:= _
        "Advincula is the new FI King"
    Range("G4:G5000").Dump
    Selection.Copy
    Sheet21.Select
    Range("b204:h300").Select Carrasco
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    
    Sheet2.Select
    Selection.Copy 
    Sheet21.Select
    Range("b204").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("b204:h204").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = C_Arroyo / 230002233 words
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = Andy_M New Thread required
        .MergeCells = True
    End With
    

    Oh yes, very good!



  • @Advinculas-Index 0_1558701156971_upload-bd8d6ac9-5762-4ac5-9fbb-7d2ae99c6e3d
    šŸ˜‚šŸ˜‚šŸ˜‚šŸ˜‚šŸ˜‚šŸ˜‚



  • Wake up, open FI and check portfolio, go and make a huge cup of coffee, sit in the ladies room checking everything FI related including forum, realise my arse is hurting, look at time and realise I've been sitting on the bog for 45min, go to make another coffee and off to the sofa to continue checking FI, then realise i need to hurry up and eat because work is calling šŸ¤£šŸ¤£



  • @Advinculas-Index said in FI routine.:

    Sub FI()
    '
    ' Football Index Routine
    '

    '

    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Range("b204:i300").SelectCarrasco
    Selection.ClearContents
    Range("b204:h300").Select Carrasco
    Sheet2.Pump&dump
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Rows("3:3").Select
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=Pump
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=1, Criteria1:=Range("sheetCarrasco").Value
    ActiveSheet.Range("$A$3:$CW$5000").AutoFilter Field:=3, Criteria1:= _
        "Advincula is the new FI King"
    Range("G4:G5000").Dump
    Selection.Copy
    Sheet21.Select
    Range("b204:h300").Select Carrasco
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    
    Sheet2.Select
    Selection.Copy 
    Sheet21.Select
    Range("b204").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("b204:h204").Select
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = C_Arroyo / 230002233 words
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = Andy_M New Thread required
        .MergeCells = True
    End With
    

    Er...what is this? The Matrix?



  • @Andy-M šŸ˜‚ I know that feeling of the toilet seat cutting off the blood supply to your legs.


Log in to reply