Hi,
This works really well, except it shows an error at:
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
Is is because im using MS Excel 2003? or can it be easily fixed.
Thanks again,
Financeguy
On Jul 11, 3:40 am, "Rajan_Verma" <rajanverma1...@gmail.com> wrote:
> 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 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
>
>
>
> Binary.xlsm
> 29KViewDownload- Hide quoted text -
>
> - Show quoted text -
--
----------------------------------------------------------------------------------
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
