Transpose Data from one sheet to anothe

[Cue]

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>

 

[andrewkard]

Copy - Special Paste - Transpose - Ok

 

[Cue]

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]

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