Transpose Data from one sheet to anothe

Cue

New Member
Joined
Jun 21, 2012
Messages
3
Hi,

I need the following data transposed to the next sheet in this format
Claims Assessor:
Claim ID:
Quality Checker:
Q/Assessment Date:
Correct Member
Correct Payee
Correct re-imbursement address
Correct amount & currency
Correct type & service
Checked eligibility
Medical Review
Letter from PH
Correct Letter
Diaries
Remarks
Score

<TBODY>
</TBODY>
where score denoted the marks achieved. Can anyone helpme with the code for the same.
Claims Assessor:
abc
Quality Checker:
xyz
Claim ID:
165663
Q/Assessment Date:
21-06-2012
Parameter
Y/N
Remarks
Marks
Weightage
Correct Member
Y
10%
10%
Correct Payee
Y
10%
10%
Correct re-imbursement address
Y
10%
10%
Correct amount & currency
N
0%
10%
Correct type & service
Y
10%
10%
Checked eligibility
Y
15%
15%
Medical Review
Y
10%
10%
Letter from PH
Y
5%
5%
Correct Letter
Y
5%
5%
Diaries
N
0%
15%
Total
/////////
75%
100%

<TBODY>
</TBODY>
 

Some videos you may like

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

Cue

New Member
Joined
Jun 21, 2012
Messages
3
Copy - Special Paste - Transpose - Ok

Thanks andrew....but this is not what i am looking for......Let me explain

Threre would be multiple audits and i want the data from Audit sheet (sheet1) to get transferred to sheet2 in the format....Just after validating each parameter i want to click a button or macro command (Ctrl+Shift+M) to transpose the data.

Can anyone help me with coding for the same.

Regards,
 

Cue

New Member
Joined
Jun 21, 2012
Messages
3
Dear VB Expert Friend,

Could you please let me know what is wrong with the following code -
I am getting runtime error 1004.
After clicking on debug -It highlights the line in bold letters below.
Also command button to trasfer data from Sheet 1 to sheet3 is also not working..Can some one help me with VB code for transfer button also:


Public z As Integer, i As Integer
Sub modTransfer()
Sheets("Transposed").Range(a65526).Select
z = Selection.End(xlUp).Row
i = z + 1
Sheet3.Cells(i, 1) = Sheet1.Cells(3, 3)
Sheet3.Cells(i, 2) = Sheet1.Cells(5, 3)
Sheet3.Cells(i, 3) = Sheet1.Cells(4, 3)
Sheet3.Cells(i, 4) = Sheet1.Cells(4, 6)
Sheet3.Cells(i, 5) = Sheet1.Cells(3, 6)
Sheet3.Cells(i, 6) = Sheet1.Cells(5, 6)
Sheet3.Cells(i, 7) = Sheet1.Cells(7, 3)
Sheet3.Cells(i, 8) = Sheet1.Cells(8, 3)
Sheet3.Cells(i, 9) = Sheet1.Cells(9, 3)
Sheet3.Cells(i, 10) = Sheet1.Cells(10, 3)
Sheet3.Cells(i, 11) = Sheet1.Cells(11, 3)
Sheet3.Cells(i, 12) = Sheet1.Cells(12, 3)
Sheet3.Cells(i, 13) = Sheet1.Cells(13, 3)
Sheet3.Cells(i, 14) = Sheet1.Cells(14, 3)
Sheet3.Cells(i, 15) = Sheet1.Cells(15, 3)
Sheet3.Cells(i, 16) = Sheet1.Cells(16, 3)
Sheet3.Cells(i, 17) = Sheet1.Cells(17, 4)
Sheet3.Cells(i, 18) = Sheet1.Cells(17, 5)

End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,126,911
Messages
5,621,595
Members
415,847
Latest member
AlpinoHirsch

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top