insert column in another workbook on a sheet1 from current workbook
excel vba
I have data i'm copying to another workbook, from my current workbook.
What I need:
after i copy data i need to insert a column at Column P in the other workbook.
And give the Column Header a name "Customer Price"
Thanks
fordraiders
I have data i'm copying to another workbook, from my current workbook.
Dim curWks As Worksheet
Dim templWks As Worksheet
Dim rngToCopy As Range
Set curWks = ActiveSheet
With curWks
Set rngToCopy = .Range("A1:AX65453", .Range("a1").End(xlToRight).End(xlDown))
End With
Workbooks.Open _
fileName:="C:\Program Files\enterprise\Customer Copy\Customer_Template.xlsx"
If ActiveSheet.Name = "Project Data" Then
Else
Sheets("project Data").Activate
End If
Set templWks = ActiveSheet
templWks.Cells.Select
templWks.Cells.Clear
' APPENDS DATA
rngToCopy.Copy _
Destination:=templWks.Range("A65453").End(xlUp)
' after i copy data i need to insert a column at Column P
Workbooks("Customer_Template.xlsx").Close SaveChanges:=True
Application.CutCopyMode = False
What I need:
after i copy data i need to insert a column at Column P in the other workbook.
And give the Column Header a name "Customer Price"
Thanks
fordraiders
Asked:
Who is Participating?
Pls try below, I have edited above code:
Sub CopyData()
Dim TrgtWB As Workbook
Dim curWks As Worksheet
Dim templWks As Worksheet
Dim rngToCopy As Range
Set curWks = ActiveSheet
With curWks
Set rngToCopy = .Range("A1:AX65453", .Range("a1").End(xlToRight).End(xlDown))
End With
Set TrgtWB = Workbooks.Open(Filename:="C:\Program Files\enterprise\Customer Copy\Customer_Template.xlsx")
If ActiveSheet.Name = "Project Data" Then
Else
Sheets("project Data").Activate
End If
Set templWks = ActiveSheet
templWks.Cells.Select
templWks.Cells.Clear
' APPENDS DATA
rngToCopy.Copy _
Destination:=templWks.Range("A65453").End(xlUp)
' after i copy data i need to insert a column at Column P
templWks.Columns("P:P").Insert
templWks.Range("P1").Value = "Customer Price"
TrgtWB.Close SaveChanges:=True
Application.CutCopyMode = False
End Sub
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
Try below:
Open in new window