List need to arramge

[Sourav Mukherjee]

Hi I have a list of data which i Got from pivot table which is given below and i want those data in different format. Please help

Place Name

USA John
Rohan
Alex
Roxy

India Rahim
Sourav
Bikram

I want previous data in below mentioned format

USA John Rohan Alex Roxy
India Rahim Sourav Bikram

 

[Sourav Mukherjee]

Hi there is a issue with format please find below mention format.

The current format which i have

[TABLE="width: 128"]
<colgroup><col width="64" span="2" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]USA[/TD]
[TD="width: 64, align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD]India[/TD]
[TD="align: right"]5[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: right"]6[/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: right"]7

The format which i want



[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 263"]
<colgroup><col><col><col span="2"></colgroup><tbody>[TR]
[TD]USA[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD]India[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[MickG]

Based on your data in columns "A & B" starting "A1" then Results start "D1".

[COLOR="Navy"]Sub[/COLOR] MG05Jan51
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range("B:B").SpecialCells(xlCellTypeConstants, 2)
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng.Areas
    c = c + 1
    Cells(c, "D") = Dn(1).Offset(, -1)
    c = c + 1
    Cells(c, "E").Resize(, Dn.Count) = Application.Transpose(Dn.Value)
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Sourav Mukherjee]

Hi Mick,

Thanks for you reply..

Is there any other option to do the same through helper table or any other excel options I don't know VB coding and how to implement it..

 

[MickG]

This may help:-
To Save and Run Code:-
Copy code from Thread
In Your Data sheet , Click "Alt+F11",:- Vb Window appears.
From the VBWindow toolbar, Click "Insert" ,"Module":- New VBwindow appears .
Paste Code into this window.
Close Vbwindow.


On sheet Click "Developer tab", Click "Macro". Macro dialog box appears.
Select Macro (with same name) from List.
On the right of Dialog box Click "Run"
The Sheet should now be updated.
Regrds Mick