Rastgele alınan sayıların mod 3 teki değerlerinin aynı olmaması

[Tevfik_Kursun]

Merhaba Arkadaşlar,
İki sütuna 1 - 200 arası rastgele alınan sayıların mod 3 teki değerleri yazılıyor. Aynı satırdaki hücrelerden değeri aynı olanlarının ikinci sütunu (yada birinci sütunu) değiştirilsin istiyorum. Bu amaçla ekli dosyadaki makroları hazırladım. Kontrol makrosunu otomatik tekrarlattığımda donma oluyor. Manuel yaparsam bazen 2, bazen 10 defa tekrarlatmam gerekiyor. Buna bir çözüm bulunabilir mi?
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Menu()
Basa:
    If [AR1] <> 0 Then
        Call Kontrol
      Else
        GoTo Bitir
    End If
      If [AR1] <> 0 Then GoTo Basa
Bitir:
End Sub

Bu makro ile problemimi çözdüm. Farklı çözüm önerilerine de açığım.
Saygılarımla

 

[Korhan Ayhan]

Sadece aşağıdaki kod yeterli olacaktır.

Option Explicit

Sub Rastgele()
    Dim X As Integer, Veri As Variant
   
    Range("AQ4:AR203").ClearContents
   
    With Range("AQ4:AR203")
        .Formula = "=Mod(RandBetween(1,200),3)"
        .Value = .Value
    End With

    For X = 4 To 203
        If Cells(X, "AQ") = Cells(X, "AR") Then
            Select Case Cells(X, "AQ")
                Case 0
                    Veri = Array(1, 2)
                Case 1
                    Veri = Array(0, 2)
                Case 2
                    Veri = Array(0, 1)
            End Select
            Cells(X, "AR").Value = Veri(WorksheetFunction.RandBetween(0, 1))
        End If
    Next
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
İlginize çok teşekkür ederim. Hemen deneyeyim.
Saygılarımla