geri sayım ve hareketli rakamlar..

[latimera]

üstadlar kolay gelsin
ek teki excel dosyasında başlat butona basıldığı zaman 2 rakam arası rastgele sayı üretiminde 10 sn ( geri sayımının gösterilmeside lazım ) ve rakamların 10 sn bitene kadar değişmesi lazım bu çalışma için yardımcı olabilirmisiniz.

 

[halit3]

üstadlar kolay gelsin
ek teki excel dosyasında başlat butona basıldığı zaman 2 rakam arası rastgele sayı üretiminde 10 sn ( geri sayımının gösterilmeside lazım ) ve rakamların 10 sn bitene kadar değişmesi lazım bu çalışma için yardımcı olabilirmisiniz.

Bunu denermisisniz.

Sub uret()
If [a1] = "" Or [a2] = "" Or [a3] = "" Then
MsgBox "Kriter kısmını boş bırakamazsınız. [a1:a3] arasını kontrol ediniz."
Exit Sub
End If
If [a2] < [a3] Then
MsgBox "a2'ye girdiğiniz veri a3'ten küçük olamaz."
Exit Sub
End If
[COLOR=red]BASLA = Timer
bekle = 10'saniye
While Timer < BASLA + bekle
[/COLOR]For i = 1 To [a3]
Randomize
BASLA:
If [b1] = "" Then Sat = 1
Sayi = Int(Rnd * [a2].Value + 1)
If Sayi < [a1] Then GoTo BASLA
If WorksheetFunction.CountIf(Range(Cells(1, "b"), Cells(i, "b")), Sayi) Then GoTo BASLA
Cells(i, "b") = Sayi
Next i
DoEvents '1 saniye bekle
[COLOR=red]Wend[/COLOR]
End Sub

 

[latimera]

hocam ellerine sağlık harika olmuş...

 

[halit3]

hocam ellerine sağlık harika olmuş...

İyi çalışmalar