Sadece bir sütun için makro

[Merturk]

Merhaba Arkadaşlar,

Forumda soruumla ile ilgili bir çözüm aradım ama kımen bulabildim.

Benim sorunum şöyle ki: Şablonuma başka bir dosyadan şube isimlerini çekiyorum. Sadece bir kolona ama gelen veriler hem türkçe karakterli hemde hepsinin sonunda bir boşluk var. bul ve değiştirle uğraşarak değiştiriyorum ama malumunuz epeyce zaman kaybettiriyor.

Aramalarım sonucu İhsan Hoca'mın bir yazısına denk geldim.


Private Sub Worksheet_Change(ByVal Target As Range)
Target.Replace What:="ç", Replacement:="c", MatchCase:=True
Target.Replace What:="ğ", Replacement:="g", MatchCase:=True
Target.Replace What:="i", Replacement:="ı", MatchCase:=True
Target.Replace What:="ö", Replacement:="o", MatchCase:=True
Target.Replace What:="ş", Replacement:="s", MatchCase:=True
Target.Replace What:="ü", Replacement:="u", MatchCase:=True
Target.Replace What:="Ç", Replacement:="C", MatchCase:=True
Target.Replace What:="Ğ", Replacement:="G", MatchCase:=True
Target.Replace What:="İ", Replacement:="I", MatchCase:=True
Target.Replace What:="Ö", Replacement:="O", MatchCase:=True
Target.Replace What:="Ş", Replacement:="S", MatchCase:=True
Target.Replace What:="Ü", Replacement:="U", MatchCase:=True
End Sub


Şimdi bunun sadece C sütununda etkili olmasını istedim ama beceremedim. Bir de kelimelerin sonundaki boşluğu almak için ne yapmalıyım?

Target.Replace What:=" ", Replacement:="", MatchCase:=True
satırı yeterli olur mu?


Teşekkürler
İyi Çalışmalar

 

[İhsan Tank]

örnek dosya eklemeyi düşünüyor musunuz yoksa böyle bakalım mı konuya böyle

 

[Merturk]

Hocam örnekte anlattım. İlginiz için teşekkür ederim. Ayrıca belirtmeyi unutmuş olabilri dosyada. c sütununnu türkçe karkterleri değişecek.