Son Harfe Göre Sıralama?

[opticall]

Arkadaşlar elimde word dosyasında 200 adet şiir bulunmakta ve ben bu şiirleri ,başlıklarının son harfine göre sıralamam gerekiyor. biraz araştırma yaptım ve galiba bu işi sadece excelde yapabiliyormuşuz. Fakat gelin görün ki o kadar uğraşmama rağmen bu işin içinden çıkamadım. Bu konuda bana yardımcı olabilecek yahut bilgisi olupta paylaşabilecek bir abim veya kardeşim olursa çok çok memnun kalırım. Zira üniversite de bu bilgisizliğimin acısını çok yakışıyorum. Şimdiden teşekkür ediyor bilgilerinizi bekliyorum...

 

[Ömer BARAN]

Merhaba. Foruma hoşgeldiniz.
Öncelikle, şiirlerin başlıkları ile gövde kısımlarını birbirinden ayrıştırılması için bir kriter bulunması lazım.Örneğin başlıkların tümü büyük harfle yazılmıştır gibi bir kriter. Ardından SAĞDAN gibi bir metin işlevi kulkanılarak başlıkların son harfi üzerinden işlem yapılabilir.
Başlıkların, şiir metninden ayrıştırılması için, örneğin içindekiler listesi gibi bir liste varsa o da işe yarayabilir.
Şiirler zaten yayınlanmış şiirlerse veya buraya yüklemenizde sakınca yoksa belgenizi burası veya burası gibi bir dosya paylaşım sitesine yükleyip, oradan alacağınız erişim bağlantı adresini
burada paylaşırsanız, daha hızlı çözüme ulaşırsınız.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.
A sütununa şiir isimlerini yazıp kodu çalıştırınız son harfe göre B sütununa sıralı halini alırsınız. Tersten sıralama yapmak için > işaretini < ile değiştiriniz.

Sub Son_Harfe_Göre_Sırala()
son = Range("A65500").End(3).Row
siir = Range("A1:A" & son)
Range("B:B").ClearContents
For a = LBound(siir) To UBound(siir) - 1
    For b = a + 1 To UBound(siir)
        If StrReverse(siir(a, 1)) [COLOR="Red"]>[/COLOR] StrReverse(siir(b, 1)) Then
            değer = siir(a, 1)
            siir(a, 1) = siir(b, 1)
            siir(b, 1) = değer
        End If
    Next
Next
Range("B1:B" & son) = siir
End Sub

 

[opticall]

Öncelikle mucit hocam ve ömer hocam ilginiz için teşekkür ederim. Şimdi ömer hocam sizin dediğiniz gibi şiirlerin sadece başlıklarını alıp ayrı bir dosya oluşturdum.Ardından bunları excele aktardım ve mucit hocamın dediği fonksiyonu kullandım. Fakat bu fonksiyon hata verdi neden anlamadım. Bunun üzerine bu fonksiyonu excele biraz ilgisi olan bir arkadaşımla paylaştım ve ufak bir düzenleme ile sorunu çözdüm. Şuan başlıklar son harflerine göre dizilmiş durumda artık geriye paragrafları alıp kopyala yapıştır yapmak kaldı. İlginiz için çok ama çok teşekkür ederim. Beni nasıl bir derstten kurtardığını anlatamam. Ayrıca bu fonksiyonu sizden izinsiz bilgisayar hocamızla paylaştım ve bunu yazan kim diye üstünde çok durdu ) elinize sağlık derdim çözüldü. Teşekkürler excel ekibi