All possible outcomes to 12 questions in a spreadsheet

[Sebsy]

Hi - first time posting here. Hope you can help. I'll try and be as clear and as concise as possible.

I have 12 questions (which form part of an assessment). Each question carries a simple "Yes" or "No" answer. This gives me 4096 different possible outcomes (2^12), for a completed assessment.

Is there a formula/way of generating each possible outcome in a row/column?

Thanks for any help/advice

 

[oldbrewer]

best way is a simple macro - you need 12 loops each returning yes or no and each permutation printed in a list - will knock up a macro in about 10 minutes

 

[Sebsy]

Thank you very much. I was sure it would have been quite simple. Just lacked the knowledge!

 

[oldbrewer]

yes yes yes yes yes yes yes yes yes yes yes yes

yes yes yes yes yes yes yes yes yes yes yes no

yes yes yes yes yes yes yes yes yes yes no yes

yes yes yes yes yes yes yes yes yes yes no no

yes yes yes yes yes yes yes yes yes no yes yes

yes yes yes yes yes yes yes yes yes no yes no

yes yes yes yes yes yes yes yes yes no no yes

first 30 rows only displayed

yes yes yes yes yes yes yes yes yes no no no

yes yes yes yes yes yes yes yes no yes yes yes

macro used :

yes yes yes yes yes yes yes yes no yes yes no

yes yes yes yes yes yes yes yes no yes no yes

Sub Macro4()

yes yes yes yes yes yes yes yes no yes no no

'

yes yes yes yes yes yes yes yes no no yes yes

' Macro4 Macro

yes yes yes yes yes yes yes yes no no yes no

' Macro recorded 12/04/2019 by bob

yes yes yes yes yes yes yes yes no no no yes

'

yes yes yes yes yes yes yes yes no no no no

yes yes yes yes yes yes yes no yes yes yes yes

'

yes yes yes yes yes yes yes no yes yes yes no

Dim word(12)

yes yes yes yes yes yes yes no yes yes no yes

For a = 1 To 2

yes yes yes yes yes yes yes no yes yes no no

For b = 1 To 2

yes yes yes yes yes yes yes no yes no yes yes

For c = 1 To 2

yes yes yes yes yes yes yes no yes no yes no

For d = 1 To 2

yes yes yes yes yes yes yes no yes no no yes

For e = 1 To 2

yes yes yes yes yes yes yes no yes no no no

For f = 1 To 2

yes yes yes yes yes yes yes no no yes yes yes

For g = 1 To 2

yes yes yes yes yes yes yes no no yes yes no

For h = 1 To 2

yes yes yes yes yes yes yes no no yes no yes

For i = 1 To 2

yes yes yes yes yes yes yes no no yes no no

For j = 1 To 2

yes yes yes yes yes yes yes no no no yes yes

For k = 1 To 2

yes yes yes yes yes yes yes no no no yes no

For l = 1 To 2

z = 1

If a = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If b = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If c = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If d = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If e = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If f = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If g = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If h = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If i = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If j = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If k = 1 Then word(z) = "yes" Else word(z) = "no"

z = z + 1

If l = 1 Then word(z) = "yes" Else word(z) = "no"

z = 0

Sum = Sum + 1

If Sum > 5000 Then GoTo 999

For y = 1 To 12

answer = answer & word & " "

Next y

Cells(Sum, 1) = answer

answer = ""

Next l

Next k

Next j

Next i

Next h

Next g

Next f

Next e

Next d

Next c

Next b

Next a

999 End Sub

<colgroup><col span="16"></colgroup><tbody>
</tbody>

 

[Sebsy]

Thanks for this oldbrewer. for clarity do I just simply copy and paste this into VB?

 

[oldbrewer]

yes but sometimes better to paste into word, then copy into vb from there