Arkadaşlar makroda 1 ile 20 arasında sayıların yerlerini değiştiren bir döngüm var
For i = 1 To 19 buradaki döngünün normalde 20 ye kadar devam etmesi lazım ancak döngü bir süre sonra yavaşlıyor ve uzun bir süre beklemek zorunda kalıyorum ama yine de sonuç elde edemiyorum önce 19'a kadar yapıp sonra 20'ye kadar yaparsam 1 defaya mahsus 20'ye kadar satır devam ediyor. ikinci defada yine aynı şekilde işlem donuyor. Yardımlarınızı bekliyorum. Teşekkürler
Kod:
Sub RastgeleSayı()
Range("A1:E22").ClearContents
Application.ScreenUpdating = False
For i = 1 To 19
For y = 1 To 5
10 bul = Int(Rnd * 20) + 1
If WorksheetFunction.CountIf(Columns(y), bul) > 0 Then GoTo 10
If WorksheetFunction.CountIf(Rows(i), bul) > 0 Then GoTo 10
Cells(i, y) = bul
Next: Next
End SubFor i = 1 To 19 buradaki döngünün normalde 20 ye kadar devam etmesi lazım ancak döngü bir süre sonra yavaşlıyor ve uzun bir süre beklemek zorunda kalıyorum ama yine de sonuç elde edemiyorum önce 19'a kadar yapıp sonra 20'ye kadar yaparsam 1 defaya mahsus 20'ye kadar satır devam ediyor. ikinci defada yine aynı şekilde işlem donuyor. Yardımlarınızı bekliyorum. Teşekkürler