Tarihlerin başındaki boşlukları silmek

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim sayfamın L sütununda tarihleri bir sistemden alıyorum, aldığım verilerdeki tarihlerin bazılarının
başlarında boşluklu geliyor, bunu yerinekoy formülü uyguladım ama bir türlü silemedim. Elle silmeye çalıştığımdada veri çok olduğu için epey uğraştırıyor.

Tarihlerin bazılarının başlarında boşluk, bazılarının başlarında boşluk olmadığından ve verileri sıralamak istediğimde yanlış sıralama yapıyor.

Yardımcı olur musunuz?

 

[Murat OSMA]

Bu formülü yazıp aşağıya doğru çekiniz..

[FONT="Trebuchet MS"][SIZE="2"]=YERİNEKOY(L2;DAMGA(160);"")[/SIZE][/FONT]

 

[ASLAN7410]

Sayın Murat Bey ilginizi için çok teşekkür ediyorum, tam istediğim gibi oldu.

Fakat formül kopyalayıp değerleri yapıştır dediğimde tarihi metne çeviriyor, bu formülü tüm sütuna uygulayacak ve sonrada sayıya çevirerek makro yazabilir misiniz?

 

[ASLAN7410]

Sayın Murat Bey aşağıdaki linkte aynı konu işlenmiş o linkte ki gibi uyguladım oldu.

http://www.excel.web.tr/f14/hucredeki-bo-luklary-silemedim-t154491.html

İlginiz için çok teşekkür ediyorum, hayırlı geceler.

 

[tseker71]

Selamlar,
yeni konu açmamak için benzer bu konudan devam etmek istedim.

Seçtiğim herhangi bir aralıkta (örneğin F8:H30) Türkçe karakterleri değiştiren bir kod oluşturdum, sorunsuz çalışıyor (makro kaydet ile)
Ancak şimdi seçili bu hücrelerde "KIRP" komutunu da çalıştırmaya ihtiyacım oldu fakat başaramadım, mümkün mü?

Şimdiden teşekkürler

Örnek kodu aşağıda ekledim, sorunum deneme yaptığım ilk 3 satır, hata vermedi ancak çalışmadı da
With Selection
WorksheetFunction.Trim (Value)
End With

Selection.Replace What:="Ğ", Replacement:="G", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="Ü", Replacement:="U", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="Ş", Replacement:="S", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="İ", Replacement:="I", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="Ö", Replacement:="O", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="Ç", Replacement:="C", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

End Sub

 

[Necdet]

Merhaba.

Formül kullanmadan da doğrudan veri üzerinde bunu yapabilirsiniz.
Murat beyin önerisini Bul ve Değiştir ile :

• Sütunu seçin
• Ctrl+H (bul ve değiştir)
• Aranan : Alt+0160
• Tümünü değiştir

 

[tseker71]

Merhaba.

Formül kullanmadan da doğrudan veri üzerinde bunu yapabilirsiniz.
Murat beyin önerisini Bul ve Değiştir ile :

• Sütunu seçin
• Ctrl+H (bul ve değiştir)
• Aranan : Alt+0160
• Tümünü değiştir

Teşekkür ederim
ancak çift kelimeli hücrelerde sorun yaşamak istemedim, örneğin "Halil İbrahim " gibi