Sütundaki sıralı verileri karıştırmak

[alisbilgisayar]

Arkadaşlar Daha önce burada bi arkadaş yardımcı olmuştu şimdi tekrar bi yardıma ihtiyacım var A ve B Sütünunda verilerim var ben bu sütündaki verilerin karıştırmasını istiyorum raskele sıralı olsun istemiyorum nasıl yapabilirim

A Sütununda seri numarası B sutunuda ürünün adı var

YARDIMLARINIZ İçin TEŞEKKÜRLER

ornek link

http://s6.dosya.tc/server5/f8kdmo/urunlistesi_karistirma.xlsx.html

 

[alisbilgisayar]

Yardımcı olabilecek kimse yokmu

 

[Orion1]

Olmuş halini siz manuel girin bir görelim ne istiyorsunuz?

 

[alisbilgisayar]

Olmuş halini siz manuel girin bir görelim ne istiyorsunuz?

örnek göstermişim exeli biz sıralı hazırlıyoruz ama sisteme karışık eklemek zorudayız yanı satırlardaki verileri exelin içinde sürekli karışmasını istiyoruz

YARDIMINIZ İÇİNDE AYRICA TEŞEKKÜR EDERİM

11111111111 Kasa A
22222222222 Kasa B
54198461561 Kasa A
59595959595 Kasa F
49879846546 Kasa A
89874984485 Kasa A
59864646405 Kasa A
49879846546 Kasa A

 

[alisbilgisayar]

Yardım Edecek Kimse Yokmu

 

[Orion1]

A sütunumu karıştırılacak ,B sütunumu karıştırılacak?

 

[alisbilgisayar]

A sütunumu karıştırılacak ,B sütunumu karıştırılacak?

b sütünü karıştıracak

 

[Orion1]

Dosyanız ektedir.

DOSYAYI İNDİR

Sub rastgele59()
Randomize Timer
Dim col As Collection, sonsat As Long, i As Long, son As Long
Dim indis As Integer
Set col = New Collection
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To sonsat
    col.Add Cells(i, "B").Value
Next i
For i = 1 To col.Count
    son = col.Count
    indis = CInt(Int(Rnd() * son) + 1)
    Cells(i + 1, "C").Value = col(indis)
    col.Remove (indis)
    son = col.Count
Next
    
End Sub

 

[alisbilgisayar]

Dosyanız ektedir.

Sub rastgele59()
Randomize Timer
Dim col As Collection, sonsat As Long, i As Long, son As Long
Dim indis As Integer
Set col = New Collection
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To sonsat
    col.Add Cells(i, "B").Value
Next i
For i = 1 To col.Count
    son = col.Count
    indis = CInt(Int(Rnd() * son) + 1)
    Cells(i + 1, "C").Value = col(indis)
    col.Remove (indis)
    son = col.Count
Next
    
End Sub

çok teşekkür ederim dosyayı başka bi yere yükeleme

 

[Orion1]

çok teşekkür ederim dosyayı başka bi yere yükeleme

8 nolu mesajda dosya linkini yükledim.

 

[alisbilgisayar]

8 nolu mesajda dosya linkini yükledim.

çok teşekkür ederim ellerinize sağlık

 

[Orion1]

çok teşekkür ederim ellerinize sağlık

Rica ederim.
İyi çalışmalar.