Move datd from one sheet to another using VBA

[lee2121]

Hi

I have one excel file with two sheets, sheet 1 contains approx 3500 rows of date which can de indentified by a code in column A it also has header which are numbered 1-25 (columns). In sheet two column A also contains a code which will match a code in sheet 1. Sheet 2 also contains some numbers in columns which have a header number which can be any number from 1-25 and i need to be able to click a button which will match a code from sheet 2 and take the numbers out of the columns and insert them into the correct column in sheet 1

I have looked at many solutions but just cannot figure out how to do this, please see attached images.

The column in sheets two will change there could be between 1 to 25 columns at any time as the columns only exist where there is data.

thank you.

Sheet1.PNG

Sheet2.PNG

[davesexcel]

Find the correct column and row, then place the data in that cell.

Please Login or Register  to view this content.

[lee2121]

thank you that code works great and is really clean, this is part of a larger project i'm working on and i need this code to work in my file which is set out a bit different from the example.

sheet 2 remains the same but sheet 1 has the code in the following column BE25 to BE4284 and the data the numbers go from K25 to AY25 down to K4284 to AY4284 how can i make your code fill this range on my new sheet 1?

thank you.

[davesexcel]

Change it to the actual ranges you want to search.

Please Login or Register  to view this content.

[lee2121]

Thank you i ran the code as seen below i get no error but also no data is inserted maybe i have the ranges set up wrong.

Please Login or Register  to view this content.

Sheet1 new.PNG


'
End Sub

[davesexcel]

Looking at the image, the row is 23 not 25

[lee2121]

Sorry it was my mistake thank you works brilliantly.