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