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...
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.
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...
Ã?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.
[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.