danwagnerco

Sentiment

Weekly CBOE VIX Futures links

• Open Interest
• Dealer Shorts ("Commercial Hedgers", "Sharpies")
• Dealer Longs
• Asset Manager Shorts ("Large Speculators", "Riff Raff")
• Asset Manager Longs

danwagnerco

NASA Notes

• @TheRealNasa00 on Twitter
• @TheRealNasa00 on YouTube

1. Principles
2. Technical Analysis
3. 2022-02-25 trades on $BAC, $BIDU, and $CRWD (Youtube)

Principles

danwagnerco

Wifey Alpha Research Threads

@WifeyAlpha on Twitter

1. Regimes & Correlations
2. Risk On/Off Bull/Bear Markets
3. The Vix
4. Normie Starter Pack
5. Piglet Pack
6. Pig Pack

danwagnerco

Lecture 1: Introduction to Research — [📝Lecture Notebooks] [▶️Video]
Lecture 2: Introduction to Python — [📝Lecture Notebooks] [▶️Video]
Lecture 3: Introduction to NumPy — [📝Lecture Notebooks] [▶️Video]
Lecture 4: Introduction to pandas — [📝Lecture Notebooks] [▶️Video]
Lecture 5: Plotting Data — [📝Lecture Notebooks] [[▶️Vide

danwagnerco

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.FormulaR1C1 = ""
End Sub

danwagnerco

'don't do this anymore:
DataBlock.SpecialCells(xlCellTypeVisible).Copy Destination:=Target.Cells(1, 1)

'instead try this:
Dim rngDestination As Range 'this should be way up at the top with all the other declarations

' ... all the other code
Set rngDestination = Target.Cells(1, 1)
DataBlock.SpecialCells(xlCellTypeVisible).Copy
rngDestination.PasteSpecial xlPasteType:=xlPasteValuesAndNumberFormats

danwagnerco

Option Explicit
Public Sub CombineManyWorkbooksIntoOneWorksheet()
    
    Dim strDirContainingFiles As String, strFile As String, _
        strFilePath As String
    Dim wbkDst As Workbook, wbkSrc As Workbook
    Dim wksDst As Worksheet, wksSrc As Worksheet
    Dim lngIdx As Long, lngSrcLastRow As Long, _
        lngSrcLastCol As Long, lngDstLastRow As Long, _
        lngDstLastCol As Long, lngDstFirstFileRow As Long

danwagnerco

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim wksLookups As Worksheet
    Dim lngFirstRow As Long, lngLastRow As Long
    
    'Get the Worksheet so we can confidently identify
    'the Range that we'll be highlighting (if need be)
    Set wksLookups = Target.Parent
    

danwagnerco

Dim dicCoolDictionary As Scripting.Dictionary
Set dicCoolDictionary = New Scripting.Dictionary
' then start assembling the dictionary

danwagnerco

Dim variable as SomeObjectType
Set variable = New SomeObjectType