Soru Tablo Doldurma

[ozgretmen]

Merhabalar,
https://drive.google.com/file/d/1MUuRH8Zw1fi9qAXA7BRjKp1DhTg2qyJQ/view?usp=sharing

Yukarıdaki gibi bir tablom var.B2:K8 hücrelerine, satır ve sütunlarda aynı sayı denk gelmeyecek şekilde, B1:K10 hücrelerinde yazan sayıların rastgele yazılmasını istiyorum.
Yardımlarınız için teşekkürler.

 

[Necdet]

Merhaba,
Aşağıdaki kodları chatcpt yazmıştır. Deneyiniz.

Sub BenzersizRastgeleSayilar()

    Dim ws As Worksheet
    Dim usedNumbers As Object
    Dim i As Long, j As Long
    Dim randomNumber As Long

    Set ws = ThisWorkbook.Sheets("Sayfa1")  ' Sayfanın adını burada belirtin
    Set usedNumbers = CreateObject("Scripting.Dictionary")

    ' Rastgele sayı atama döngüsü
    For i = 1 To 10 ' Satır
        For j = 2 To 11 ' Sütun
            Do
                randomNumber = WorksheetFunction.RandBetween(1, 100) ' İstenilen aralığı burada belirtebilirsiniz
            Loop While usedNumbers.Exists(randomNumber) ' Benzersiz sayıları kontrol et

            ws.Cells(i, j).Value = randomNumber
            usedNumbers.Add randomNumber, 0
        Next j
    Next i
    
End Sub

 

[ozgretmen]

İlginiz için teşekkürler Necdet Bey,
İstediğim tablo şunun gibi dolması gerekiyor.
https://drive.google.com/file/d/1nKkNaSi-0F-5zJJKz9-x_xCGUOZ81pWU/view?usp=sharing
Teşekkürler.

 

[Necdet]

Merhaba,
Yine ChatCpt'nin çözümü, biraz basite kaçmış sanırım

Sub SudokuBenzeri()
    Dim ws As Worksheet
    Dim i As Long, j As Long, k As Long
    Dim num As Long
    Dim numbers(1 To 10) As Long

    Set ws = ThisWorkbook.Sheets("Sayfa1")  ' Sayfanın adını burada belirtin

    ' Numbers dizisini başlangıç değerleriyle doldurun
    For i = 1 To 10
        numbers(i) = i
    Next i

    ' Numbers dizisini karıştırın
    For i = 1 To 10
        j = Int(Rnd() * 10) + 1
        k = numbers(i)
        numbers(i) = numbers(j)
        numbers(j) = k
    Next i

    ' Hücrelere değerleri yerleştirin
    k = 1
    For i = 2 To 8
        For j = 2 To 11
            ws.Cells(i, j).Value = numbers(k)
            k = k + 1
            If k > 9 Then k = 1
        Next j
    Next i
End Sub

 

[ozgretmen]

Teşekkürler