Sheets("Actual & Flexed Workload").Activate lastRow = Range("A" & Rows.Count).End(xlUp).Row 'Get last row to fill down Range("B3").Select 'Get consistent begin cell ' Most likely will be january and each month I will get new month column Selection.End(xlToRight).Select 'move to end of row to add new month data in that col ActiveCell.Offset(0, 1).Select ' I need to get this cell range and save as rngFound so after getting data from another sheet I can come back and paste in this column 'Poor effort of catching active cell AFWrow = ActiveCell.Row AFWcol = ActiveCell.Column rngFound = Range("R" & AFWrow & "C" AFWcol ") ActiveCell.FormulaR1C1 = _ "=VLOOKUP(RC[-8],P01Currentmonth.csv!R1C24:R +lastRow+ C29,6,FALSE)" Windows("2011 U.S. Financial Plan.xls").Activate rngFound.Select Selection.AutoFill Destination:=Range(rngFound) Range(rngFound).Select
|Adding Text that self adjusts in a Cell||8||31|
|How to add the word OR to the front of each Excel value||4||36|
|FormulaArray VBA Issue||6||17|
|Pivot help - Display only Is Not Null||7||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!