Hi Try This Sub MakeCobmination()
Application.ScreenUpdating = False
Dim t As Double
Dim Digit As Double
Dim SS As Double
Dim j As Double
Combination = InputBox("Enter Digit ")
SS = 2 ^ Combination
If Val(Combination) > 20 Then
MsgBox "you Can give till 20 ", vbInformation
Exit Sub
End If
t = 1
n = 1
lp = 1
j = 1
Cells.ClearContents
For lp = 1 To Combination
For n = 1 To SS / lp * 2
For i = 1 To lp
Cells(j, lp).Value = 0
j = j + 1
Next
For i = 1 To lp
Cells(j, lp).Value = 1
j = j + 1
Next
Cells(j, lp).Select
If ActiveCell.Row >= SS + 1 Then Exit For
Next
j = 1
Next
Range("A" & Range("A65536").End(xlUp).Row +
1).Resize(ActiveSheet.UsedRange.Rows.Count,
ActiveSheet.Columns.Count).ClearContents
C = ActiveSheet.UsedRange.Columns.Count
R = ActiveSheet.UsedRange.Rows.Count
For H = 1 To R
For M = 1 To C
st = st & Cells(H, M).Value
Next
Cells(H, C + 1).Value = "'" & st
st = ""
Next
Range("A1").Resize(ActiveSheet.UsedRange.Rows.Count,
ActiveSheet.UsedRange.Columns.Count - 1).Columns.Delete
Application.ScreenUpdating = True
End Sub
-----Original Message-----
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Financeguy
Sent: Monday, July 11, 2011 1:28 AM
To: MS EXCEL AND VBA MACROS
Subject: Re: $$Excel-Macros$$ Binary Combinations Using VBA
Thanks, Rajan - we're getting closer, I can almost see it ......i
wanted an output that shows all the combinations of 0 and 1 using 7
digits.
The output looks like:
0101010
0100000
0001000
0010000
1010101
1111000
1101100
0110011
..............and this list goes on for a total of 2 ^ 7 times = 128
different combinations........
Appreciate your help in getting me to my goal !
best,
Financeguy
On Jul 10, 12:26 pm, "Rajan_Verma" <rajanverma1...@gmail.com> wrote:
> 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 athttp://www.excel-macros.blogspot.com
> 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below
linkhttp://www.facebook.com/discussexcel
>
> Book2.xlsm
> 17KViewDownload
--
----------------------------------------------------------------------------
------
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
Binary.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
