rastgele hücre secimi

[BG]

butona basildiginda a sutununda bos hucrelerin disinda, aktif hucrenin rastgele herhangi bir deger uzerinde durmasi nasil gerceklesir?

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub test()
Dim DEG, SUT As Integer
DEG = Rnd
For SUT = 1 To ActiveSheet.UsedRange.Rows.Count
Cells.Interior.ColorIndex = xlNone
If Cells(SUT, "A") <> "" And Cells(SUT, "A") = Cells(Right(DEG, 1), "A") Then
Cells(Right(DEG, 1), "A").Select
End If
Next
ActiveCell.Interior.ColorIndex = 6
End Sub

 

[BG]

sayın N.Ziya Hiçdurmaz

hocam cok guzel olmus ellerinize saglik vakit ayirdiginiz icin tesekkur ederim, yalnız kucuk bir problem var sizi cok ugrastirmayacaksa ; yaklasik 100 e yakin tiklama yaptim hep fakat a1:a9 araliginda degerler seciyor, daha buyuk bir alanda secim yaptirilabilir mi? mesela a1:a5000 gibi... tesekkur ederim.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Sub RASTGELE_HÜCRE_SEÇ()
    Columns(1).Interior.ColorIndex = xlNone
Devam:
    Satır = Int(Rnd * 10000)
    If Cells(Sat&#305;r, "A") <> "" And Sat&#305;r <> ActiveCell.Row Then
    Cells(Sat&#305;r, "A").Select
    Cells(Sat&#305;r, "A").Interior.ColorIndex = 4
    Else
    GoTo Devam
    End If
End Sub

 

[BG]

sayın Korhan Ayhan

zaman ayirdiginiz icin cok tesekkur ederim, tam istedigim gibi olmus, saolun emeginize saglik iyi calismalar dilerim.

 

[cashuacos]

Cells(Right(DEG, 1), "A")
kodda bu ifade ile ne denilmek istediniz.açıklarmısınız.saygılar..

 

[uzmanamele]

merhaba

Cells(Right(DEG, 1), "A").Select
rastgele seçilmiş sayıyı al. sağdan 1. karakterini kullan. hücre adresi olarak belirle ve onu seç.
basit anlatımla bunun gibi birşey