Metin Sıralama Sıkıntım Var !...

[gumuskunye]

Arkadaşlar elimde 1 sütunda aşağı doğru sıralanmış kelimeler var. Bu kelimeleri harflerine ayırdım. harfleri de alfabetik olarak yine soldan sağa sıralatmak istiyorum. Sıralamayı yaptığında 1. satır istediğim gibi olduğu halde kalan diğer satırlar yanlış oluyor. Şöyle ki ;

Mesela ;
a b a r t ı c ı kelimesinde harfler alfabetik sıralandığında ;
a a b c ı ı r t şeklinde olmalı.

Elimdeki tüm bu kelimeleri nasıl bu forma sokacağım konusunda yardımcı olursanız sevinirim. saygılarımla

 

[Necdet]

Merhaba,

• Sütunları Seçiniz
• Veri
• Sırala
• Seçenekler
• Yönelim --> Soldan Sağa Sırala
• Tamam
• Tamam

 

[gumuskunye]

Merhaba,

• Sütunları Seçiniz
• Veri
• Sırala
• Seçenekler
• Yönelim --> Soldan Sağa Sırala
• Tamam
• Tamam

Teşekkür ederim yalnız ben de dediğiniz şekilde yapıyorum. Fakat üst resimde verdiğim 3. şekli elde ediyorum.Şöyle izah edeyim;
1.Sütunları seçiyorum ve Veri>Sırala diyorum

2.Sırala>Seçenekler Kısmına da girip soldan sağa sırala işaretleyip tamam diyorum

3.Daha sonra Sırala kısmında bir sıralama ölçütü seçmem gerekiyor. Satır 1'i seçiyorum. Tamam Diyorum

4.Oluşan sıralama şu şekilde gerçekleşiyor.

Eğer ben orada satır 1 yerine, satır 15 seçsem sadece satır 15 düzgün sıralanıp diğer satırlar yanlış sıralanıyor.
Benim istediğim Dosyadaki tüm satırların, 1. mesajımdaki resimde olmasını istediğim şekline gelmesini istiyorum.

 

[Necdet]

Merhaba,

Bende ikinci denediğimde, sadece tek satır seçildiğinde doğru çalıştığını, fakat çok satır seçildiğinde yanlış çalıştığını farkettim.

Aşağıdaki kodları bir modülle ilişkilendiriniz.

Sub YataySirala()
Dim i As Long
For i = 1 To [A65536].End(3).Row
    Range("A" & i & ":H" & i).Sort Key1:=Cells(i, "A"), _
                                   Order1:=xlAscending, _
                                   Orientation:=xlLeftToRight
Next i
End Sub

 

[gumuskunye]

Sayın Necdet YEŞERTENER,
Öncelikle beni böylesine bir dertten kurdardığınız için teşekkür ediyorum. Belki saatler harcamamı gerektirecek bir işlemi sayenizde birkaç saniye içerisinde tamamladım.
Tekrar teşekkürler. Çalışmalarınızda başarılar dilerim.

 

[Necdet]

Teşekkürler, bende sizin çalışmalarınızda başarılar dilerim.
Herşey gönlünüzce olsun.