Map column names to their short names [Closed]

Report
Posts
2
Registration date
Friday January 10, 2014
Status
Member
Last seen
January 14, 2014
-
Posts
2675
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
November 5, 2020
-
hi all,
i am trying to copy and paste columns like application id,application name,number in a worksheet in workbook1 to another worksheet in workbook2 with column names appname,num,appid(short names of the columns in the first worksheet and order is changed).
can anyone please help me how to map applicationid ->appid, applicationname->appname and so on.. and i also want to select both the source and destination workbooks and worksheets dynamically..can anyone please help me with this..thanks in advance

3 replies

Posts
2675
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
November 5, 2020
448
Hi Nithya,

Not clear what the problem is.

Make a copy of your workbook and change the names of the header in the copied workbook.

Not sure what you mean by " i also want to select both the source and destination workbooks and worksheets dynamically"

Best regards,
Trowa
Posts
2
Registration date
Friday January 10, 2014
Status
Member
Last seen
January 14, 2014

thanks Trowa for your reply ....this is the code i have tried

Dim lngSh1LastARow As Long
lngSh1LastARow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Sheet2").Range("C2:A" & lngSh1LastARow)
.FormulaR1C1 = "=Sheet1!RC"
.Value = .Value
End With
what i want is
workbbook1:sheet1 has
A B C
1 applicatinname applicationid number
2 applcation1 1 123
3 applcation2 2 454
4 applcation3 3 897
this values should get mapped into workbbook2:sheet2
A B C
1 num appname appid
2 123 application1 1
3 454 application2 2
4 897 application3 3

with my code ,the values are getting copied in the same order as they are in workbbook1.thanks again
Posts
2675
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
November 5, 2020
448
Hi Nithya,

Why do want to use a code for this?
You can just copy column C and paste it in column A, then copy column A:B and paste it in column B.

In code form the above actions would look like:
Sub RunMe()
Sheets("Sheet1").Columns("C:C").Copy Sheets("Sheet2").Columns("A:A")
Sheets("Sheet1").Columns("A:B").Copy Sheets("Sheet2").Columns("B:B")
End Sub

Best regards,
Trowa

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!