subject:"Re\: $$Excel\-Macros$$ Transpose data"

Re: $$Excel-Macros$$ Transpose data

2014-08-31 Thread Ashish Kumar

Hi Vaibhav,

Macro sheet or Formula sheet both are working fine.

Great work bro...!!!


Regards
Ashish

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Transpose data

2014-08-31 Thread Vaibhav Joshi

Cheers.
On Aug 31, 2014 1:41 PM, "Rupesh Patil"  wrote:

> Hi Vaibhav,
>
> Very very thanks,
> it is working  as expected.
>
>
> Thanks and regards
> Rupesh
>
>
> On Sun, Aug 31, 2014 at 12:44 PM, Vaibhav Joshi  wrote:
>
>> Cheers Bro..
>>
>> Check this it has macro, i assume if lines are in millions than formula
>> will get slower..
>>
>> Click run macro, select input sheet having data, select output sheet &
>> done..
>>
>> Cheers!!
>>
>>
>> On Sun, Aug 31, 2014 at 10:29 AM, Ashish Kumar > > wrote:
>>
>>> Hi Vaibhav,
>>>
>>> Bro its superb solution.
>>>
>>>
>>> Regards
>>> Ashish
>>>
>>
>>  --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/d/optout.
>>
>
>  --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Transpose data

2014-08-31 Thread Rupesh Patil

Hi Vaibhav,

Very very thanks,
it is working  as expected.


Thanks and regards
Rupesh


On Sun, Aug 31, 2014 at 12:44 PM, Vaibhav Joshi  wrote:

> Cheers Bro..
>
> Check this it has macro, i assume if lines are in millions than formula
> will get slower..
>
> Click run macro, select input sheet having data, select output sheet &
> done..
>
> Cheers!!
>
>
> On Sun, Aug 31, 2014 at 10:29 AM, Ashish Kumar 
> wrote:
>
>> Hi Vaibhav,
>>
>> Bro its superb solution.
>>
>>
>> Regards
>> Ashish
>>
>
>  --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Transpose data

2014-08-31 Thread Vaibhav Joshi

Cheers Bro..

Check this it has macro, i assume if lines are in millions than formula
will get slower..

Click run macro, select input sheet having data, select output sheet &
done..

Cheers!!

On Sun, Aug 31, 2014 at 10:29 AM, Ashish Kumar 
wrote:

> Hi Vaibhav,
>
> Bro its superb solution.
>
>
> Regards
> Ashish
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Transpose.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12

Re: $$Excel-Macros$$ Transpose data

2014-08-30 Thread Ashish Kumar

Hi Vaibhav,

Bro its superb solution.


Regards
Ashish

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Transpose data

2014-08-30 Thread Vaibhav Joshi

Check this...

You need to copy paste row to down to get values for more data.


Cheers!


On Sat, Aug 30, 2014 at 4:08 PM, Rupesh Patil 
wrote:

> Thanks for reply
> Please see workbook attach,
> in this workbook sheet1 have input data and in Sheet2 output should like
> this.
>
>
>
>
> On Sat, Aug 30, 2014 at 3:56 PM, Ashish Kumar 
> wrote:
>
>> What kind of output you want….!
>>
>>
>>
>> *From:* excel-macros@googlegroups.com [mailto:
>> excel-macros@googlegroups.com] *On Behalf Of *Rupesh Patil
>> *Sent:* Saturday, August 30, 2014 3:08 PM
>> *To:* excel-macros@googlegroups.com
>> *Subject:* $$Excel-Macros$$ Transpose data
>>
>>
>>
>> Dear Expert,
>>
>>
>>
>> I need one micro or formula which transpose data.
>>
>>
>>
>> Sample file attach with mail with explanation.
>>
>> please help me out
>>
>>
>>
>> Thanks and regards
>>
>>
>>
>> Rupesh
>>
>> --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/d/optout.
>>
>>
>> --
>>
>>
>> This email is free from viruses and malware because avast! Antivirus
>>  protection is active.
>>
>>  --
>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
>> https://www.facebook.com/discussexcel
>>
>> FORUM RULES
>>
>> 1) Use concise, accurate thread titles. Poor thread titles, like Please
>> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
>> will not get quick attention or may not be answered.
>> 2) Don't post a question in the thread of another member.
>> 3) Don't post questions regarding breaking or bypassing any security
>> measure.
>> 4) Acknowledge the responses you receive, good or bad.
>> 5) Jobs posting is not allowed.
>> 6) Sharing copyrighted material and their links is not allowed.
>>
>> NOTE : Don't ever post confidential data in a workbook. Forum owners and
>> members are not responsible for any loss.
>> ---
>> You received this message because you are subscribed to the Google Groups
>> "MS EXCEL AND VBA MACROS" group.
>> To unsubscribe from this group and stop receiving emails from it, send an
>> email to excel-macros+unsubscr...@googlegroups.com.
>> To post to this group, send email to excel-macros@googlegroups.com.
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/d/optout.
>>
>
>  --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? An

