Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
Sub PrepCNLT_ForVLOOKUP() ' ' PrepCNLT_ForVLOOKUP Macro Sheets("FormatCNLT").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Application.Run "'Daily Metrics.xlsm'!ConcateniateColAandColB" Columns("C:C").EntireColumn.AutoFit Range("G2").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],Yesterday,1,FALSE)" Range("G2").Select ' Need to add something here to autofill formula down no matter how many rows ' are in that column Selection.AutoFill Destination:=Range("G2:G418") Range("G2:G418").Select ' Without using absolute cell references. Columns("G:G").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A2").Select End Sub Sub NameTheNewlyConcatinatedRangeToYesterday() ' Range("C2").Select 'Same thing here, I need to select however many rows in the column, and name the 'range yesterday. It would be nice if this could get included into the above Sub Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Names.Add Name:="Yesterday", RefersToR1C1:= _ "=FormatCNLY!R2C3:R412C3" End Sub
|Excel VBA Save Sheets in Excel file as separate Excel Files||5||28|
|Excel - Increse columns in range by 5||6||21|
|Insert rows based on cell value vba||3||12|
|Excel VBA problem Error 1004||2||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
9 Experts available now in Live!