Sıralama

[VeliDemir]

Öncellikle vermiş olduğunuz bu hizmetten ötürü sizlere teşekkür ederim.

Bende Türkçe-İngilizce sözlük veritabanı olan bir Word dosyası var. Bu Word dosyasındaki Türkçe kelimeler şöyle bir kurala göre dizilidir:

1) Bu Türkçe kelimeler, satır başındadırlar.

2) Bu Türkçe kelimelerden hemen sonra noktalı virgül işareti gelmektedir.

3) Bu Türkçe kelimelerin bulunduğu satırdan önceki satır, nokta işaretiyle bitmektedir.

Ayrıca, bu Türkçe kelimelerin sonundaki noktalı virgül işaretinden sonra bu Türkçe kelimelerin bir veya birden fazla satırı işgal eden İngilizce anlamları yer almaktadır.



Ancak, bu Türkçe kelimelerin bazıları alfabetik olarak sıralı olmadığından ötürü, bu Türkçe kelimeleri alfabetik olarak sıralayan bir makro programını sizlerden rica ediyorum.

İyi Günler.


NOT-1: Bu makro programı bazı Türkçe kelimeleri sıralamak amacıyla başka bir yere taşırken, bu Türkçe kelimelerin İngilizce anlamlarını da taşımalıdır.


NOT-2: Bu makro programının örnek bir çalışmasını gösteren Word dosyaları ekte yer almaktadır.

 

[tahsinanarat]

Doc dosyasını kopyalayıp, excelde a sutununa yapıştırdıktan sonra alfabetik sıraya koyup tekrar doc dosyasına aktarmayı denediğinizde sanırım istediğiniz olur gibi görünüyor.

 

[VeliDemir]

Excel'de karşılaşılan sorun.

Merhaba.

Ekte yer alan Word dosyasının içeriğini bir Excel dosyasının sütununa kopyaladım ve bu Türkçe kelimeleri Excelin sıralama fonksiyonuyla alfabetik olarak sıraladım.

Ancak, bu Türkçe kelimelerden hemen sonra noktalı virgül işareti gelmektedir. Bundan ötürü, Excelin fonksiyonu aralarında boşluk olan kelime öbekleriyle, bu kelime öbekleriyle ilgili olan tek kelimelerin sıralamasını yanlış yapmaktadır.(Mesela "akşam" kelimesi, "akşam yıldızı" kelime öbeğinden sonra geliyor.)

Sizden acizane ricam; bu Türkçe kelimelerin sonundaki noktalı virgül işareti dikkate alınarak bir Excel sütununda bu Türkçe kelimeleri alfabetik olarak sıralayan bir makro programını yapmanızdır.

İyi Günler.

NOT: Ekte Word dosyası ve Sıralanmış Excel dosyası yer almaktadır.

 

[leumruk]

Merhaba,
Klasörü rardan çıkarın ve excel dosyasındaki butona tıklayın. Bu işlem sonunda word dosyanızdaki veriler excele alınıp, sıralanacak ve tekrar word dosyanıza aktarılacaktır.

Sub WD_Al_Sirala()
yol = ThisWorkbook.Path & "\ProgramdanOnce.doc"
Application.ScreenUpdating = False
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol
wd.ActiveDocument.Range.Copy
[a1].Select
ActiveSheet.Paste
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
For x = 1 To [a65536].End(3).Row
Cells(x, 1) = Cells(x, 1) & ";" & Cells(x, 2)
Next
wd.ActiveDocument.Range.Delete
Range("a1:" & "a" & [a65536].End(3).Row).Copy
wd.Selection.PasteSpecial DataType:=2
Columns("a:b").Clear
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[VeliDemir]

Size çok teşekkür ederim.