Join Header Text into separate cells based on conditions of data below headers.

M

Markalon

New Member
Joined
Aug 22, 2014
Messages
11
Hi all. Need some help here. What I have:


[TABLE="width: 500"]
<tbody>[TR]
[TD]Model[/TD]
[TD]Option[/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
</tbody>[/TABLE]

Need to comma delimit groupings of Models and Options based on True False condition. So, what I want:

[TABLE="width: 500"]
<tbody>[TR]
[TD]Model[/TD]
[TD]Option[/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]2[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD]A,B[/TD]
[TD]1,4[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
[TR]
[TD]A[/TD]
[TD]3[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]1,2,4[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
</tbody>[/TABLE]


I hope this is clear enough. Any help would be greatly appreciated. And thanks in advance.
 
Sort by date Sort by votes
Try this:-
Code: 
[COLOR="Navy"]Sub[/COLOR] MG22Aug03
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Str [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("c2"), Range("C" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]For[/COLOR] Ac = 1 To 2
        [COLOR="Navy"]If[/COLOR] Dn(, Ac) = True [COLOR="Navy"]Then[/COLOR] Str = Str & ", " & Cells(1, Ac + 2)
    [COLOR="Navy"]Next[/COLOR] Ac
        Dn.Offset(, -2).Value = Mid(Str, 2)
        Str = ""
    [COLOR="Navy"]For[/COLOR] Ac = 3 To 6
        [COLOR="Navy"]If[/COLOR] Dn(, Ac) = True [COLOR="Navy"]Then[/COLOR] Str = Str & ", " & Cells(1, Ac + 2)
    [COLOR="Navy"]Next[/COLOR] Ac
        Dn.Offset(, -1).Value = Mid(Str, 2)
        Str = ""
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
For Model you could use the following formula (and fill down):
=IF(AND(TEXT(C2,0)="TRUE",TEXT(D2,0)="TRUE"),$C$1&","&$D$1,IF(AND(TEXT(C2,0)="true",TEXT(D2,0)="false"),$C$1,IF(AND(TEXT(C2,0)="false",TEXT(D2,0)="true"),$D$1,IF(AND(TEXT(C2,0)="false",TEXT(D2,0)="false"),""))))


For the Option column, it gets slightly more complicated but you can either apply the same methodology as above but add more steps or check out adding a UDF here .
 
Upvote 0
MickG said:
Try this:-
Code: 
[COLOR=Navy]Sub[/COLOR] MG22Aug03
[COLOR=Navy]Dim[/COLOR] Rng [COLOR=Navy]As[/COLOR] Range, Dn [COLOR=Navy]As[/COLOR] Range
[COLOR=Navy]Dim[/COLOR] Ac [COLOR=Navy]As[/COLOR] [COLOR=Navy]Integer[/COLOR]
[COLOR=Navy]Dim[/COLOR] Str [COLOR=Navy]As[/COLOR] [COLOR=Navy]String[/COLOR]
[COLOR=Navy]Set[/COLOR] Rng = Range(Range("c2"), Range("C" & Rows.Count).End(xlUp))
[COLOR=Navy]For[/COLOR] [COLOR=Navy]Each[/COLOR] Dn [COLOR=Navy]In[/COLOR] Rng
    [COLOR=Navy]For[/COLOR] Ac = 1 To 2
        [COLOR=Navy]If[/COLOR] Dn(, Ac) = True [COLOR=Navy]Then[/COLOR] Str = Str & ", " & Cells(1, Ac + 2)
    [COLOR=Navy]Next[/COLOR] Ac
        Dn.Offset(, -2).Value = Mid(Str, 2)
        Str = ""
    [COLOR=Navy]For[/COLOR] Ac = 3 To 6
        [COLOR=Navy]If[/COLOR] Dn(, Ac) = True [COLOR=Navy]Then[/COLOR] Str = Str & ", " & Cells(1, Ac + 2)
    [COLOR=Navy]Next[/COLOR] Ac
        Dn.Offset(, -1).Value = Mid(Str, 2)
        Str = ""
[COLOR=Navy]Next[/COLOR] Dn
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]
Regards Mick
Click to expand...



Mick,

First, thank you for the reply. Second, I was thinking more along the lines of comparison formula(s). I'm not sure what to do with this code or how to use it. My apologies for my ignorance.
 
Upvote 0
anglais428 said:
For Model you could use the following formula (and fill down):
=IF(AND(TEXT(C2,0)="TRUE",TEXT(D2,0)="TRUE"),$C$1&","&$D$1,IF(AND(TEXT(C2,0)="true",TEXT(D2,0)="false"),$C$1,IF(AND(TEXT(C2,0)="false",TEXT(D2,0)="true"),$D$1,IF(AND(TEXT(C2,0)="false",TEXT(D2,0)="false"),""))))


For the Option column, it gets slightly more complicated but you can either apply the same methodology as above but add more steps or check out adding a UDF here .
Click to expand...


This is fantastic, and what I was looking for, except for the fact that I kind of simplified my table a bit. For the models, I actually have 4 different mixes. For the options, I have about 30. Looks like this formula is developed with every combination possible, which as you said, would make it more complicated, especially for the 30+ options.
 
Upvote 0
Perhaps I should be a little more specific:

What I have:


[TABLE="class: cms_table, width: 500"]
<tbody>[TR]
[TD]Model[/TD]
[TD]Option[/TD]
[TD]Mod1
[/TD]
[TD]Mod2
[/TD]
[TD]Op1
[/TD]
[TD]Op2
[/TD]
[TD]Op3
[/TD]
[TD]Op4
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
</tbody>[/TABLE]


Need to comma delimit groupings of Models and Options based on True False condition. So, what I want:

[TABLE="class: cms_table, width: 500"]
<tbody>[TR]
[TD]Model[/TD]
[TD]Option[/TD]
[TD]Mod1
[/TD]
[TD]Mod2
[/TD]
[TD]Op1
[/TD]
[TD]Op2
[/TD]
[TD]Op3
[/TD]
[TD]Op4
[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]2[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD]A,B[/TD]
[TD]1,4[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
[TR]
[TD]A[/TD]
[TD]3[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD]1,2,4[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]TRUE[/TD]
[TD]FALSE[/TD]
[TD]TRUE[/TD]
[/TR]
</tbody>[/TABLE]



I actually have 4+ models, and 30+ options in this table.
 
Upvote 0
I think you need to use VBA in this case.
BTW MickG's code works well.
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Solved
How do I increase efficiency or stop the lag?
Replies
3
Views
238
Aphten
A
B
  • Question Question
Excel VBA Object Variable or With Block Variable Not Set Error
2 3 4
Replies
30
Views
1K
Alex Blakenburg
A
G
  • Solved
How to Solve Undesirable Alt key Behavior?
2
Replies
12
Views
479
Jaafar Tribak
Jaafar Tribak
C
  • Solved
Changing "," to ";" in split .csv files
Replies
5
Views
137
CamBF
C
C
  • Question Question
Conditional Formatting Rules Order Not What Expected
Replies
0
Views
57
ColoKevMan
C

Share this page

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
Back
Top