R
robert morris
I need help with a VBA for creating NON-REPEATING random numbers between 0-9
in Col B4:B13 and Row C3:L3
Bob
in Col B4:B13 and Row C3:L3
Bob
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
J
Jarek Kujawa
would this macro help?
Sub cus()
Dim cell As Range
With Range("B4:B13")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
Sub cus()
Dim cell As Range
With Range("B4:B13")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
J
Jarek Kujawa
would this macro help?
Sub cus()
Dim cell As Range
With Range("B4:B13")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
Sub cus()
Dim cell As Range
With Range("B4:B13")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
J
Jim Cone
Bob,
I think your requirements are a little too strict. <g>
You only allow ten unique numbers (0 to 9) and ten cells in each range.
Are you just trying to random sort all ten numbers?
--
Jim Cone
Portland, Oregon USA
"robert morris"
<[email protected]>
wrote in message
I need help with a VBA for creating NON-REPEATING random numbers between 0-9
in Col B4:B13 and Row C3:L3
Bob
I think your requirements are a little too strict. <g>
You only allow ten unique numbers (0 to 9) and ten cells in each range.
Are you just trying to random sort all ten numbers?
--
Jim Cone
Portland, Oregon USA
"robert morris"
<[email protected]>
wrote in message
I need help with a VBA for creating NON-REPEATING random numbers between 0-9
in Col B4:B13 and Row C3:L3
Bob
J
Jim Cone
Bob,
I think your requirements are a little too strict. <g>
You only allow ten unique numbers (0 to 9) and ten cells in each range.
Are you just trying to random sort all ten numbers?
--
Jim Cone
Portland, Oregon USA
"robert morris"
<[email protected]>
wrote in message
I need help with a VBA for creating NON-REPEATING random numbers between 0-9
in Col B4:B13 and Row C3:L3
Bob
I think your requirements are a little too strict. <g>
You only allow ten unique numbers (0 to 9) and ten cells in each range.
Are you just trying to random sort all ten numbers?
--
Jim Cone
Portland, Oregon USA
"robert morris"
<[email protected]>
wrote in message
I need help with a VBA for creating NON-REPEATING random numbers between 0-9
in Col B4:B13 and Row C3:L3
Bob
R
robert morris
Jim,
I need random numbers for BOTH Row 3 and Col B.
Have I answered your question correctly?
Bob
I need random numbers for BOTH Row 3 and Col B.
Have I answered your question correctly?
Bob
R
robert morris
Jim,
I need random numbers for BOTH Row 3 and Col B.
Have I answered your question correctly?
Bob
I need random numbers for BOTH Row 3 and Col B.
Have I answered your question correctly?
Bob
R
robert morris
Jarek,
Thanks, your Code works perfectly for the Column B but does not address Row 3.
Bob
Thanks, your Code works perfectly for the Column B but does not address Row 3.
Bob
R
robert morris
Jarek,
Thanks, your Code works perfectly for the Column B but does not address Row 3.
Bob
Thanks, your Code works perfectly for the Column B but does not address Row 3.
Bob
J
Jarek Kujawa
having re-read the conditions I have to agree with Jim
they are to strict
are you trying to populate C3:L3 AND B4:B13 with random integers
ranging from 0 to 9?
if so I cannot provide a solution
or you meant to populate both ranges SEPARATELY?
they are to strict
are you trying to populate C3:L3 AND B4:B13 with random integers
ranging from 0 to 9?
if so I cannot provide a solution
or you meant to populate both ranges SEPARATELY?
J
Jarek Kujawa
having re-read the conditions I have to agree with Jim
they are to strict
are you trying to populate C3:L3 AND B4:B13 with random integers
ranging from 0 to 9?
if so I cannot provide a solution
or you meant to populate both ranges SEPARATELY?
they are to strict
are you trying to populate C3:L3 AND B4:B13 with random integers
ranging from 0 to 9?
if so I cannot provide a solution
or you meant to populate both ranges SEPARATELY?
R
robert morris
Jarek,
Yes, populate both ranges separately. Possibly two different Codes?
I appreciate your help.
Bob
Yes, populate both ranges separately. Possibly two different Codes?
I appreciate your help.
Bob
R
robert morris
Jarek,
Yes, populate both ranges separately. Possibly two different Codes?
I appreciate your help.
Bob
Yes, populate both ranges separately. Possibly two different Codes?
I appreciate your help.
Bob
J
Jarek Kujawa
i.e. for row 3 from 0 to 9 and for col B from 0 to 9?
J
Jarek Kujawa
i.e. for row 3 from 0 to 9 and for col B from 0 to 9?
R
robert morris
Jarek,
Yes, random numbers between 0-9, Col Range B4:B13 and
random numbers between 0-9, Row Range C3:L3.
As I said, could be two codes with Buttons.
Bob
Yes, random numbers between 0-9, Col Range B4:B13 and
random numbers between 0-9, Row Range C3:L3.
As I said, could be two codes with Buttons.
Bob
R
robert morris
Jarek,
Yes, random numbers between 0-9, Col Range B4:B13 and
random numbers between 0-9, Row Range C3:L3.
As I said, could be two codes with Buttons.
Bob
Yes, random numbers between 0-9, Col Range B4:B13 and
random numbers between 0-9, Row Range C3:L3.
As I said, could be two codes with Buttons.
Bob
J
Jarek Kujawa
for C3:L3
Sub cus2()
Dim cell As Range
With Range("C3:L3")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
then assign cus to Button1 and cus2 to Button2
is this ok?
Sub cus2()
Dim cell As Range
With Range("C3:L3")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
then assign cus to Button1 and cus2 to Button2
is this ok?
J
Jarek Kujawa
for C3:L3
Sub cus2()
Dim cell As Range
With Range("C3:L3")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
then assign cus to Button1 and cus2 to Button2
is this ok?
Sub cus2()
Dim cell As Range
With Range("C3:L3")
..Clear
For Each cell In .Cells
repeat:
k = WorksheetFunction.RandBetween(0, 9)
If WorksheetFunction.CountIf(.Cells, k) = 0 Then
cell = k
Else
GoTo repeat
End If
Next
End With
End Sub
then assign cus to Button1 and cus2 to Button2
is this ok?
R
robert morris
Jarek,
Works almost perfectly. Random Numbers are perfect however, when applied, I
lose my Formatting for the "Range" on both the Col and Row. Why would this
happen?
Sorry for my delay in replying, I fell asleep.
Bob
Works almost perfectly. Random Numbers are perfect however, when applied, I
lose my Formatting for the "Range" on both the Col and Row. Why would this
happen?
Sorry for my delay in replying, I fell asleep.
Bob
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.