İngilizce ve Türkçe kelimeleri ayırmak

[Mahmut Bayram]

Ýngilizce ve Türkçe kelimeleri ayırmak

Günaydın arkadaşlar.
A sütununda hem ingilizce hemde Türkçe kelimeler var. Aynen şöyle
[vb:1:f92f941b18]Hypothetical Reference Circuit Varsayımsal Dayanak Devresi.[/vb:1:f92f941b18]
Bunu A1 satırında Hypothetical Reference Circuit
B satırında "Varsayımsal Dayanak Devresi" olacak şekilde ayırabilir miyiz?
İngilizce ve Türkçe kelimelerin sayısı değişken.
A sütunu son satıra kadar gidiyor.
Yardımcı olacak arkadaşlar şimdiden teşekkür ediyorum.

 

[hamzacan]

Günaydın...

=PARÇAAL() fonksiyonunu kullanınız.

Þaka bir yana.İlginç değişik bir soru.Hiç fikir yok benden. :?

 

[Mahmut Bayram]

Sayın hamzacan, ilgilendğin sağolasın. Bu benim için hayat memat meselesi oldu.
O fonksiyon tek hücre için geçerli olabilir, bir de işin şu yüzü var A sütununda 28.897 satır var hepsine uygulayamaz.

 

[danersin]

Excel'in değil hemen hiç bir programın yazılan "kelimenin" ingilizcemi türkçemi olduğunu kesin olarak belirleyemez. Yüzlerce kelime ingilizce ve türkçede yazım olarak aynı olabilir. İngilizce'deki "an" "the" gibi kelimelerde aynı cümlenin türkçe ve ingilizce çevirilerindeki kelime sayısını çok fazla değiştirecektir. Dolayısı ile Excel'de sorunuza yüzde yüz bi çözüm bulmak çok zor. Ama verdiğiniz örnekte olduğu gibi hep tanımlamalardan oluşsaydı hücreler , ingilizce ve türkçe kelime sayısı çoğunlukla aynı olacağı için şöyle bir çözüm kullanılabilirdi...

a1 de cümle olmak üzre
b1'e
=YERİNEKOY(KIRP(A1);" ";"*";(UZUNLUK(KIRP(A1))-UZUNLUK(YERİNEKOY(KIRP(A1);" ";""))+1)/2)
c1'e
=SOLDAN(B1;BUL("*";B1)-1)
d1'e
=PARÇAAL(B1;BUL("*";B1)+1;UZUNLUK(B1)-BUL("*";B1))

 

[Mahmut Bayram]

Sayın danersin, dediğiniz bir çözüm heralde işimi görmeyecektir.
İlginize teşekkür ederim. Galiba o kadar satırı tek tek el ile ayırmaktan başka bir şansım kalmadı.

 

[danersin]

Maalesef..
Belki bir arkadaşın aklına bir cinlik gelir, siz biraz daha bekleyin..

En azından ayırırken cümlenin arasına benim yaptığım gibi * işareti koyarak 2. ve 3. formüllerden faydalanabilirsiniz.

 

[Mahmut Bayram]

Yapmak istediğim programı bitince siteye ekleyeceğim. Ve iddia ediyorum en çok download edilen bir dosya olacak.
Excel-Computer-İngilizce-Türkçe Terimler Sözlüğü :mrgreen:
İnşaallah bu gazla birileri sorunumuzu çözer diyorum.

 

[Levent Menteşoğlu]

Eğer veri içindeki ingilizce kelime sayısını yandaki hücrede belirtirseniz, size ekteki dosyada bir çözüm sunuyorum.

 

[Mahmut Bayram]

Tabii ya kelime sayısını belirt, sonra da ayır. Bunu nasıl düşünemediysem.
Ne demişler "Akıl akıldan üstündür".
Sağolasın leventm. Teşekkürlerimi sunuyorum.

 

[Necdet]

işi garantiye almak için hücreyi KIRP fonksiyonundan geçirmekte yarar var, fazla boşluk varsa kalsın diye, anımsatayım dedim
Aklıma gelde kelime saymaktansa her hücreye bakar bakmaz zaten ingilizce nerde başlıyor nerde bitiyor hemen belli olacağı için araya bir ayraç kod koyup sonra parçalamak bence daha doğru gibi geldi. En azından saymaktan hızlı olur diye düşünüyorum. ayraç ** olabilir.

 

[Levent Menteşoğlu]

Boşluk konusunda Sn Necdet bey çok haklı bu durumda kod içerisine birde "KIRP" fonksiyonu ilave etmekte fayda var. Ayraç düşünceside iyi bir fikir fakat 28.000 tanımdan bahsedilince, benim çözüm daha pratik kalıyor gibi , aslına bakarsanız, her iki çözümde pc ye İngilizce veya Türkçe öğretmekten daha kolay gibi

Sub kelimeayir()
Application.ScreenUpdating = False
For a = 3 To [b65536].End(xlUp).Row
Cells(a, 2) = WorksheetFunction.Trim(Cells(a, 2).Value)
For b = 1 To Len(Cells(a, 2))
If Mid(Cells(a, 2), b, 1) = " " Then c = c + 1
If c = Cells(a, 1) Then
Cells(a, 2).TextToColumns Destination:=Cells(a, 2), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(b - 1, 1))
c = 0
GoTo 10
End If
Next
10 Next
Columns("b:c").EntireColumn.AutoFit
End Sub

 

[Serpily]

Benim aklıma nacizane bir fikir geldi ama çok süper...

İlk 5000 satırı ben böleyim mesela...
Tamam Excelce bir çözüm değil belki ama excel.web.tr ce bir çözüm. Temelinde yardım var.

Benim gibi 6 kişi daha oldu mu tamam.

 

[Necdet]

Sayın Serpily, bu benimde aklıma geldi ama 5000 çok 1000 er 1000 er ayıralım, ben varım

 

[Mahmut Bayram]

Eğer gönüllüler varsa ben emaile göndereyim. istediği kadar.
Daha sonra da hepsini burada birleştirelim.

 

[Necdet]

A be Mahmut Bey kardeşim, gönüllüyüz dedik ya

 

[Mahmut Bayram]

ilk 5000 Necdet_Yesertener beye gönderildi. Yok mu artıran? :mrgreen:

 

[Levent Menteşoğlu]

Bana tamamını gönderirmisin.

 

[Mahmut Bayram]

sayın leventm, beye gönderildi.

 

[Levent Menteşoğlu]

Mahmut bey ayırma işlemi tamamlandı, %98 oranında doğrudur, aradan çıkabilecek hatalılarıda siz düzeltirsiniz. Burayamı ekleyeyim yoksa e-mail adresinizemi göndereyim.

 

[Mahmut Bayram]

Program Userform şekline getirildikten sonra tarafımdan eklenecektir.
Emeği geçenler bölümü falan hazırlayacağım. Arama, bul, bulunanı kopyala vs... ekleyeceğim.
Email adresime gönderebilirsiniz.
mahmut_bayram38@hotmail.com