PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account 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" rngSrc.Copy wks.Range("A1") Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|NEED TO DO 2 OR 3 OR 4 NUMBERS LOOK UP||2||22|
|drag and drop a row in excel 2010||5||44|
|Content of a read only textbox are not being saved in table in asp.net - VB||5||32|
|Could not use "; file already in use EXCEL 2016 VBA||3||6|
Join the community of 500,000 technology professionals and ask your questions.