kazı kazan kartı

[selim06]

Merhaba,
bir kazı kazan kartı yapmam gerekiyor. Bu kart 12 haneden oluşuyor ve bu hanelerin 5 adedi A, 4 adedi B, ve 3 adedi C olmalı. Bunu gelişigüzel olarak excelde yaratabilirmiyiz? Ben de bu tablodaki hücreleri yazı alanıma yazdırıp kazı kazan kartlarını print edebilirim.

 

[veyselemre]

Sub Uret()
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Dim a(1 To 12) As String
    For x = 1 To 5: a(x) = "A": Next
    For x = 6 To 9: a(x) = "B": Next
    For x = 10 To 12: a(x) = "C": Next
    Randomize Timer

    For y = 1 To 1000    ' 1000 kez tekrarla
basla:
        For x = 1 To 12
yeni:
            sayi = Int(Rnd * 12) + 1
            If sayi > 12 Then GoTo yeni

            ara = a(x)
            a(x) = a(sayi)
            a(sayi) = ara
        Next
        TOPLA = Join(a, "")
        If WorksheetFunction.CountIf([a:a], TOPLA) > 0 Then GoTo basla
        Cells([a65536].End(3).Row + 1, 1) = TOPLA
    Next y
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

[selim06]

makro hata veriyor. Ben macintosh ile çalıştığımdan mı bu hatayı verir?