Re: $$Excel-Macros$$ Transpose data

2014-08-30 Thread Rupesh Patil

Thanks for reply
Please see workbook attach,
in this workbook sheet1 have input data and in Sheet2 output should like
this.




On Sat, Aug 30, 2014 at 3:56 PM, Ashish Kumar 
wrote:

> What kind of output you want….!
>
>
>
> *From:* excel-macros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On Behalf Of *Rupesh Patil
> *Sent:* Saturday, August 30, 2014 3:08 PM
> *To:* excel-macros@googlegroups.com
> *Subject:* $$Excel-Macros$$ Transpose data
>
>
>
> Dear Expert,
>
>
>
> I need one micro or formula which transpose data.
>
>
>
> Sample file attach with mail with explanation.
>
> please help me out
>
>
>
> Thanks and regards
>
>
>
> Rupesh
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
>
> --
>
>
> This email is free from viruses and malware because avast! Antivirus
>  protection is active.
>
>  --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.


testdata.xlsx
Description: MS-Excel 2007 spreadsheet

RE: $$Excel-Macros$$ Transpose data

2014-08-30 Thread Ashish Kumar

What kind of output you want….!

From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On 
Behalf Of Rupesh Patil
Sent: Saturday, August 30, 2014 3:08 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Transpose data

Dear Expert,

I need one micro or formula which transpose data.

Sample file attach with mail with explanation.

please help me out 

Thanks and regards   

Rupesh

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

---
This email is free from viruses and malware because avast! Antivirus protection 
is active.
http://www.avast.com

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Re: $$Excel-Macros$$ Transpose Data from cell to columns

2011-09-14 Thread karan 1237

Thnx to all for this great help..!


Kaяan

 

 
 




On Tue, Sep 13, 2011 at 9:08 PM, NOORAIN ANSARI wrote:

