We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Sub CopyTradeHistory() Dim wks As Worksheet Dim vSheets() As Variant Dim vSheetname As Variant Dim rngSrc As Range vSheets = Array("pm", "rm") On Error Resume Next Application.DisplayAlerts = False Application.ScreenUpdating = False For Each vSheetname In vSheets Set wks = ActiveWorkbook.Worksheets(vSheetname) Set rngSrc = wks.Cells.Find("Account Trade History") Set rngSrc = wks.Range(rngSrc, rngSrc.End(xlDown).End(xlDown).Offset(0, 11)) ActiveWorkbook.Worksheets(vSheetname & "_output").Delete Set wks = ActiveWorkbook.Worksheets.Add wks.Name = vSheetname & "_output" rngSrc.Copy wks.Range("A1") Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
|The formula is too long formulas should not be longer than 8192 characters||9||54|
|If condition and Date Ranges||13||43|
|Calculating earleist date and latest date based on MAX and MIN in Weeks and Days Late.||2||39|