ELİMDEKİ LİSTEDEKİ İÇERİĞİ TÜRKÇE KARAKTERE ÇEVİRME

[birliksan]

Değerli forum sakini arkadaşlar elimde aşağıdaki eklediğim bir parça listesi mevcut ve listedeki içerik türkçe olmayacak şekilde yazılmış. Bu listeyi excelle türkçeye çevirmek istiyorum fakat mevcut excel bilgimle bunu çözemedim. Bu konuda usta olan arkadaşlardan yardım talep ediyorum. Şimdiden değerli desteğiniz için teşekkür ederim.

SENSOR EMME BORUSU BASINCI FORD FIESTA

CAMURLUK DAVLUMBAZI ON SOL CADDY

CAMURLUK DAVLUMBAZI ON SAG CADDY

CAMURLUK DAVLUMBAZI ON SOL PALIO SIENA

V KAYIS MUHAFAZASI SAG GOLF IV BORA

CAMURLUK DAVLUMBAZI ON SAG MONTAJSIZ ALBEA

CAMURLUK DAVLUMBAZI ON SOL ALBEA

CAMURLUK DAVLUMBAZI ON SAG PALIO SIENA

TABAN ALT MUHAFAZA BMW E39 ARKA SOL

AKU 12V 72 AH LB3 278×175×175 TAM KAPALI ALCAK

EMME MANIFOLD CONTASI NISSAN NAVARA D23 OPEL MOVANO B - RENAULT MASTER III 2.3

TURBO BORUSU CONTASI 25694-25695-12155 RENAULT MEGANE KADJAR 1.2 15- NISSAN QASHQAI 13- 1.2

TURBO BORUSU CONTASI NISSAN QASHQAI X-TRAIL RENAULT KOLEOS 2.0 DCI 07-13

SOGUTMA HORTUMU KIA CERATO 05-09

KAPUT ACMA TELI TRANSIT 93-99 TRANSIT T15-T12

TURBO BORUSU CONTASI PLASTIK BORU HARIC NISSAN X-TRAIL RENAULT KOLEOS 2.0 DCI 16

 

[beab05]

Merhaba;

NISSAN içinde yer alan "I" harfi doğru küçük yaparsanız da "i" olacaktır "ı" olmayacak.

HARIC kelimesinde yer alan "I" harfi "İ" ya da "i" olmalı ve "C" ise "Ç" ya da "ç" olmalı.

Hal böyle olunca ve ilgili kelimeler sabit değilse! tek çare yapay zeka ile çevirmeye çalışmanız.

Örneğin ilk denememde aşağıdaki gibi sonuç verdi. Bu daha da şekillendirilebilir..

SENSOR EMME BORUSU BASINCI: Ford Fiesta

CAMURLUK DAVLUMBAZI ÖN SOL: Caddy

CAMURLUK DAVLUMBAZI ÖN SAĞ: Caddy

CAMURLUK DAVLUMBAZI ÖN SOL: Palio, Siena

V KAYIŞ MUHAFAZASI SAĞ: Golf IV, Bora

CAMURLUK DAVLUMBAZI ÖN SAĞ MONTAJI YOK: Albea

CAMURLUK DAVLUMBAZI ÖN SOL: Albea

CAMURLUK DAVLUMBAZI ÖN SAĞ: Palio, Siena

TABAN ALTI MUHAFAZA: BMW E39 ARKA SOL

AKÜ 12V 72 AH TAM KAPALI ALÇAK: Alca

EMME MANİFOLD CONTASI: Nissan Navara D23, Opel Movano, Renault Master III 2.3

TURBO BORUSU CONTASI: Renault Megane, Kadjar 1.2, Nissan Qashqai 1.2

TURBO BORUSU CONTASI: Nissan Qashqai, X-Trail, Renault Koleos 2.0 DCI

SOĞUTMA HORTUMU: Kia Cerato

KAPUT AÇMA TELİ: Transit T15-T12

TURBO BORUSU CONTASI: Nissan X-Trail, Renault Koleos 2.0 DCI

Gözüme çarpan "CAMURLUK" yazmış oysa "ÇAMURLUK" olmalı.. Bazı kelimeleri de atlamış. Tabii bunlar düzeltilebilir..

 

[Necdet]

Merhaba,
Bir öneri de benden olsun
Çok fazla sözcük olduğunu sanmıyorum, bu yüzden aşağıdaki kodları kullanabilirsiniz.
Bir sayfaya veride geçen sözcükleri ve türkçe halini yazarsanız, kod bunları değiştirecektir.

Örnek Dosyayı Buradan İNDİRİN

Sub Makro1()
   
Dim rng As Range
Dim lRow As Long
Dim i   As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet

Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")

Application.ScreenUpdating = False

lRow = sh1.Cells(Rows.Count, "A").End(3).Row

Set rng = sh1.Range("A2:A" & lRow)

For i = 2 To sh2.Cells(Rows.Count, "A").End(3).Row
   
    rng.Replace What:=sh2.Cells(i, "A") & " ", Replacement:=sh2.Cells(i, "B") & " ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
   
Next i

Application.ScreenUpdating = True
sh1.Select
MsgBox "Bulduğum sözcükleri değiştirdim...."


End Sub

 

[Muzaffer Ali]

Merhaba.

Alternatif.

Yerleşik yazım denetimi ile yapabilirsiniz.
1- Büyük harfli kelimeler göz ardı ediliyor onun için tüm listeyi küçük harfe çevirmelisiniz.
Veriler A sütunundaysa B1'e =YAZIM.DÜZENİ(A1) formülünü kopyalayıp aşağıya doğru çoğaltın.
2- Formül içeren hücreler de göz ardı ediliyor, B sütununu formülden arındırmalısınız.
B sütununun tamamını seçip kopyalayın, Özel yapıştır / Değerler seçin
3- Gözden geçir tabını açıp Yazım Denetimi tıklatın. Bu şekilde tüm kelimeleri denetleyebilirsiniz.
4- Listeyi yeniden büyük harfe çevirmek için =BÜYÜKHARF(A1) formülünü kullanabilirsiniz.

 

