Sayıları Rastgele Karıştırmak

[arif_55]

Arkadaşlar öncelikle herkese hayırlı günler.ekteki makroyu sağolsun bi arkadaştan gördüm ama bu konuda yeni olduğum için istediğim şeyi yapamadım.forumdada çok aradım ama tam istediğim gibi bi sonuça ulaşamadım.soruma gelince ben sayıları rastgele karıştıran bi makro istiyorum ama çalışması dikey değilde yatay olacak bide benim belirlediğim sayıları karıştıracak.Şimdiden herkese teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub karistir_59_rastgele()
Dim sat As Long, i As Long, col As Collection, k As Long
Dim j As Long, sayi As Long
Randomize Timer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("K7:O" & Rows.Count).ClearContents
sat = Cells(Rows.Count, "R").End(xlUp).Row
If sat < 7 Then
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Exit Sub
End If
Set col = New Collection
For i = 7 To sat
    For k = 18 To 27
        col.Add Cells(i, k)
    Next k
    For j = 1 To 5
        sayi = Int(Rnd() * col.Count) + 1
        deg = col(sayi)
        Cells(i, j + 10).Value = deg
        col.Remove (sayi)
    Next j
    Set col = Nothing
    Set col = New Collection
Next i
Set col = Nothing
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[arif_55]

çok teşşekkür ederim hocam.emeğinize ve elinize sağlık.

 

[arif_55]

peki hocam karıştırdığı sayıları direk rapora atıyorya rapora atmasada olduğu yerde karıştırsa düşeyarayla alsak rapor tarafına çünkü sürekli 10 tane sayı istemicem karıştırması için bazen 10 dan az olacak bu seferde rapor kısmına boş değerleride getiriyo karıştırma işlemini yazdığım değerler içinde karıştırsın sol tarafa yazmak şartıyla bende ordan sürekli dolu 5 hücreyi çekebileyim.böyle bişe mümkün mü?

 

[Orion1]

peki hocam karıştırdığı sayıları direk rapora atıyorya rapora atmasada olduğu yerde karıştırsa düşeyarayla alsak rapor tarafına çünkü sürekli 10 tane sayı istemicem karıştırması için bazen 10 dan az olacak bu seferde rapor kısmına boş değerleride getiriyo karıştırma işlemini yazdığım değerler içinde karıştırsın sol tarafa yazmak şartıyla bende ordan sürekli dolu 5 hücreyi çekebileyim.böyle bişe mümkün mü?

kenid içinde değilde sütun sayısına göre raporda yapıyor.Umarım istediğiniz budur.
Kolay gelsin.
Dosya ektedir.
Not: 5 sayıdan az olmamalıdır.

Sub karistir_59_rastgele()
Dim sat As Long, i As Long, col As Collection, k As Long
Dim j As Long, sayi As Long, sut As Long
Randomize Timer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("K7:O" & Rows.Count).ClearContents
sat = Cells(Rows.Count, "R").End(xlUp).Row
If sat < 7 Then
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Exit Sub
End If
Set col = New Collection
For i = 7 To sat
    sut = Cells(i, 256).End(xlToLeft).Column
    If sut < 18 Then GoTo atla
    For k = 18 To sut
        col.Add Cells(i, k)
    Next k
    For j = 1 To col.Count
        sayi = Int(Rnd() * col.Count) + 1
        deg = col(sayi)
        Cells(i, j + 10).Value = deg
        col.Remove (sayi)
    Next j
atla:
    Set col = Nothing
    Set col = New Collection
Next i
Set col = Nothing
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[arif_55]

Hocam istediğim tam olarak böyle bişe

tekrar merhaba. k.bakmayım hocam sizede baya yük oldum ama istediğim şey tam olarak ekteki gibi.ektede açıklamaya çalıştım ne yapmak istediğimi.yardımlarınız için teşekkürler.

 

[arif_55]

arkadaşlar yokmu yardım edebilecek kimseler..

 

[arif_55]

acil yardım