A SÜTUNUNDAKİ VERİLERİ KARIŞTIRMA

[farisakboga]

A sütununda verilen veriler 50 satır veya 100 satır olabilir, bunları bulundukları yerde karıştıran bir makro veya formül var mı?ekli dosyada a1'den a27'e kadar kelimeler var. kelimeleri tekrar bu aralıkta karıştırabilir miyiz. bir kaç kez.

 

[Orion1]

B sütununada elle bir kaçtane yapsaydınız,daha anlaşılır olacaktı.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
s = Cells(Rows.Count, 1).End(3).Row
dz = Range("A1:A" & s)
Randomize
For a = LBound(dz) To UBound(dz)
    x = Int(Rnd * UBound(dz) + 1)
    y = dz(a, 1)
    dz(a, 1) = dz(x, 1)
    dz(x, 1) = y
Next
Range("A1:A" & s) = dz
End Sub

 

[farisakboga]

Merhaba,
Deneyiniz...

Sub kod()
s = Cells(Rows.Count, 1).End(3).Row
dz = Range("A1:A" & s)
Randomize
For a = LBound(dz) To UBound(dz)
    x = Int(Rnd * UBound(dz) + 1)
    y = dz(a, 1)
    dz(a, 1) = dz(x, 1)
    dz(x, 1) = y
Next
Range("A1:A" & s) = dz
End Sub

teşekkür ederim. b sütunu için de aynı şeyi yapmak istersem kodun hangi bölümlerini değiştirmeliyim?

 

[farisakboga]

TAMAM. HALLETTİM. SAĞOLUN.

 

[farisakboga]

B sütununada elle bir kaçtane yapsaydınız,daha anlaşılır olacaktı.

bir sorum daha var. sütun değilde 1 satırında veriler varsa onları nasıl karıştıracağız?

 

[ÖmerBey]

sütun değilde 1 satırında veriler varsa onları nasıl karıştıracağız?

Birinci satırı kopyalayınız.
A sütununda sağ tıklayıp özel yapıştır diyiniz.
Açılan pencereden alt sağdaki işlemi tersine çevir kutucuğunu işaretleyip tamam derseniz verileriniz A sütununa dikey olarak sıralanır.
Artık yukarıdaki kodu kullanarak verilerinizi karıştırabilirsiniz.
Gerekli gördüğünüz takdirde aynı işlemi yaparak karıştırdığınız verileri yeniden birinci satıra aldırabilirsiniz.
Ya da aşağıdaki kodu kullanın...

Sub kod()
s = Cells(1, Columns.Count).End(1).Column
dz = Range(Cells(1, 1), Cells(1, s))
Randomize
For a = LBound(dz, 2) To UBound(dz, 2)
    x = Int(Rnd * UBound(dz) + 1)
    y = dz(1, a)
    dz(1, a) = dz(1, x)
    dz(1, x) = y
Next
Range(Cells(1, 1), Cells(1, s)) = dz
End Sub

 

[farisakboga]

Birinci satırı kopyalayınız.
A sütununda sağ tıklayıp özel yapıştır diyiniz.
Açılan pencereden alt sağdaki işlemi tersine çevir kutucuğunu işaretleyip tamam derseniz verileriniz A sütununa dikey olarak sıralanır.
Artık yukarıdaki kodu kullanarak verilerinizi karıştırabilirsiniz.
Gerekli gördüğünüz takdirde aynı işlemi yaparak karıştırdığınız verileri yeniden birinci satıra aldırabilirsiniz.
Ya da aşağıdaki kodu kullanın...

Sub kod()
s = Cells(1, Columns.Count).End(1).Column
dz = Range(Cells(1, 1), Cells(1, s))
Randomize
For a = LBound(dz, 2) To UBound(dz, 2)
    x = Int(Rnd * UBound(dz) + 1)
    y = dz(1, a)
    dz(1, a) = dz(1, x)
    dz(1, x) = y
Next
Range(Cells(1, 1), Cells(1, s)) = dz
End Sub

teşekkür ederim.