Sayı Üretme

[wishm]

Değerli site üyeleri ekte dosyamda forumdan elde ettiğim kodlarla rastgele benzersiz sayılar üretiyorum. Yapmak istediğim; bu üretilen sayı sayfa1 de A1 hücresinde gösterilecek ve üretilen her sayı sayfa2 ye A2 hücresinden itibaren kaydedilecek. Bu konuda yardımlarınızı bekliyorum. Saygılarımla.

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton1_Click()

ara:
Uret = Int(Rnd() * 999999999999#) + 1
aram = WorksheetFunction.CountIf(Range("a1:a10000"), Uret)
If aram > 0 Then
GoTo ara
urets = Int(Rnd() * 999999999999#) + 1
son = [a65536].End(3).Row + 1
Range("a" & son) = urets
Else
son = [a65536].End(3).Row + 1
Range("a" & son) = Uret
End If

Range("a1") = Cells([a65536].End(3).Row, "a")

aa = WorksheetFunction.Count(Sheets("Sayfa2").Range("a2:a65536")) + 2
Sheets("sayfa2").Cells(aa, "a") = Range("a1").Value

End Sub

. . .

 

[uyrdkl]

Buda benden olsun.
Dosya ektedir.
Kolay gelsin

 

[wishm]

Sayın Hüseyin Çoban sayın uyrdkl her ikinizede yanıtınız için teşekkür ederim. Sorunum çözüldü. Saygılarımla.

 

[hermesss]

bu konu ile alakalı bilginize danışmak istiyorum aslında.vb de rastgele sayı ürettiğimde (ikişerli) tekrar olayını şöyle yapıyor mesela 1 ve 2 bir gurup olarak yazarken diğer bir gurup olarak ise 2 ve 1 olarak yazıyor bunu nasıl aşabilirim komut dizisinide altta yazdığım gibi uyduladım

private void button3_Click(object sender, EventArgs e)
{
{
Random rnd = new Random();
int[] a = new int[2];
int sayac, i, j;
string linestr;
sayac = 100;
listBox3.Items.Clear();
do
{
linestr = “”;
i = 0;
do
{
a = rnd.Next(21) + 1;
j = 0;
while (j < i)
{
if (a[j] == a)
{
a = rnd.Next(21) + 1;
continue;
}
else j++;
}
linestr += a.ToString() + " ";

} while (++i = 1);
}