akatz66
asked on
VBA Transpose from one worksheet to another
Hi there,
I am trying to create a macro to copy the contents of what an employee enters into a sheet (cells c4:c13), copy and transpose to another sheet that has the same column headings, but transposed. Both sheets are protected, so I need code to unprotect the sheets and re-protect them both after as well. The copy sheet, productivitylog.xlsm should be opened and the data from the form should be pasted in (transposed) into the first empty row. I want the macro to be ctrl + t/
Both files will be located in:
Form worksheet: s:\andy\form.xlsm (sheet name "Log")
Copy Worksheet to be transposed to s:\andy\productivitylog.xl sm (sheet name "Booking Log"
The sheet that contains the form is cells c4:c13
copy sheet = columns a-j
I also attached a screen shot of the sheet i want it to be copied to. It should be transposed to a1:M1, but I really want it to find the first empty row and put it in there.
Thanks,
Andy
form.jpg
Copy-Sheet.jpg
I am trying to create a macro to copy the contents of what an employee enters into a sheet (cells c4:c13), copy and transpose to another sheet that has the same column headings, but transposed. Both sheets are protected, so I need code to unprotect the sheets and re-protect them both after as well. The copy sheet, productivitylog.xlsm should be opened and the data from the form should be pasted in (transposed) into the first empty row. I want the macro to be ctrl + t/
Both files will be located in:
Form worksheet: s:\andy\form.xlsm (sheet name "Log")
Copy Worksheet to be transposed to s:\andy\productivitylog.xl
The sheet that contains the form is cells c4:c13
copy sheet = columns a-j
I also attached a screen shot of the sheet i want it to be copied to. It should be transposed to a1:M1, but I really want it to find the first empty row and put it in there.
Thanks,
Andy
form.jpg
Copy-Sheet.jpg
ASKER CERTIFIED SOLUTION
membership
Create a free account to see this answer
Signing up is free and takes 30 seconds. No credit card required.
ASKER
thanks so much, you all are the best
ASKER