Dear All,
I am working on an excel sheet which has 14 to 15 columns ofdata and I would like to copy some of the columns (according to the headername) and paste it to the next sheet. Sample below:
<tbody>
</tbody>
How the next sheet looks like:
<tbody>
</tbody>
My problem is the data columns changes every day i.e nextday while pulling the report, client name and data which is in column C would comein column B or E. Hence, I cannot give static code to copy the data. Please seethe below code which was written:
WS1.Cells.Find(what:="Engagement Manager").Select
ActiveCell.Offset(1, 0).Select
FC = ActiveCell.Column
I have tried in different forum and I am new to VBA codingas well.
Please guide me to copy the data till the last row.
Warm Regards
Switto
I am working on an excel sheet which has 14 to 15 columns ofdata and I would like to copy some of the columns (according to the headername) and paste it to the next sheet. Sample below:
Reviewed by | PACE | Client Name | Sub Engaging Parties | DUNS Number | GFIS Client ID |
ABCD | 23200176 | ITWORX EUROPE LIMITED | ITWORX LIMITED | 2783738 | 6656 |
ABC | 23210789 | SPOTIFY LIMITED | SPOTIFY LIMITED | 39028 | |
AB | 23210785 | SPOTIFY LIMITED | SPOTIFY FINANCE | 673526 | 7387 |
<tbody>
</tbody>
How the next sheet looks like:
Reviewed by | PACE | Client Name | DUNS Number |
<tbody>
</tbody>
My problem is the data columns changes every day i.e nextday while pulling the report, client name and data which is in column C would comein column B or E. Hence, I cannot give static code to copy the data. Please seethe below code which was written:
WS1.Cells.Find(what:="Engagement Manager").Select
ActiveCell.Offset(1, 0).Select
FC = ActiveCell.Column
I have tried in different forum and I am new to VBA codingas well.
Please guide me to copy the data till the last row.
Warm Regards
Switto
Last edited by a moderator: