Kombinasyon

[SERGUZEST_İM]

Ekte belirttiğim gibi sayfa 1 1de 1 den 70 e kadar sayılar var sayfa ikide 2 yazdığımda 2 li 3 yazdığımda üçlü rast gele kombinasyon yapmasını istiyorum mümkün mü

 

[SERGUZEST_İM]

arkadaşlar yapılamazmı en azından bilgi verirseniz çok mutlu olurum

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu "Sayfa2" isimli sayfanızın kod bölümüne uygulayın. "A" sütununa değer girip sonucu gözlemleyin.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, Sayı As Byte, X As Byte
    If Intersect(Target, Range("A5:A" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    
    Set S1 = Sheets("Sayfa1")
    X = 2
    Range("B" & Target.Row & ":IV" & Target.Row).ClearContents
    Randomize Timer
10  Sayı = Int(Rnd() * 100)
    If WorksheetFunction.CountIf(S1.Range("B5:F18"), Sayı) > 0 Then
    If WorksheetFunction.CountIf(Range("B" & Target.Row & ":IV" & Target.Row), Sayı) > 0 Then GoTo 10
    Cells(Target.Row, X) = Sayı
    X = X + 1
    End If
    If (X - 1) <= Target Then GoTo 10
    Set S1 = Nothing
End Sub

 

[SERGUZEST_İM]

çok teşekkürler tamda istediğim gibi emeğinize sağlık

 

[SERGUZEST_İM]

Son bişey daha peki 1 den 70 kadar rakkamları değiştirmek istediğimde ne yapmam gerek örneğin 1 den 70 e kadar değilde 1den...... Arası gibi bir formul varmı?

 

[Korhan Ayhan]

Merhaba,

Kod içinde geçen aşağıdaki satırdaki 100 değerini değiştirmelisiniz.

Sayı = Int(Rnd() * 100)

Kod bu haliyle 0-99 arası değerler üretir. Eğer sizin üretmek istediğiniz değer 0-999 arası olacaksa 100 değerini 1000 olarak değiştirmeniz gerekir. Bu koşullara göre kendi değerlerinizi ayarlayın.

 

[SERGUZEST_İM]

HATA VERİYOR 10 Sayı = Int(Rnd() * 1000) BUNU SARI RENKTE YAZIYOR HATA VERİYOR

 

[Korhan Ayhan]

Merhaba,

"Sayı" isimli değişken tanımlamasınıda değiştirmeniz gerekiyor.

Sayı As [COLOR=red]Byte[/COLOR]

Kırmızı bölüm yerine INTEGER ya da LONG yazıp deneyin.