Sayı üret

[haso_excel]

Merhaba arkadaşlar,

Sub DonguForEachNext()
    Dim k As Range
    Range("A1:f10").Formula = "=rand()*54"
    For Each k In Range("A1:f10")
        If k > 0 And k < 10 Then
            k.Interior.ColorIndex = 45
            k.Font.ColorIndex = 1
        ElseIf k > 10 And k < 20 Then
            k.Interior.ColorIndex = 6
            k.Font.ColorIndex = 3
        ElseIf k > 20 And k < 30 Then
            k.Interior.ColorIndex = 37
            k.Font.ColorIndex = 9
        ElseIf k > 30 And k < 49 Then
            k.Interior.ColorIndex = 5
            k.Font.ColorIndex = 2
        End If
    Next k
End Sub

Kod da göreceğiniz üzere A1 ile F10 arasında 1 ile 54 rakamları içinde her satıra farklı 6 sayı gelecek şeklide sayıların gelmesini istiyorum ama bazen bazı satırlarda 1 ile 54 arasında aynı iki rakamda geliyor. Acaba satırbazında aynı rakam varsa onun dışında 1-54 arasında sayı getirmeyi nasıl yapabilirim

 

[haso_excel]

Dosya ekde