Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
Private Function FormulaFiller(idata As String, iStart As String, iend As String) Dim rgCopy As Range, rgDelete As Range, rgFill As Range, rgClear As Range Set rgCopy = Evaluate(iStart & ":" & iend) 'Formulas in these cells will be copied down Set rgFill = Evaluate(idata) 'First piece of raw data Set rgFill = Range(rgFill, rgFill.Worksheet.Cells(Rows.count, rgFill.Column).End(xlUp)) 'All data in that column Set rgFill = rgCopy.Resize(rgFill.Rows.count) 'Fill formulas down in this range Set rgDelete = rgCopy.Offset(1, 0).Resize(rgCopy.Worksheet.UsedRange.Rows.count) rgDelete.ClearContents rgFill.SpecialCells(xlCellTypeFormulas).Interior.Color = RGB(237, 237, 4) rgCopy.AutoFill rgFill, xlFillCopy Application.CutCopyMode = False End Function
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!