Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Sub AppendReceiptRawData() Dim strSourceFilePath As String strSourceFilePath = GetFile Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim s1 As Worksheet Dim s2 As Worksheet Dim s3 As Worksheet Set xlapp = CreateObject("excel.application") Set xlbook = xlapp.Workbooks.Open(strSourceFilePath) xlapp.Visible = True Set s1 = xlbook.Sheets("New Error Transactions Recieved") Set s2 = xlbook.Sheets("Summary") Set s3 = xlbook.Sheets("Error Count by Message ID") s1.Activate s1.Rows("1:3").Select With Selection .MergeCells = False End With Dim rng As Range Set rng = s1.Range("B5") 'ERROR OCCURS HERE rng(Selection, Selection.End(xlDown)).Select rng(Selection, Selection.End(xlToRight)).Select Selection.Copy Application.WindowState = xlMinimized Windows("HIP INVENTORY TRACKING.xls").Activate Range("A24034").Select ActiveSheet.Paste With Selection .MergeCells = False End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!