sayı yerleştirme

[adslboy]

Merhabalar,

istediğimi ek dosyada belirttim

Emeği geçecek tüm uzman arkadaşlara Teşekkür ederim .

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Sub SAYI_YERLEŞTİR()
    Dim X As Byte, Y As Integer
    Dim ALANDAKİ_EN_BÜYÜK_SAYI As Long, SÜTUNDAKİ_EN_BÜYÜK_SAYI As Long, SAYI As Long
 
    Range("A40:V40").ClearContents
 
    For X = 1 To 21
        SÜTUNDAKİ_EN_BÜYÜK_SAYI = WorksheetFunction.Max(Range(Cells(1, X), Cells(15, X)))
BAŞLA:
        SAYI = Int((SÜTUNDAKİ_EN_BÜYÜK_SAYI * Rnd) + 1)
        If WorksheetFunction.CountIf(Range(Cells(1, X), Cells(15, X)), SAYI) = 0 Then GoTo BAŞLA
 
        ALANDAKİ_EN_BÜYÜK_SAYI = WorksheetFunction.Max(Range("A1:V15"))
 
        For Y = 1 To ALANDAKİ_EN_BÜYÜK_SAYI
            Sleep (25)
            Cells(40, X) = Y
            If Y = SAYI Then
            Exit For
            End If
        Next
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[adslboy]

Çok güzel olmuş tam istediğim gibi, çok teşekürler emeğinize sağlık.

 

[adslboy]

selamlar,


denemelerim sonucunda maalesef sayi tekrari yaptigini gordum.

AYni sayi grubunu vermeyecek sekilde degisiklik yapmak mumkunmu?

Teşekurler

 

[Korhan Ayhan]

Selamlar,

Dosya üzerinde örnek vererek açıklarmısınız.

 

[adslboy]

elinize emeğinize sağlık tam istediğim gibi fakat bir nokasnı var oda su.
Belgeyi kayıt etmeden kapatım açtığım zaman ve butona tıkladıgımda maalesef aynı rakamları tekrar veriyor.
Benim istediğim ise kayıt edilmeden kapaılıp açılsa dahi butpna tıkladıgımızda
aynı rakam grubunu vermemesi ?

Makro kodunda buna engel olucak bır düzenleme yaparmisiniz.

Tеşekurler

 

[leumruk]

Merhaba,

Range("A40:V40").ClearContents

Satırının altına:

Randomize

tanımını ekleyip deneyin.