Soru RASTGELE , MİN , MAK FORMÜLÜN MAKRO HALİ

[serdar.gul]

Herkese Merhaba ,

Çözüm Basit fakat Makro konusunda bilgim olmadığı için yardıma ihtiyacım var.

"kelime data" sayfasına manuel veri girişleri yapıyorum ve sıra ID dediğim kısım otomatik sayı atıyor.

sorum şu,

data sayfasına girdiğim verilerden karışık liste oluşturmak. bunu da sıra ıd numarasına göre rastgele formülü ve min , mak ile yapıyorum fakat her defasında sayılar değiştiği için ve bazen her sayıyı yazmıyor atlıyor. kelime data sayfasındaki sıra id yazmış olduğum alandaki en küçük ve en büyük sayı aralığındaki tüm sayıları kullanacak şekilde karışık liste saydasındaki sora no id ye yazacak bir makroya ihtiyacım var umarım anlatabilmişimdir.

teşekkürker

Dosya İndirme Linki

 

[mesuttasar]

Aşağıdaki kodları deneyebilirsiniz.

Sub test()
Dim s1, s2 As Worksheet
Dim son, sat, yaz, id, j, k As Integer
Set s1 = Sheets("KELİME DATA")
Set s2 = Sheets("KARIŞIK LİSTE")

s2.Range("B3:B1000").Select
Selection.ClearContents

For son = 3 To 10000
    If s1.Cells(son, 2) = "" Then
    id = son - 3
    GoTo 10
    End If
Next son
10

For j = 1 To id
    s2.Cells(j, 30) = s1.Cells(j + 2, 2)
Next j

sat = 3

For yaz = 1 To 10000
    k = s2.[AD10000].End(3).Row
    id = Int((k * Rnd) + 1)
    s2.Cells(sat, 2) = s2.Cells(id, 30)
    sat = sat + 1
    s2.Range("AD" & id).Select
    Selection.Delete Shift:=xlUp
    k = s2.[AD10000].End(3).Row
        If k = 1 Then GoTo 20
Next yaz

20
s2.Cells(sat, 2) = s2.Cells(1, 30)
s2.Cells(1, 30).Select
Selection.Delete Shift:=xlUp
s2.Cells(3, 2).Select
MsgBox "İşlem tamamlandı."
End Sub