Bir Hücredeki yazılı metinde noktadan sonraki boşlukları silmek .

[unur]

Arkadaşlar. Bir metin içinde noktadan sonraki boşlukları nasıl silebilirim.
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

CTRL+H (Değiştir) menüsünü kullanarak yapabilirsiniz.

 

[unur]

Korhan bey öyle yaptığımızda tüm boşlukları siliyor. Benim istediğim kısaltmalardan sonra kullanılan noktadan sonraki boşlukları silmek.
Teşekkürler.

 

[unur]

Korhan bey bu konuda bir öneriniz varmı?

 

[tk123]

Örnek dosya eklermisiniz.

 

[Murat OSMA]

Lütfen örnek bir dosya gönderir misiniz ?

 

[tk123]

Sub boşlukal()
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub


Bu kodu bir dene.

 

[unur]

Murat bey, bir satırlıkta olsa bir örnek dosya ekledim.
Teşekkürler.

 

[asi_kral]

Murat bey, bir satırlıkta olsa bir örnek dosya ekledim.
Teşekkürler.

Merhaba
Ctrl+H yapın Aranan değere nokta ve boşluk işaretlerini koyun yeni değere sdece nokta işreti koyun ve tümünü değiştir deyin sonuçları gözlemleyin.

 

[tk123]

Merhaba
Ctrl+H yapın Aranan değere nokta ve boşluk işaretlerini koyun yeni değere sdece nokta işreti koyun ve tümünü değiştir deyin sonuçları gözlemleyin.

Asi kralın yöntemi oluyor.

 

[Murat OSMA]

Sn. tk123'ün kodunu, Sn. asi_kral_1967'ın dediği gibi yaptığınızda aşağıdaki kod ortaya çıkacaktır...

[SIZE="2"]Sub boşlukal()
Cells.Replace What:=". ", Replacement:=".", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub[/SIZE]

Dilerseniz bu kodu da kullanabilirsiniz;

[SIZE="2"]Sub Emre()
    Dim i as integer
    For i = 1 To Range("F65536").End(3).Row
    Cells(i, "F") = Replace(Cells(i, "F"), ". ", ".")
    Next i: i = Empty
End Sub[/SIZE]

 

[unur]

Arkadaşlar çok Teşekkürler Emeklerinize sağlık.

 

[asi_kral]

Arkadaşlar çok Teşekkürler Emeklerinize sağlık.

Kolay Gelsin.