Rastgele sayı seçme hk..

[search77]

Merhaba Arkadaşlar,

Ekli dosyamda gerekli açıklamaları belirttim, istediğim 2 hücreye eşit olmayan belirli sayılardan oluşan topluluktan rastgele atama yapmak.

Yardımcı olacak arkadaşlara şimdiden saygı ve sevgilerimi sunarım.

Teşekkürler.

 

[Huseyinkis]

Merhaba Arkadaşlar,

Ekli dosyamda gerekli açıklamaları belirttim, istediğim 2 hücreye eşit olmayan belirli sayılardan oluşan topluluktan rastgele atama yapmak.

Yardımcı olacak arkadaşlara şimdiden saygı ve sevgilerimi sunarım.

Teşekkürler.

Ekteki kodları Denermisiniz.

Sub Deneme()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
Basla: SAYI = Int((6 * Rnd) + 2)
If IsNumeric(Cells(i, 2).Value) Then
If Cells(i, 1).Value = Cells(SAYI, 8).Value Or Cells(i, 2).Value = Cells(SAYI, 8).Value Then
GoTo Basla
Else
Cells(i, 3).Value = Cells(SAYI, 8).Value
End If
End If
Next
End Sub

 

[search77]

Yani bu kadar olur, süperseniz,

Elinize emeğinize sağlık, çok çok tş kler.

sayg.