Rasgele sayıda rasgele sayı üretmek

[baydeniro]

Merhaba Arkadaşlar,

B2:B18 alanında 21-22-23-24-25 sayılarını RANDOM olarak seçip 3 ila 5 RANDOM arasında defa sayıyı makro ile üretmek mümkün mü ?

Örnek dosya : http://s8.dosya.tc/server5/ozaa2n/__RASGELE_SAYIDA_RASGELE_SAYI_URETMEK.xls.html

 

[YUSUF44]

Anladığım kadarıyla aşağıdaki makroyu bir modüle kopyalayıp deneyiniz:

Sub gele()
10:
For i = 2 To 22
    a = WorksheetFunction.RandBetween(21, 25)
    If WorksheetFunction.CountIf(Range("B2:B" & i), a) < 5 Then
        Cells(i, "B") = a
    End If
Next
For j = 2 To 22
    If WorksheetFunction.CountIf(Range("B2:B22"), Cells(j, "B")) < 3 Then
        GoTo 10
    End If
Next
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATA").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("DATA").Sort
        .SetRange Range("B2:B22")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub

 

[baydeniro]

Yusuf44 üstadım ilginize çok teşekkür ediyorum. İlk fırsatta kodu deneyeceğim. Sağlıcakla kalın.