Randomized Room

[RJ1969]

Hello

I wanted Sheet1 to work like Sheet2.
I created Sheet1 which I added columns for dates. My range for randomized is in B8:B35 and E8:E35. But when I transferred or copied the code from Module1 to Module2 Then I did not work.

Can you please modify the code in Module2. See attachment worksheet.

Thank you

[bebo021999]

Use this:

Sub pick_Random1() 
Dim k&, rd(1 To 10000, 1 To 1) 
Dim cell As Range 
For Each cell In Range("K8:K" & Cells(Rows.Count, "K").End(xlUp).Row) ' from K8 to last used cell in col K 
    If Not IsEmpty(cell) Then 
        k = k + 1 
        rd(k, 1) = cell.Value 
    End If 
Next 
Randomize 
For Each cell In Range("B8:E35") 
    If cell.Column = 2 Or cell.Column = 5 Then 
        cell.Value = rd(Int(Rnd * k + 1), 1) 
    End If 
Next 
Range("B1").Select 
End Sub  

[RJ1969]

Hi
Ok.. Thank you bebo.

[AliGW]

Administrative Note:

Unfortunately, this is a duplicate thread, and you are allowed only ONE thread per issue here.

Please see Forum Rule #2 about thread duplication.

I am closing this thread, but you may continue here in the original thread: https://www.excelforum.com/excel-pro...dom-rooms.html

Thread closed.