Sayı yerleştirme

[iskelet]

Selamlar,
Yapmak istediğim şey verilen değerler kadar sayıların rastgele yerleştirilmesi.
Dosya ektedir.
Şimdiden ilgilenen arkadaşlara teşekkürler.

 

[bmutlu966]

Dosyanız ektedir.

 

[iskelet]

Selamlar,
Sayın Mutlu Bey,
İlk önce ilginiz için teşekkür ederim yalnız yapmak istediğim şey tam o şekilde değildi
sayıları yan yana değil tamamın aşağıya doğru dizmesi ve rast gele dizmesi
yani ilk önce 1 leri sonra 2 leri şekilinde değil de karışık olarak dizmesi.
İnş. anlatabilmişimdir.

 

[Orion1]

Dosyanız ektedir.

Sub rastgelesayi_59()
Dim col As Collection, i As Long, sayi As Long, sat As Long
Randomize Timer
Set col = New Collection
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("A3:E" & Rows.Count).ClearContents
For i = 1 To 5
    For j = 1 To Cells(2, i).Value
        col.Add Cells(1, i).Value
    Next
Next i
sat = 3
Do While col.Count >= 1
    For i = 1 To 5
        sayi = Int(Rnd() * col.Count) + 1
        Cells(sat, i).Value = col(sayi)
        col.Remove (sayi)
    Next
    sat = sat + 1
Loop
Set col = Nothing
Application.ScreenUpdating = True
MsgBox "Rastgele sayı üretildi." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "RASTGELE SAYILAR"
End Sub

 

[iskelet]

Selamlar,
Sayın Orion1 teşekkür ederim rastgele sayılar üretildi yalnız 100 sayınında alt alta yazılmasını nasıl sağlayabiliriz.

 

[Orion1]

Selamlar,
Sayın Orion1 teşekkür ederim rastgele sayılar üretildi yalnız 100 sayınında alt alta yazılmasını nasıl sağlayabiliriz.

Tabii efendim.Hemen.,
Dosyanız ektedir.

Sub rastgelesayi_59()
Dim col As Collection, i As Long, sayi As Long, sat As Long
Dim sut As Integer
Randomize Timer
Set col = New Collection
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("A3:A" & Rows.Count).ClearContents
sut = Cells(1, 255).End(xlToLeft).Column
For i = 1 To sut
    For j = 1 To Cells(2, i).Value
        col.Add Cells(1, i).Value
    Next
Next i
sat = 3
Do While col.Count >= 1
    sayi = Int(Rnd() * col.Count) + 1
    Cells(sat, 1).Value = col(sayi)
    col.Remove (sayi)
    sat = sat + 1
Loop
Set col = Nothing
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "Rastgele sayı üretildi." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "RASTGELE SAYILAR"
End Sub

 

[iskelet]

Sayın Orion1
Çok teşekkür ederim. Ellerinize sağlık.

 

[Orion1]

Sayın Orion1
Çok teşekkür ederim. Ellerinize sağlık.

Rica ederim.

 

[iskelet]

Sayın Orion tekrar rahatsız ediyorum ama
birşey soracaktım biz şimdi 5 sayıyı rastgele yerleştiriyoruz bu sayıyı artırdığımızda ne yapmamız gerekir. Yani diyelim ki 7 sayıyı rastgele yerleştirmek istiyorum ne yapmam lazım. Kodun neresinde değişiklik yapmam lazım.

 

[Orion1]

Sayın Orion tekrar rahatsız ediyorum ama
birşey soracaktım biz şimdi 5 sayıyı rastgele yerleştiriyoruz bu sayıyı artırdığımızda ne yapmamız gerekir. Yani diyelim ki 7 sayıyı rastgele yerleştirmek istiyorum ne yapmam lazım. Kodun neresinde değişiklik yapmam lazım.

dosyada gerekli düzenlemeyi yaptım.
255 sütuna kadar istediğiniz kadar sütun yapabilirsiniz.Otamatik algılayacak kodlar.
Dosya 6ncı mesajdadır.
Kolay gelsin.

 

[iskelet]

Selamlar,
Sayın Orion herhalde ben anlatamadım demek istediğimi.
Tekrar anlatmaya çalışayım.
Sizin düzenleme yaptığınız düzenlemede sadece 1 sayısını rastgele yerleştiriyo 2,3,4,5 sayılarını hiç yerleştirmiyo.
benim demek istediğim şuydu biz şimdi 1 sayısının altındaki sayı kadar, 2 sayısının altındaki sayı kadar, 3 sayısının altındaki sayı kadar, 4 sayısının altındaki sayı kadar, 5 sayısını altındaki sayı kadar 1,2,3,4,5, sayılarını rastgele yerleştiriyorduk.Bunu zaten sizin önceki gönderdiğiniz dosya yapıyordu. Ben 1,2,3,4,5 sayısının yanına 6 yazıp altına sayı yazacan 7 yazıp altına sayı yazarsam bu 7 sayıyı nasıl rastgele yazdırabiliriz diye sormuştum.
Biraz uzun oldu ama inş. anlatabilmişimdir.
Zamanınızı alıyorum ama hakkınızı helal edin.

 

[Orion1]

Selamlar,
Sayın Orion herhalde ben anlatamadım demek istediğimi.
Tekrar anlatmaya çalışayım.
Sizin düzenleme yaptığınız düzenlemede sadece 1 sayısını rastgele yerleştiriyo 2,3,4,5 sayılarını hiç yerleştirmiyo.
benim demek istediğim şuydu biz şimdi 1 sayısının altındaki sayı kadar, 2 sayısının altındaki sayı kadar, 3 sayısının altındaki sayı kadar, 4 sayısının altındaki sayı kadar, 5 sayısını altındaki sayı kadar 1,2,3,4,5, sayılarını rastgele yerleştiriyorduk.Bunu zaten sizin önceki gönderdiğiniz dosya yapıyordu. Ben 1,2,3,4,5 sayısının yanına 6 yazıp altına sayı yazacan 7 yazıp altına sayı yazarsam bu 7 sayıyı nasıl rastgele yazdırabiliriz diye sormuştum.
Biraz uzun oldu ama inş. anlatabilmişimdir.
Zamanınızı alıyorum ama hakkınızı helal edin.

Pardon. :biggrin:
Dosyayı düzenledim.
6 nolu mesajdan dosyayı indirebilirisniz.

 

[iskelet]

Sayın Orion çok teşekkür ederim sizi yordum biraz.
Kendinize iyi bakın.

 

[Orion1]

Sayın Orion çok teşekkür ederim sizi yordum biraz.
Kendinize iyi bakın.

Rica ederim.
İyi çalışmalar.