> Dear karan,
>
> By Excel
> Use formula *=SUBSTITUTE(A1,CHAR(10),"-") * in second Column, and Copy and
> Paste it as value, then normal you can use Text to column
>  .
>
>
> On Tue, Sep 13, 2011 at 5:02 PM, karan 1237  wrote:
>
>> Dear Noorain thanks for replying, but still my query has not solved. I
>> want to transpose data from cell to columns, I don't want to do Text to
>> columns. Please see attached file.
>>
>>
>> Kaяan
>>
>>  
>> 
>> 
>>  
>> 
>>
>>
>>
>>
>> On Tue, Sep 13, 2011 at 4:14 PM, NOORAIN ANSARI > > wrote:
>>
>>> **Dear Karan,
>>>
>>> Please see attached Sheet
>>> **
>>> **
>>> *Sub cell_Transpose()
>>> Dim i, j, z, x, d As Long
>>> Dim k As Boolean
>>> Dim st As Long
>>> Dim abc, xyz As String
>>> On Error GoTo errh
>>> Range("A65356").Select
>>> Selection.End(xlUp).Select
>>> z = ActiveCell.Row
>>> For x = 1 To z
>>> d = 1
>>> st = 2
>>> Range("a" & x).Select
>>> abc = ActiveCell.Value
>>> For i = st To Len(abc)
>>> If i > Len(abc) Then
>>> Range("a" & x).Offset(0, d).Value = abc
>>> Exit For
>>> End If
>>> If Asc(Mid(abc, i, 1)) > 64 And Asc(Mid(abc, i, 1)) < 91 Then
>>> Range("a" & x).Offset(0, d).Value = Left(abc, i - 1)
>>> xyz = Right(abc, Len(abc) - i + 1)
>>> abc = xyz
>>> i = 1
>>> d = d + 1
>>> End If
>>> Next i
>>> If Len(Range("a" & x).Value) = Len(abc) Then
>>> Range("a" & x).Offset(0, 1).Value = Range("a" & x).Value
>>> End If
>>> Next x
>>> errh:
>>>  Exit Sub
>>> End Sub
>>>
>>> *
>>>   On Tue, Sep 13, 2011 at 2:35 PM, karan 1237 wrote:
>>>
 Dear All,

 I'v to transpose data from a cell to columns. Please solve my query.


 Thnx in advance
  Kaяan

 
 
 
 
 
  


 --

 --
 Some important links for excel users:
 1. Follow us on TWITTER for tips tricks and links :
 http://twitter.com/exceldailytip
 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
 3. Excel tutorials at http://www.excel-macros.blogspot.com
 4. Learn VBA Macros at http://www.quickvba.blogspot.com
 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com

 To post to this group, send email to excel-macros@googlegroups.com

 <><><><><><><><><><><><><><><><><><><><><><>
 Like our page on facebook , Just follow below link
 http://www.facebook.com/discussexcel

>>>
>>>
>>>
>>> --
>>> Thanks & regards,
>>> Noorain Ansari
>>>  
>>> *http://excelmacroworld.blogspot.com/*
>>> *http://noorain-ansari.blogspot.com/*
>>>
>>> --
>>>
>>> --
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> Like our page on facebook , Just follow below link
>>> http://www.facebook.com/discussexcel
>>>
>>
>>   --
>>
>> --
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http:

Re: $$Excel-Macros$$ Transpose Data from cell to columns

2011-09-13 Thread NOORAIN ANSARI

Dear karan,

By Excel
Use formula *=SUBSTITUTE(A1,CHAR(10),"-") * in second Column, and Copy and
Paste it as value, then normal you can use Text to column
.


On Tue, Sep 13, 2011 at 5:02 PM, karan 1237  wrote:

> Dear Noorain thanks for replying, but still my query has not solved. I want
> to transpose data from cell to columns, I don't want to do Text to columns.
> Please see attached file.
>
>
> Kaяan
>
>  
> 
> 
>  
> 
>
>
>
>
> On Tue, Sep 13, 2011 at 4:14 PM, NOORAIN ANSARI 
> wrote:
>
>> **Dear Karan,
>>
>> Please see attached Sheet
>> **
>> **
>> *Sub cell_Transpose()
>> Dim i, j, z, x, d As Long
>> Dim k As Boolean
>> Dim st As Long
>> Dim abc, xyz As String
>> On Error GoTo errh
>> Range("A65356").Select
>> Selection.End(xlUp).Select
>> z = ActiveCell.Row
>> For x = 1 To z
>> d = 1
>> st = 2
>> Range("a" & x).Select
>> abc = ActiveCell.Value
>> For i = st To Len(abc)
>> If i > Len(abc) Then
>> Range("a" & x).Offset(0, d).Value = abc
>> Exit For
>> End If
>> If Asc(Mid(abc, i, 1)) > 64 And Asc(Mid(abc, i, 1)) < 91 Then
>> Range("a" & x).Offset(0, d).Value = Left(abc, i - 1)
>> xyz = Right(abc, Len(abc) - i + 1)
>> abc = xyz
>> i = 1
>> d = d + 1
>> End If
>> Next i
>> If Len(Range("a" & x).Value) = Len(abc) Then
>> Range("a" & x).Offset(0, 1).Value = Range("a" & x).Value
>> End If
>> Next x
>> errh:
>>  Exit Sub
>> End Sub
>>
>> *
>>   On Tue, Sep 13, 2011 at 2:35 PM, karan 1237 wrote:
>>
>>> Dear All,
>>>
>>> I'v to transpose data from a cell to columns. Please solve my query.
>>>
>>>
>>> Thnx in advance
>>> Kaяan
>>>
>>> 
>>> 
>>> 
>>> 
>>>  
>>> 
>>>
>>>
>>> --
>>>
>>> --
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> Like our page on facebook , Just follow below link
>>> http://www.facebook.com/discussexcel
>>>
>>
>>
>>
>> --
>> Thanks & regards,
>> Noorain Ansari
>>  *http://excelmacroworld.blogspot.com/*
>> *http://noorain-ansari.blogspot.com/*
>>
>> --
>>
>> --
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>   --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>



