hem harf hem sayı olan hücreleri büyükten küçüğe sıralama sorunu

[keremkgn]

Merhaba;

Elimde kitap listesi var. Baştaki tasnif numaralarını küçükten büyüğe sıralamak istiyorum.
DR 27 kap 2006
DR 1305 dur 1998
DR 16,4 sak 2005 vb. şekilde.

baştaki DR leri sildim olmadı
aradaki boşlukları kaldırdım olmadı.
Listeyi alıp worde yapıştırıp sıraladım küçük bir kısmında yapıyor ama genel listede olmuyor.

Yardım rica ediyorum..

Örneğin aşağıdaki listede 16 ilk önce gelmesini istiyorum . Ama bir türlü sayıyı bütün algılamıyor

DR 1224 BAK 2008 Üsküp'ten Kosova'ya / Yavuz Bülent Bâkil
DR 1224 BAK 2008 Üsküp'ten Kosova'ya / Yavuz Bülent Bâkil
DR 1307 OSM 2000 The wars of Yugoslav dissolution and Bri
DR 1309 KEN 2007 Kent gönüllüleri gençlik kampı Bosna-Her
DR 1313,32 ARA 2004 Mostar köprüsü.
DR 1313,7 HOL 1999 Bir savaşı bitirmek/ Çev.Belkıs Çorakçı
DR 157 DEM 2004 Haçlı seferleri.
DR 16 BAL 2009 Balkanlar / Mustafa Balbay.
DR 16,4 TAR 2003 Tarih; kemalist eğitimin tarih dersleri(
DR 16,4 TAR 2003 Tarih; kemalist eğitimin tarih dersleri(
DR 16,4 TAR 2003 Tarih; kemalist eğitimin tarih dersleri(
DR 16,4 TAR 2003 Tarih; kemalist eğitimin tarih dersleri(
DR 1655 ÇAU 1994 Bosna: müslümanlara son uyarı.
DR 39 ÇAU 1994 Bosna: müslümanlara son uyarı.
DR 1748 ÇOL 1996 Bosnalılar: insanlar,kentler ve dikenli
DR 1755 İZZ 2003 Tarihe tanıklığım/ Çev.Alev Erkilet, Ahm
DR 47 İZZ 2005 Konuşmalar/ Çev.Fatmanur Altun, Rıfat Ah

 

[muygun]

Merhaba;
Tüm verilerinizin ilk 3 karakteri "DR " ise ve bundan sonra gelen rakamları sıralamak istiyorsanız;
Eki deneyin.
İyi çalışmalar.

 

[keremkgn]

Olmadı...

Teşekkürler yanıt için ama yapamadım.(Artan makro çalışmıyor gibi birşeyler diyor)
Üstelik bunu 30.000+kayıtta yapmam gerekiyor..
Ekte DR dosya örneğini gönderiyorum. Yardım edebilirseniz diğer harfleri ona göre yaparım...

 

[Ömer]

Merhaba,

Alternatif olsun.
Module kopyalayıp çalıştırın. F sütunu yardımcı sütun olarak kullanıldı. Siz görmezseniz de veriler bu bölüme önce yazılır sonra silinir.

Sub Sırala()
 
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "F") = CDbl(Split(Cells(i, "A"), " ")(1))
    Next i
        
    Range("A:F").Sort Range("F1"), xlAscending
    Range("F:F").Clear
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[keremkgn]

Ne demek istediğinizi anlamadım ki verdiğiniz kodu sayfa sekmesinde ki koda yapıştırdım olmadı. Modül neresi ?
Yanıt için de teşekkürler..

 

[Ömer]

Önce boş bir excel açıp makro ayarlarını düşürün.

2007 de makro ayarlarını düşürmek için linki inceleyiniz.

http://www.excel.web.tr/f157/office-...li-t83371.html

Ayarları düşürdükten sonra sayfayı kapatın. Bu işlemi bir defaya mahsus yapmanız yeterli olur.

Daha sonra çalışmanızı açıp aşağıdaki bölümleri takip edin.

Modul ekleme linkini inceleyerek dosyaya modul ekleyin ve yukarıdaki kodları module yapıştırın.

Kodları çalıştırmak için ise Alt + F8 / Enter ile yada buton ekleme linkindeki gibi buton ekleyerek işlemi gerçekleştirin.

Linkleri inceleyiniz.

Modül Ekleme (Resimli Anlatım)

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım

Son olarak dosyanızı kaydederken farklı kaydet bölümünden "makro içeren çalışma kitabı" olarak kaydedin.

.

 

[keremkgn]

çözümm

Yanıtlar için teşekkürler ama benim gibi sadece başlangıç düzeyinde excel bilgisi olanlara zor.
Öğrendiğim çözümü yazıyorum ki belki başka birine faydası dokunur.
Dosyayı açtıktan sonra farklı kaydet diyoruz. Aşağı açılır listeden "unicode metin" olarak kaydedip, boş bir sayfa açıyoruz.
Sayfayı açtıktan sonra "veri---metinden-- gelen sayfada "sınırlandırılmış" dayken ileri ---sekme ve boşluk işaretlenip ileri ve son diyoruz.
Harf ve sayılar ayrıldığında istenilen sıralama yapılabilir..