Hi Rajan,
For some odd reason, putting in the parentheses does not affect the
outcome - runtime error continues to show up !
Appreciate any help you can give.
Thanks,
FG
On Jul 13, 3:42 am, "Rajan_Verma" <rajanverma1...@gmail.com> wrote:
> Try this.
>
> Range("A" & Range("A65536").End(xlUp).Row +
> 1).Resize(ActiveSheet.UsedRange.Rows.Count,ActiveSheet.Columns.Count).ClearC
> ontents
> C = ActiveSheet.UsedRange.Columns.Count
> R = ActiveSheet.UsedRange.Rows.Count
>
>
>
> -----Original Message-----
> From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
>
> On Behalf Of Financeguy
> Sent: Wednesday, July 13, 2011 2:09 AM
> To: MS EXCEL AND VBA MACROS
> Subject: Re: $$Excel-Macros$$ Binary Combinations Using VBA
>
> 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 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- 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