[birliksan]

Değerli bilgi ve önerileriniz için teşekkür ederim yaklaşık 850 bin satır var bu şekilde manuel çözümler benim için zor olacak görünüyor.

 

[Necdet]

Önerim hakkındaki düşüncenizi merak ediyorum.
Yorum yapmadınız.

 

[beab05]

videoda 15 dakikadan sonra

EDIT NOT: Üstte videolu mesaj vardı ona istinaden yazmıştım alttaki mesajı, üstteki mesaj silinmiş... Alıntı da yapmıştım zaten..

Merhaba;

Aynı hücrede yer alan Türkçe ve İngilizce yazılması gereken kelimelerde nasıl olacak?

Örneğin; hücredeki veri: "METİN ABİ BUGÜN NISSAN VE KIA'SINA BİNERKEN IŞIKLARI AÇMADI." Bu hücrede nasıl sonuç alacağız ve aynı zamanda kelimeler sabit değil yani ne olacağı belli değilse?

 

[Haluk]

"Bu devirde 2 araba birden ! Metin abinin de maşallahı varmış......" diye bir sonuç gelebilir....

.

 

[beab05]

"Bu devirde 2 araba birden ! Metin abinin de maşallahı varmış......" diye bir sonuç gelebilir....

.

Işıkları açmaması da ayrıca dikkatimi çekti..

İstinaden yazdığım mesajı da silmişler bu arada..

 

[Haluk]

.......
İstinaden yazdığım mesajı da silmişler bu arada..

Metin Abi, mal varlığı afişe olmasın diye forum yönetiminden rica etmiş olabilir ......

.

 

[Asri]

Merhaba,
Bir öneri de benden olsun
Çok fazla sözcük olduğunu sanmıyorum, bu yüzden aşağıdaki kodları kullanabilirsiniz.
Bir sayfaya veride geçen sözcükleri ve türkçe halini yazarsanız, kod bunları değiştirecektir.

Örnek Dosyayı Buradan İNDİRİN

Sub Makro1()
  
Dim rng As Range
Dim lRow As Long
Dim i   As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet

Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")

Application.ScreenUpdating = False

lRow = sh1.Cells(Rows.Count, "A").End(3).Row

Set rng = sh1.Range("A2:A" & lRow)

For i = 2 To sh2.Cells(Rows.Count, "A").End(3).Row
  
    rng.Replace What:=sh2.Cells(i, "A") & " ", Replacement:=sh2.Cells(i, "B") & " ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
  
Next i

Application.ScreenUpdating = True
sh1.Select
MsgBox "Bulduğum sözcükleri değiştirdim...."


End Sub

Merhaba,

Öneriniz dahada geliştirilebilir. TDK nın Türkçe kelime listesi, A sütunundan Türkçe, B sütununda Türkçe harf olmadan düzenlenebilir.
Daha sonra bu listedeki her bir cümle kelimelere ayrılarak, bu oluşturulan kelime listesi ile karşılaştırılabilir.
Büyük oranda çevrim sağlanacağını düşünüyorum.

Buradaki problem ek alan kelimeler olacaktır. Türkçe harfler olmadığı için kökü bulacağımızı sanmıyorum.
Bu durumda her bir kelimenin sondan harflerini birer birer eksilterek hazırlanan listeden arama yapılabilir.

Saygılarımla

 

[Necdet]

Merhaba Sayın Asri,

Ben o kadar geniş kapsamlı düşünmedim, sadece sözcükten hareketle bu sorun çözülmez gibi.
Ben parça isimleri olduğu için çok basit öneride bulundum.
OTO CAM ile CAM BARDAK (sırf örnek olsun diye yazdım, oto parçaları listesinde cam bardak olmaz da bu "CAM BARDAK" aslında ÇAM BARDAK ise
bulunması gereken sözcük CAM BARDAK, değiştirilmesi gereken sözcük ise ÇAM BARDAK yazılırsa CAM, ÇAM olmaz.

Diye düşündüm.

 

[Haluk]

Metin abi'nin kafası yanmazsa iyidir valla....

.

 

[HücrelereFısıldayanAdam]

Ben bu tür konularda Necdet üstadın önerdiğine benzer bir şekilde sözlük oluşturarak: CreateObject("Scripting.Dictionary") fonksiyonuyla değişmesi gereken cümle öbekleri veya kelimeleri düzeltiyorum. Burada püf noktası, istisna olacak durumları belirleyip sözlüğün başına almak. Örneğin: CAM ve CAM KOKUSU adlı iki eşya olsun. Önce "CAM KOKUSU": ÇAM KOKUSU" olarak tanımlanmalı. Yani sözcük yerine öncelikle sözcük gruplarından hareket edilirse sorunlar %99 çözülecektir.

Veri yüzbinlerce satır da olsa, sürekli aynı kelimelerin /kelime gruplarının tekrar ettiğini görebilirsiniz, tahminen 1 saat bir çabayla bir sözlük hazırlanması yeterli.
Diğer taraftan, her zaman olduğu gibi veriyi de doğru düzenlemek önemli. Örneğin "TURBO BORUSU CONTASI PLASTIK BORU HARIC NISSAN X-TRAIL RENAULT KOLEOS 2.0 DCI 16" aslında parça adı, seri numarası ve ilgili olduğu araç modeli gibi 3 hücre ayrı saklanmalı.