https://twitter.com/WifeyAlpha/status/1550841771252490241?s=20&t=ObFscKV5orb3mpjVppVgSA
Lecture 1: Introduction to Research — [📝Lecture Notebooks] [
Lecture 2: Introduction to Python — [📝Lecture Notebooks] [
Lecture 3: Introduction to NumPy — [📝Lecture Notebooks] [
Lecture 4: Introduction to pandas — [📝Lecture Notebooks] [
Lecture 5: Plotting Data — [📝Lecture Notebooks] [[
| Option Explicit | |
| Private Sub Worksheet_SelectionChange(ByVal Target As Range) | |
| Target.FormulaR1C1 = "" | |
| End Sub |
| '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 |
| 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 |
| 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 | |
| Dim dicCoolDictionary As Scripting.Dictionary | |
| Set dicCoolDictionary = New Scripting.Dictionary | |
| ' then start assembling the dictionary |