rastgele sayı üretme

[ismetali]

arkadaşlar istediğim 1 ile 31 arasında her sayı bir defa olacak şekilde rastgele sayı üretmek ve bunları listboxa atmak ve hücrelerdede çıkan sayıları farklı bir renkle işaretlemek
hücreler hangi sayıların çıktığını
listbox ise sayıların sırasını göstersin istiyorum
ben kıt bilgimle birşey yapmaya çalıştım(ekte) ama olmadı yardımcı olur musunuz
RASTGELE SAYI ÜRETME İLE İLGİLİ BİLGİLERİNİZİ PAYLAŞALIM
.

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

Sub Rastgele()
sayac = 0
For i = 1 To 31
If Cells(i, 1).Value <> "" Then sayac = sayac + 1
Next
If sayac >= 31 Then Exit Sub

Basla:
    Sayı = Int((31 * Rnd) + 1)
    If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(Sayı, 1)), Sayı) > 0 Then GoTo Basla
    Cells(Sayı, 1) = Sayı
    ListBox1.AddItem Sayı
End Sub

Sub temizleX()
Range("A1:A31") = ""
ListBox1.Clear
End Sub

 

[ismetali]

teşekkür

teşekkürler sayın dEdE ama hücreleri renklendirmeyi nasıl yaptığınızı anlamadım
cevap verebilirmisiniz.

 

[ismetali]

tamam şimdi gördüm koşullu biçimlendirme

 

[dEdE]

teşekkürler sayın dEdE ama hücreleri renklendirmeyi nasıl yaptığınızı anlamadım
cevap verebilirmisiniz.

Rica ederim.
Güle güle kullanın.

Renklendirme koşullu biçimlendirme ile yapıldı.
Bunun için, ListBoxun altında kalan A1:A31 hücreleri kullanılıyor.

 

[bayalem]

sayın dede çok güzel olmuş teşekkür ederim benimde işime yaradı yalnız bunu tek sutun olarak değilde 31 sutun olarak yapsak ve 31 sutundada bunlar çakışmasa böyle bişey yapabilirmisin acaba