çok hücreli alfabetik sıra?

[abcd_efe]

merhaba arkadaşlar
yanyana hücrelerin yanyana olan sıralarını bozmadan alfabetik sıraya nasıl alınabilir
örnek dosya ekte.
yardımcı olursanız sevinirim.
şimdiden çok teşekkür ederim.
herkese iyi çalışmalar...

 

[Necdet]

Sayın abcd_efe,
Ekte olduğu gibi mi?

 

[abcd_efe]

hayır arkadaşım malesef. Ortada yer alan isimler alfabetik sırada olacak. ortadakiler alfabetik sıralandıktan sonra sağında ve solunda bulunan ilçe ve numara da ortadakiyle birlikte yer değiştirmiş olacak. alfabetik sıra ortadaki sütuna göre olacak yani.

 

[mehmett]

Sayın abcd_efe

Þöyle olabilir mi?

 

[abcd_efe]

arkadaşım emeğin için teşekkürler ancak ortada yer alan köylerin solunda yer alan bağlı olduğu ilçeler karışmış. zaten benim yapamadığım da bu. birinci sütunda yer alan ilçe isimlerinin alfabetik sırada olması önemli değil. önemli olan ortadaki köy isimlerinin alfabetik sırada olması. mesela sizin yaptığınız sıralamada G2 hücresindeki adaköy nereye bağlı belli değil. normalde solunda beyşehir yazması lazım. G6 hücresindeki akçabelen sizin sıralamanızda ahırlı ilçesinde görünüyor. ama olması gereken beyşehir...

 

[ALPEN]

....

 

[mehmett]

Sayın ALPEN de farklı bir çözüm göndermiş ama abcd_efe'nin istediği sanırım aşağıdaki gibi.

 

[ALPEN]

Argh ben yanlışlıkla ilk dosyayı göndermişim. :mrgreen:

 

[abcd_efe]

evet zerige arkadaşım işte bu. tebrikler teşekkür ederim.

diğer tüm arkadaşlara da emekleri için ayrı ayrı teşekkür ederim.
herkese selamlar

ayrıca nasıl yapıldığını da öğrenmek isterdim...

 

[mehmett]

Ã?nce İlçe sütunundaki boş satırları bir üstteki ilçe adıyla doldurun.

Sonra fare ile tüm listeyi seçin.

Veri > Sırala > Sıralama ölçütü'nde listenizin orta sütunu hangi sütunda ise onu seçin ve Tamam'ı tıklayın.

İlçe isimlerinin bulunduğu sütundaki boşlukları doldurmanın "Boşlukları anlamlı bilgilerle doldur" şeklinde kolay bir yolu vardı ama ben nasıl olduğunu hatırlayamadım ve Ctrl+Enter yöntemiyle doldurdum.

Ctrl+Enter yöntemi şöyle;

Herhangi bir ilçe adından sonra gelen boş hücreler seçilir, ilçenin başharfi yazılır, ilçe adı otomatik olarak gözükünce Ctrl+Enter tuşlanır.

 

[abcd_efe]

peki arkadaşlar bu sıralamayı yapabilen bir macro olabilir mi?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ad8bdaccb4]Sub sirala()
sonsat = [d65536].End(3).Row
For a = 6 To sonsat
If Cells(a, 3) <> 0 Then deger = Cells(a, 3)
Cells(a, 3) = deger
Next
Range("C6:E" & sonsat).Sort Key1:=Range("D6"), Order1:=xlAscending
End Sub
[/vb:1:ad8bdaccb4]