Bir sütundaki hücrelerin rastgele yerlerinin değişmesi

[kahraman.akosman]

Örnek tablo üzerinden "Kartlar" Başlığı altında yer alan hücrelerin rastgele yerlerinin değişmesini istiyorum. Ayrıca "Kartlar" başlığı altına yeni hücreler eklenmesi durumda Makro kodunda nasıl düzenleme yapabilirim ki? eklenen hücreler için yeniden rastgele sıralama yapsın ?

 

[veyselemre]

Sub karistir()
    Dim rng As Range, veri, ii As Byte, i&, r&, tmp$

    With Sheets("Random")
        Set rng = .Range("C3:C" & .Cells(Rows.Count, 3).End(3).Row)
    End With
    veri = rng.Value
    For ii = 1 To 3
        For i = 1 To UBound(veri)
            r = WorksheetFunction.RandBetween(1, UBound(veri))
            tmp = veri(i, 1)
            veri(i, 1) = veri(r, 1)
            veri(r, 1) = tmp
        Next i
    Next ii
    rng.Value = veri
End Sub

 

[kahraman.akosman]

Bu kodları makroya kopyalarak nasıl çalıştır yapacağımı bilmiyorum. Örnek tablo olarak göndermeniz mümkün mü ? Rica etsem ..

 

[veyselemre]

Eki inceleyiniz.

 

[kahraman.akosman]

Elinize sağlık tam istediğim gibi olmuş.