Sayı Üret

[nadirornek]

1) Aşağıdaki kodla 250'den yukarı sayı üretemiyorum
2) Rastgele çift sayı aralıklarını nasıl üretebiliriz ?


Sub Otuzyüzelli()
Dim UstSinir As Byte
Dim Hucre As Range
Set WF = WorksheetFunction
UstSinir = 150
Set Alan = Range("Z1:AG8")
Set Alan2 = Range("Z1:AG8")
On Error Resume Next
Alan.ClearContents
For Each Hucre In Alan
BuOlmadi:
Hucre = Int(Rnd() * 150) + 30
If WF.CountIf(Alan2, Hucre) _
> 1 Or Hucre > UstSinir Then GoTo BuOlmadi
Next

End Sub

 

[kulomer46]

Aşağıdaki şekilde kodlarınızı değiştirdim.. Çalışıyor..
Sub Otuzyüzelli()
Dim UstSinir As Integer
Dim Hucre As Range
Set WF = WorksheetFunction
'örneğin üst limit 500 için
UstSinir = 500
'''
Set Alan = Range("Z1:AG8")
Set Alan2 = Range("Z1:AG8")
On Error Resume Next
Alan.ClearContents
For Each Hucre In Alan
BuOlmadi:
' 30 ile 500 arası çift rakam üretmek için
Hucre = (Int(Rnd() * 235) + 30) * 2
'''
If WF.CountIf(Alan2, Hucre) > 1 Or Hucre > UstSinir Then GoTo BuOlmadi
Next

End Sub

 

[bmutlu966]

UstSinir = 150 satırını değiştirmen gerekiyor.
Ayrıca,
Dim UstSinir As Byte satırını
Dim UstSinir As Integer olarak değiştir.

 

[nadirornek]

Arkadaşlar sağolun teşekkürler.