Try This
Sub MakeCombination()
Dim Zero As Integer
Dim One As Integer
Zero = Range("A1").Value
One = Range("B1").Value
Dim Combination As Integer
Combination = Range("C1").Value
Dim st As String
For i = Combination To 1 Step -1
st = WorksheetFunction.Rept(Zero, Combination)
st = WorksheetFunction.Substitute(st, Zero, One, i)
Range("H" & Combination - i + 1).Value = "'" & st
Next
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Financeguy
Sent: Sunday, July 10, 2011 9:28 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Binary Combinations Using VBA
Hi All,
I'm trying to generate a list of binary combinations as follows:
cell A1: 0
cell A2: 1
cell A3: 7
I'm requesting help to create the following output in separate columns using
VBA:
0 0 0 0 0 0 1
0 0 0 0 0 1 0
0 0 0 0 1 0 0
and so on...... for a total of 2 ^ 7 times in columns A through G
Any help is much appreciated.
Thanks in advance,
Finance guy
--
----------------------------------------------------------------------------
------
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
Book2.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
