Sütuna rasgele eşsiz sayı atama YARDIM

[micnun]

Merhaba arkadaşlar ben bir sütuna solunda bulunan kayıt sayısı kadar rasgele ve eşsiz sayı atamak istiyorum.


Örnek olarak;
Tablomda 500 kayıt var bu tablonun son sütununa her kayıt için eşsiz olacak ve 1 ile 500 arasında rasgele sayı atacak bir formül...
Kayıt sayısı 800 olunca otomatik olarak 1 ile 800 arasından seçecek...
verdiği sayıyı herhangi bir sebeple yenilemeyecek, sabit kalacak. Ancak yeni bir kayıt eklenince kendini güncelleyecek.

Böyle bir formül yapılabilirmi acaba?
Yardımlarınızı bekliyorum..

 

[NBATMAN]

Merhaba ekteki dosyadaki gibi bir şey mi? istiyorsunuz. B sütunun 2. satırından 42.satırına kadar olan 1 ile 41 arasındaki sayıları silip,Sonra A sutununa yeni kayıtlar ekleyip butona basınız.

 

[micnun]

Eklenen Satırlara numara vermekte başarılı ancak rasgele sayı atamıyor.
demek istediğim a sütununa kayıt ekledikten sonra sıralı değilde rassgele(karışık) şekilde sayılar belirleyecek.1 den 41 e sıralı değil de karışık atama yapmasını istiyorum.

 

[micnun]

Teşekkürler kardeş,
verdiğin dosyayı bu şekilde geliştirdim, kodları bilmediğim için biraz zor oldu

Bazen "goto top" kısmı çalışmıyor gibi. bi eksik varmı diye kontrol edersen sevinirim.

Option Explicit

Dim sayi As Integer
Dim Satır As Integer
Dim i, x As Integer
Private Sub CommandButton1_Click()


Satır = [A65536].End(3).Row
For i = 2 To Satır
top:
sayi = Round(Satır * Rnd)
If sayi < 1 Then GoTo top
If sayi > Satır - 1 Then GoTo top
    For x = 2 To Satır
        If Range("B" & x) = sayi Then
           
            GoTo top
        End If
    Next x
Range("B" & i).Value = sayi
Next i
End Sub