Free for PREMIUM members
[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now
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"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Open in new window
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
December’s Course of the Month is now available! Enroll to learn ITIL® Foundation best practices for delivering IT services effectively and efficiently.