Rastgele sayılarla işlem yaptırma

[adslboy]

Herkese Merhabalar;

Ekli Dosya'da ki işlemi yaptırmak mümkünmüdür ?

Teşekkür ederim

 

[Orion1]

A1:V22 arasına bizim girdiğimiz veri gurubu diyorsunuz,sonrada 3ncü şıktata bulduğu değerleri A1:V22 arasına yazacak.Burada bir terslik yokmu?
Zaten konu karmakarışık birde böyle çelişen maddelrr olunca iş iyice içinden çıklmaz hal alıyor.
Sonra A1:V22 arasına sayı girmemişsiniz.Yani ben hiç bir şey anlamadım.Anlayan arkadaşlar size yardımcı olurlar.

 

[adslboy]

gerekli düzeltme ve daha açıklayıcı metin eklendi!
Yardımcı olacak arkadaşlara şimdiden Teşekür Ederim..

Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub RASTGELE_SAYI_SEÇ()
    Dim X As Byte, Satır As Long
 
    Range("A4:V5").ClearContents
 
    With Range("W2:AR100")
        .Font.ColorIndex = 0
        .Interior.ColorIndex = xlNone
    End With
 
    For X = 1 To 22
        Randomize
Başla:
        Satır = Int((100 * Rnd) + 1)
            If Satır = 1 Or Satır = 101 Then GoTo Başla
 
            With Cells(Satır, X + 22)
                .Font.ColorIndex = 2
                .Interior.ColorIndex = 1
            End With
 
            Cells(4, X) = Cells(2, X) + Cells(Satır, X + 22)
            Cells(5, X) = Cells(Satır, X + 22)
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[adslboy]

Harikasiniz Hocam ellerinize emeğinize sağlık binlerce kez teşekkürler.

bukadar hızlı sıte gormedım helal olsun ...