Sutundaki sıralamayı karışık hale getirme.

[djw34]

Merhaba,

Ben excelden çok çok anlamıyorum,fakat çok basit olduğunu düşündüğüm bir işlemin çözümünü bulamadım.
Bir sutundaki ardışık olarak sıralı 1'den 50000 e kadar olan isimleri karışık olarak sıralamak ıstıyorum.
Yardımlarınız için tşkler.

 

[Muhammet Okumuş]

Veriler A sütunda ise
Sub Karıştır()
Range("B1:B50000")="=RAND()"
Range("A1:B50000").Sort Range("B2")
Range("B1:B50000")=""
End Sub

 

[Ömer BARAN]

Formülle çözüm arıyorsanız;
http://www.excel.web.tr/f14/kary-tyrarak-syralama-t113050.html

Makro ile çözüm arıyorsanız;
http://www.excel.web.tr/f14/excelde-kelimeleri-kary-tyrmak-t112898.html

konularına bakabilirsiniz.

Aslında sitede arama yapsanız siz de görürdünüz. İyi günler.

 

[Ömer BARAN]

Ben linkleri kopyalayıp yapıştırana kadar, Muhammet bey kod yazmış bile.

 

[Muhammet Okumuş]

Doğrusu bir çok üye gibi ben de yanlış yapıyorum. İnsanları araştırmaya, aramaya sevk etmeden cevapları anında veriyoruz. Bazılarımız kendini geliştirmek adına cevaplasada balık tutmaktan çok, balık tutmasını öğretmeliyiz.

 

[djw34]

Veriler A sütunda ise
Sub Karıştır()
Range("B1:B50000")="=RAND()"
Range("A1:B50000").Sort Range("B2")
Range("B1:B50000")=""
End Sub

excelı cok bılmıyorum bunu kodu nasıl kullanacagım pekı

tşkler

 

[Muhammet Okumuş]

Verilerinizi A sütünuna yapıştırınız.

 

[djw34]

Verilerinizi A sütünuna yapıştırınız.

Muhammet bey çok özür dilerim olmuyor bu,2007 kullanıyorum ben actım verılerı a sutununa yapıstırdım karıstır dedım soyle bır hata verdı :

karıstır.xlsm!karıstır'makrosu çalıştırılamıyor.Makro bu çalışma kitabında olmayabilir veya tüm makro devre dışı bırakılmış olabilir.

dıye yazıyor.

Tşkler

 

[Muhammet Okumuş]

Dosyayı bilgisayara kaydediniz.

 

[Muhammet Okumuş]

Makroları da etkinleştirin.

 

[djw34]

Makroları da etkinleştirin.

Çok teşekkür ederim allah razı olsun.

 

[Muhammet Okumuş]

Hepimizden razı olsun.
İyi çalışmalar.