Altalta sıralanmış sıra numaralarının rastgele dizilmesi

[ofk.kara]

aLT ALTA SIRALANMIŞ SIRA NUMARALARINI RASTGELE DİZSİN İSTİYORUM.YARDIMCI OLABİLECEK ARKADAŞ VAR MI? BİR DÜĞME EKLEYİP MAKRO YAZARAK YAPMAK İSTİYORUM. HER TIKLADIĞIMIZDA BU SAYILARIN ALT ALTA SIRALARI DEĞİŞSİN.ŞİMDİDEN TEŞEKKÜRLER.


A B
1
2
3
4
5
6
7
8
9
10

 

[Ömer BARAN]

Merhaba. Foruma hoşgeldiniz.
Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve
açılan ekranda sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın.

Birinci satırın BAŞLIK satırı olacağını varsaydım.

Sayfaya bir şekil/metin kutusu ekleyin ve buna fereyle sağ tıklayıp MAKRO ATAyı seçtiğinizde açılan
küçük ekranda NUMARA_BARAN'ı seçip, işlemi onaylayarak tamamlayın.

Artık bu şekle/metin kutusuna fareyle tıkladığınızda istediğiniz şey gerçekleşir.

[B]Sub NUMARA_BARAN()[/B]
For satır = 2 To 11
10: a = WorksheetFunction.RandBetween(1, 10)
If WorksheetFunction.CountIf(Range("A[B][COLOR="Red"]1[/COLOR][/B]:A" & satır [B][COLOR="Red"]- 1[/COLOR][/B]), a) = 1 Then GoTo 10
    Cells(satır, 1) = a
Next
[B]End Sub[/B]

NOT: Forumda yazacağınız mesajlarda, tüm mesaj metnini BÜYÜK HARF ile yazmanız pek doğru değil.

 

[ofk.kara]

teşekkürler

çok teşekkürler.