Excel Sıralama Sorunum Hk.

[MeteTatli]

Merhabalar, sıralama konusunda yardıma ihtiyacım var. Bir sütunda şöyle değerlerim var; Bu sütun 5000 satırdan oluşuyor.
Adana 1
Adana 2
Adana 3
Adana 5
Sırala dediğimde şöyle sıralıyor;
Adana 1
Adana 10
Adana 11
Adana 12
Adana 13
Adana 14
Adana 15
Adana 16
Adana 17
Adana 18
Adana 19
Adana 2
Adana 20
Tek basamak olan sayıların önüne sıfır ekleyebileceğim bir method ya da sıralamayı doğru yapabilecek bir metod var mıdır?

 

[YUSUF44]

En güzeli metin ve sayıyı ayrı sütunlara yazmaktır. Bunu metni sütunlara dönüştür özelliği ile halledebilirsiniz.

Eğer bu yöntemi kullanmayacaksanız sütundaki verilerinizin çeşitliliği hakkında bilgi vermeniz iyi olur. Sadece bir kelime, boşluk ve en fazla 2 basamak şeklinde sayı mı yoksa birden fazla kelime, birden fazla boşluk, farklı basamak sayıları var mı? Bu veriler hangi sütunda? Mümkünse tüm veri tiplerini gösteren örnek dosya paylaşınız.

 

[MeteTatli]

Dosya gönderme yetkim yok henüz, Tüm veriler ilk sütunda tabloda başka veri yok. Türkiyedeki tüm il ve ilçe adları ile bunların sonunda numara olan bir sütundur.

Metin yapısı; il veya ilçe adı+bir boşluk+ numara (numara 1 den başlayıp o ile veya ilçeye göre kaça kadar devam ediyorsa çıkıyor.

Yani bazı illerde Mardin 1, Mardin 2 Mardin 3 gibi az sayıda bazı ile veya ilçelerde İstanbul 1 ..... İstanbul 101 gibi.

 

[YUSUF44]

Dosyanızı imzamda belirttiğim gibi başka siteye yükleyip linkini paylaşabilirsiniz.

 

[hamit]

Sayıları 1 yerine 01 şeklinde yaparsanız doğru sıralar. Ama siz de metin ve sayılar birleşik eğer sayıları ayırma imkanınız varsa daha iyi olur. Yoksa üç sutunda çözerseniz metin sayıyı ayırın sonra tekrar birleştirin.

 

[MeteTatli]

Evet 0 eklemek çözüm ama bunu otomatik yapabilecek bir metod var mı? 5000 satırda tek tek elle yapmak mümkün olmuyor?

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub sifirekle()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    kelime = Left(Cells(i, "A"), WorksheetFunction.Find(" ", Cells(i, "A")))
    say = Replace(Cells(i, "A"), kelime, "") * 1
    Cells(i, "A") = kelime & Format(say, "000")
Next
End Sub

 

[MeteTatli]

Yusuf Bey tşk ederim, biraz düzenlemeyle makro işimi gördü.