-- 
Thanks & regards,
Noorain Ansari
 *http://excelmacroworld.blogspot.com/*
*http://noorain-ansari.blogspot.com/* 

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at h

Re: $$Excel-Macros$$ Transpose Data from cell to columns

2011-09-13 Thread dguillett1

This should do it. Try it!!

Sub breakitupSAS()
Dim mc As Range
Set mc = Range("a1")
mc.TextToColumns Destination:=mc, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
Other:=True, OtherChar:="" & Chr(10)
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
End Sub

From: karan 1237 
Sent: Tuesday, September 13, 2011 4:05 AM
To: excel-macros@googlegroups.com 
Subject: $$Excel-Macros$$ Transpose Data from cell to columns

Dear All,

I'v to transpose data from a cell to columns. Please solve my query.


Thnx in advance

Kaяan 

   



-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com

To post to this group, send email to excel-macros@googlegroups.com
 
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Re: $$Excel-Macros$$ Transpose Data from cell to columns

2011-09-13 Thread Prince Maurya

Select the data u want to transpose copy it...then right ckick to another
location then select paste special from the list..check on transpose box &
click ok.

On Tue, Sep 13, 2011 at 2:35 PM, karan 1237  wrote:

> Dear All,
>
> I'v to transpose data from a cell to columns. Please solve my query.
>
>
> Thnx in advance
> Kaяan
>
>  
> 
> 
>  
> 
>
>
> --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Re: $$Excel-Macros$$ Transpose Data from cell to columns

2011-09-13 Thread SridharBL

Copy the Texts from the Formula Bar. This will copy as individual data's, 
paste this on empty cells. Paste special Transpose.

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Re: $$Excel-Macros$$ Transpose Data from cell to columns

2011-09-13 Thread karan 1237

Dear Noorain thanks for replying, but still my query has not solved. I want
to transpose data from cell to columns, I don't want to do Text to columns.
Please see attached file.


Kaяan

 

 
 




On Tue, Sep 13, 2011 at 4:14 PM, NOORAIN ANSARI wrote:

> **Dear Karan,
>
> Please see attached Sheet
> **
> **
> *Sub cell_Transpose()
> Dim i, j, z, x, d As Long
> Dim k As Boolean
> Dim st As Long
> Dim abc, xyz As String
> On Error GoTo errh
> Range("A65356").Select
> Selection.End(xlUp).Select
> z = ActiveCell.Row
> For x = 1 To z
> d = 1
> st = 2
> Range("a" & x).Select
> abc = ActiveCell.Value
> For i = st To Len(abc)
> If i > Len(abc) Then
> Range("a" & x).Offset(0, d).Value = abc
> Exit For
> End If
> If Asc(Mid(abc, i, 1)) > 64 And Asc(Mid(abc, i, 1)) < 91 Then
> Range("a" & x).Offset(0, d).Value = Left(abc, i - 1)
> xyz = Right(abc, Len(abc) - i + 1)
> abc = xyz
> i = 1
> d = d + 1
> End If
> Next i
> If Len(Range("a" & x).Value) = Len(abc) Then
> Range("a" & x).Offset(0, 1).Value = Range("a" & x).Value
> End If
> Next x
> errh:
>  Exit Sub
> End Sub
>
> *
> On Tue, Sep 13, 2011 at 2:35 PM, karan 1237  wrote:
>
>> Dear All,
>>
>> I'v to transpose data from a cell to columns. Please solve my query.
>>
>>
>> Thnx in advance
>>  Kaяan
>>
>>  
>> 
>> 
>>  
>> 
>>
>>
>> --
>>
>> --
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>
>
> --
> Thanks & regards,
> Noorain Ansari
>  *http://excelmacroworld.blogspot.com/*
> *http://noorain-ansari.blogspot.com/*
>
>  --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel


