Bosluk atma!- ama klasik bi sorun degil...

[tömbekizade]

Ömer Bey,

Yukarıda yazdığınız makro koduna birkaç ekleme yapmak mümkün müdür?

1.Ekleme:

Mesajlar içerisinde yer alan tüm noktalama işaretleri (. , ? ! vb.) ile tüm harici sembolleri ( ör. * , ~ , ^ , & vb. ) kaldırmak, daha doğrusu boşluk ile yer değiştirmek mümkün mü?

2. Ekleme:

Mesaj içerisinde yer alan tüm kelimeleri küçük harf ile yazdırabilir miyiz?

Saygılar,

 

[Ömer]

Bu şekilde deneyiniz. Harf ve sayıların dışındaki tüm karakterleri silecektir.

Sub Duzenle()
 
Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    Set deg = CreateObject("VBScript.Regexp")
    deg.Pattern = "[^a-z0-9\ç\ğ\i\ı\ö\ş\ü\ ]"
    deg.Global = True
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A") = KucukHarf(Cells(i, "A"))
        Cells(i, "A") = Trim(deg.Replace(Cells(i, "A"), " "))
    Next i
    Set deg = Nothing
 
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:= _
    xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _
    True, Space:=True
 
    Cells.HorizontalAlignment = xlLeft
    Cells.EntireColumn.AutoFit
 
    Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
End Sub
[COLOR=teal]'........... KüçükHarfe Çeviren Ktf ....................[/COLOR]
Function KucukHarf(Veri As String)
    KucukHarf = LCase(Replace(Replace(Veri, "İ", "i"), "I", "ı"))
End Function

.

 

[tömbekizade]

Şöyle bir sorun var Ömer Bey, ş-ç-ü-ı gibi türkçe karakterleri silip onlardan sonra gelen ekleri ayrı bir kelime gibi başka hücreye atıyor. Bir de küçük y'ler i ile yer değiştirmiş galiba, bazı garip durumlar var.

Çok sağolun, saygılar

 

[Ömer]

Şöyle bir sorun var Ömer Bey, ş-ç-ü-ı gibi türkçe karakterleri silip onlardan sonra gelen ekleri ayrı bir kelime gibi başka hücreye atıyor. Bir de küçük y'ler i ile yer değiştirmiş galiba, bazı garip durumlar var.

Çok sağolun, saygılar

Bu şekilde bir hataya rastlamadım.

#22 nolu mesajı değiştirdim, tekrar denermisiniz.

.

 

[tömbekizade]

yine benzer sorunlar var Ömer Bey,
bir örnek vereyim:

17. satırda normalde "havaalanından" diye ayrılması gereken kelime
"havaalan" ve "ndan" olmak üzere 2 ayrı hücreye dağıtılmış.

ayrıca orjinal metinde Büyük Y ile yazılan harfler küçük i ile yer değiştirmiş.
örn: 2.satırın ilk kelimesi normalde THY--> thy olarak parçalanması gerekiyordu fakat "thi" olarak
parçalanmış.

 

[Ömer]

Hızlı bulabilmem için;

2. ve 17. satırda bu veriler hangi sütun da var.

 

[tömbekizade]

kod çalıştırılıp parçalama gerçekleştikten sonra bahsettiğim veriler şu hücrelerde yer almış.
A2 -- thi
K17--havaalan L17--ndan

 

[Ömer]

#4 nolu mesajda eklediğiniz dosyaya göre bu şekilde bir hata ben almıyorum. Hata aldığınız dosyayı kodu çalıştırmadan eklerseniz tekrar inceleyeyim.

.

 

[tömbekizade]

ekledim Ömer Bey, çok teşekkürler.

 

[tömbekizade]

aslına bakarsanız türkçe-ingilizce karakter dönüşümüne pek gerek de olmayabilir eğer sorun ondan kaynaklanıyorsa. çünkü ilk yazdığınız kodda bu tarz bir sorun yoktu.

 

[Ömer]

Kodu çalıştırıp dosyayı ekledim. Söylediğiniz hatalar bende çıkmadı

.

 

[tömbekizade]

maalesef ben de hala aynı hata devam ediyor Ömer Bey, sizin dosyanızı inceledim siz de aynı kod düzgün çalışıyorken bende türkçe karaktere rastladığı anda türkçe karakteri silip geri kalan harfleri hemen yanındaki hücreye atıyor.

benzer bir sorunu başka bir kodda da yaşamıştım. acaba bu benim dil ayarlarımdan kaynaklanan birşey olabilir mi? ben Office 2007 ingilizce olarak kullanıyorum, bilgisayarımın dil ayarı da aynı şekilde ingilizce..

 

[tömbekizade]

aynı kodu evdeki bilg.de çalıştırdım bu sefer oldu Ömer Bey.
evde kullandığım office'in dil ayarı türkçe fakat pc'nin dil ayarı ingilizce.
işyerindekinin her ikisi de ingilizceydi.
anlamadım gitti valla bu dil ayarlarını.
çok sağolun tekrardan, çok makbule geçti bu kod.
diğer kısımla ilgili de uygun bir vaktinizde yardımcı olabilirseniz çok sevinirim.
tekrardan teşekkürler , saygılar.