Rastgele Sayı Üretme

[CenTay]

Selamlar arkadaşlar D1:I1 (6 hane) arası "benzersiz" sayı üretmek için gereken kodu rica ediyorum.

 

[turist]

Selamlar arkadaşlar D1:I1 (6 hane) arası "benzersiz" sayı üretmek için gereken kodu rica ediyorum.

Sub SayıUret()
For i = 1 To 11
Cells(i, 4) = Application.RandBetween(100000, 999999)
Next i
End Sub
Deneyin.

 

[CenTay]

Teşekkür ediyorum ancak sayılar D1 ile I1 arası olacak siz d1:d11 arası yapmışsınız.Düzeltirseni memnun olurum hocam.

 

[turist]

Teşekkür ediyorum ancak sayılar D1 ile I1 arası olacak siz d1:d11 arası yapmışsınız.Düzeltirseni memnun olurum hocam.

Sub SayıUret()
For y = 4 To 9
Cells(1, y) = Application.RandBetween(100000, 999999)
Next y
End Sub

 

[CenTay]

Hocam düzeltme için teşekkürler ancak kod mükerrer sayı üretiyor

 

[turist]

Hocam düzeltme için teşekkürler ancak kod mükerrer sayı üretiyor

Sub BenzersizRastgele()
ilk = 100000
son = 999999
Range("D1:I1").Clear
For Each cell In Range("D1:I1")
If WorksheetFunction.CountA(Range("D1:I1")) = (son - ilk + 1) Then Exit For
Do
rastgele = Int((son - ilk + 1) * Rnd() + ilk)
Loop Until Range("D1:I1").Cells.Find(rastgele, LookIn:=xlValues, lookat:=xlWhole) Is Nothing
cell.Value = rastgele
Next
End Sub

 

[CenTay]

Teşekkür ediyorum hocam sağolun.

 

[turist]

Teşekkür ediyorum hocam sağolun.

Siz de sağ olun.

 

[YUSUF44]

Alternatif olsun:

Sub rastgele()
[D1:I1] = ""
For y = 4 To 9
10:
    sayi = Application.RandBetween(100000, 999999)
    If WorksheetFunction.CountIf(Range("D1:I1"), sayi) = 0 Then
        Cells(1, y) = sayi
    Else
        GoTo 10
    End If
Next
End Sub

 

[CenTay]

Yusuf44 hocam alternatif kod için teşekkürler sağolun.