Query.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Re: $$Excel-Macros$$ Transpose Data by Formula

2011-06-13 Thread John A. Smith

STDEV(i),

Excellent!  Works like a charm.  If I would like to add a formula to the
total column, that would only pick up only the Order Qty amount, how would I
do that? (the order number is a six digit number and adds to the total)  I
would use =SUMIF(A$25:Z$25,"Order Qty",A26:Z26) after the fact, but how
would I change the VBA code to always do that?

I really appreciate the time you spend teaching others.  Thank you.

John



On Mon, Jun 13, 2011 at 1:30 AM, STDEV(i)  wrote:

> Dear  Mr. Smith,
>
> Please try and check this VBA Code, if it helps...
>
>
> Sub AbnormalizeYourTabel()
>' STDEV(i) / milis belajar-excel / 08 apr 2011
>' retouched for another table-structure
>' jakarta, Jun 12, 2011
>'---
>Dim Tbl As Range, NewTbl As Range
>Dim n As Long, r As Long, i As Long, tR As Long
>Dim c As Integer, u As Integer, TotQty As Double, ArtQty()
>Dim StrItm As String, Itm As String
>
>Set Tbl = Sheets("Data Transpose").Cells(1).CurrentRegion
>tR = Tbl.Rows.Count
>Set NewTbl = Tbl(tR + 6, 1)
>
>' searching UniqItems
>StrItm = "|"
>Application.Calculation = -4135 '=manual
>Application.ScreenUpdating = 0
>For i = 2 To tR
>   Itm = Tbl(i, 1) & "|"
>   If InStr(1, StrItm, Tbl(i, 1), 1) = 0 Then
>  r = r + 1
>  StrItm = StrItm & Itm
>  Tbl(i, 1).Resize(1, 2).Copy
>  NewTbl(r, 1).PasteSpecial 12
>   End If
> Next i
>
>' Repost all datas in New Table-Structure
>Application.CutCopyMode = False
>Set NewTbl = NewTbl.CurrentRegion
>ReDim ArtQty(1 To NewTbl.Rows.Count)
>For n = 1 To NewTbl.Rows.Count
>   c = 0: TotQty = 0
>   For i = 2 To tR
>  If NewTbl(n, 1) = Tbl(i, 1) Then
>  c = c + 3
> *TotQty = TotQty + Tbl(i, 3*)
> Tbl(i, 3).Resize(1, 3).Copy
> NewTbl(n, c).PasteSpecial 12
>  End If
>   Next i
>   *ArtQty(n) = TotQty*
>Next n
>Tbl.Resize(1, Tbl.Columns.Count - 2).Copy NewTbl(0, 1)
>u = (NewTbl.CurrentRegion.Columns.Count - 1)
>
>' Headings..
>Tbl(1, 3).Resize(1, 3).Copy
>For c = 3 To u Step 3
>   NewTbl(0, c).PasteSpecial xlAll
>Next c
>
> *   ' new column (Total Qty)*
>With NewTbl(0, c)
>   .Value = "TOTAL QTY"
>   .Font.Bold = True
>   .BorderAround Weight:=xlThin
>   .HorizontalAlignment = xlCenter
>   .VerticalAlignment = xlCenter
>   .WrapText = True
>End With
>For n = 1 To NewTbl.Rows.Count
>   NewTbl(n, c) = ArtQty(n)
>Next n
>
>Application.CutCopyMode = False
>Application.Calculation = -4105
>Application.ScreenUpdating = 1
>
> End Sub
>
>
>
>
> On Mon, Jun 13, 2011 at 2:07 AM, John A. Smith wrote:
>
>> Please, attached is an example of data which I need to transpose and a
>> pivot table doesn't do it...
>>
>> Thank you for your help.
>>
>> John
>>
>>
>>  --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Re: $$Excel-Macros$$ Transpose Data by Formula

