martinrall
New Member
- Joined
- Dec 12, 2022
- Messages
- 2
- Office Version
- 365
- Platform
- Windows
Sheets both have the same number of columns and same type of data FSL throws a 400. How could this be?
omLeftOrAbove
[/CODE]
VBA Code:
'TSR
Set wb1 = Workbooks.Open(mypath)
wb1.Sheets("TSR").Columns("AB:AB").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
wb1.Sheets("TSR").Columns("AC:AC").Select
Selection.Copy
wb1.Sheets("TSR").Columns("AB:AB").Select
wb1.Sheets("TSR").Paste
wb1.Sheets("TSR").Columns("AC:AC").Select
Application.CutCopyMode = False
Selection.ClearContents
wb1.Sheets("TSR").Columns("AC:AC").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'FSL
wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AB:AB").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AC:AC").Select
Selection.Copy
wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AB:AB").Select
wb1.Sheets("FSL-PARTS DROPS - CORE").Paste
wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AC:AC").Select
Application.CutCopyMode = False
Selection.ClearContents
wb1.Sheets("FSL PARTS DROPS").Columns("AC:AC").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFr
[/CODE]