2011-06-12 Thread STDEV(i)

Dear  Mr. Smith,

Please try and check this VBA Code, if it helps...


Sub AbnormalizeYourTabel()
   ' STDEV(i) / milis belajar-excel / 08 apr 2011
   ' retouched for another table-structure
   ' jakarta, Jun 12, 2011
   '---
   Dim Tbl As Range, NewTbl As Range
   Dim n As Long, r As Long, i As Long, tR As Long
   Dim c As Integer, u As Integer, TotQty As Double, ArtQty()
   Dim StrItm As String, Itm As String

   Set Tbl = Sheets("Data Transpose").Cells(1).CurrentRegion
   tR = Tbl.Rows.Count
   Set NewTbl = Tbl(tR + 6, 1)

   ' searching UniqItems
   StrItm = "|"
   Application.Calculation = -4135 '=manual
   Application.ScreenUpdating = 0
   For i = 2 To tR
  Itm = Tbl(i, 1) & "|"
  If InStr(1, StrItm, Tbl(i, 1), 1) = 0 Then
 r = r + 1
 StrItm = StrItm & Itm
 Tbl(i, 1).Resize(1, 2).Copy
 NewTbl(r, 1).PasteSpecial 12
  End If
   Next i

   ' Repost all datas in New Table-Structure
   Application.CutCopyMode = False
   Set NewTbl = NewTbl.CurrentRegion
   ReDim ArtQty(1 To NewTbl.Rows.Count)
   For n = 1 To NewTbl.Rows.Count
  c = 0: TotQty = 0
  For i = 2 To tR
 If NewTbl(n, 1) = Tbl(i, 1) Then
c = c + 3
*TotQty = TotQty + Tbl(i, 3*)
Tbl(i, 3).Resize(1, 3).Copy
NewTbl(n, c).PasteSpecial 12
 End If
  Next i
  *ArtQty(n) = TotQty*
   Next n
   Tbl.Resize(1, Tbl.Columns.Count - 2).Copy NewTbl(0, 1)
   u = (NewTbl.CurrentRegion.Columns.Count - 1)

   ' Headings..
   Tbl(1, 3).Resize(1, 3).Copy
   For c = 3 To u Step 3
  NewTbl(0, c).PasteSpecial xlAll
   Next c

*   ' new column (Total Qty)*
   With NewTbl(0, c)
  .Value = "TOTAL QTY"
  .Font.Bold = True
  .BorderAround Weight:=xlThin
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
  .WrapText = True
   End With
   For n = 1 To NewTbl.Rows.Count
  NewTbl(n, c) = ArtQty(n)
   Next n

   Application.CutCopyMode = False
   Application.Calculation = -4105
   Application.ScreenUpdating = 1

End Sub




On Mon, Jun 13, 2011 at 2:07 AM, John A. Smith wrote:

> Please, attached is an example of data which I need to transpose and a
> pivot table doesn't do it...
>
> Thank you for your help.
>
> John
>
>
>

-- 
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel


ctv_Abnormalize Your Normal Tabel.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: $$Excel-Macros$$ Transpose data

Re: $$Excel-Macros$$ Transpose data

Re: $$Excel-Macros$$ Transpose data

Re: $$Excel-Macros$$ Transpose data

Re: $$Excel-Macros$$ Transpose data

Re: $$Excel-Macros$$ Transpose data

Re: $$Excel-Macros$$ Transpose data

RE: $$Excel-Macros$$ Transpose data

Re: $$Excel-Macros$$ Transpose Data from cell to columns

Re: $$Excel-Macros$$ Transpose Data from cell to columns

Re: $$Excel-Macros$$ Transpose Data from cell to columns

Re: $$Excel-Macros$$ Transpose Data from cell to columns

Re: $$Excel-Macros$$ Transpose Data from cell to columns

Re: $$Excel-Macros$$ Transpose Data from cell to columns

Re: $$Excel-Macros$$ Transpose Data by Formula

Re: $$Excel-Macros$$ Transpose Data by Formula

16 matches

Site Navigation

Mail list logo

Footer information