Makroyu Sadece 1 SÜtuna Uygulamak

[isafidan]

G sütünundaki türkçe karakterleri ingilizceye çevirmek istiyorum. Bir kod buldum ama sayfanın hepsinde etkili oluyor. Sadece G sütununda geçerli olması için aşağıdaki koda ne ekleyebilirim?

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

 

[accilisse]

ekteki kodları denermisin?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [G:G]) Is Nothing Then Exit Sub
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

 

[isafidan]

Çok Güzel Ama

Kod çalışıyor ama F hücrelerinden G hücrelerine bağlantı oluşturmuştum. F ye yazdığım verileri değiştirmeden G ye yazıyor.

F hücresinde "şakir" adı gözükecek ama G hücresine "sakir" olarak atacak. G hücresine yazarsam "sakir" olarak hemen değiştiriyor. Ama F hücresinden G ye "şakir" olarak yazıyor. Bunu nasıl halledebilirim.

 

[accilisse]

BİDE BUNU DENERMİSİN
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [F:G]) Is Nothing Then Exit Sub
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

 

[isafidan]

Gene Olmadı

Bu sefer hem F hem de G sütunlarında değişiklik yapıyor. Dosyayı ekliyorum. Belki yardımcı olabilirsiniz. İlginiz için çok teşekkür ediyorum.

 

[isafidan]

Formüllerin çalışması için more function yüklü olması gerekli. Onu indirmek için

http://xcell05.free.fr/morefunc/english/index.htm#Download

 

[accilisse]

formüllerin sadece f sütununda uygulanması gerek, ekteki gibi denersen olacaktır

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [F:F]) Is Nothing Then Exit Sub
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
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

 

[isafidan]

Yok yanlış anlattım galiba. F sütunu Ad Soyad, G sütunu e-mail adresi olacak. Benim istediğim F sütunundan G sütununa otomatik olarak kayıt yaptırmak.

---- F --------------------------G ------------------------- R

Şevket Koç --------- sevketkoc@turbonet ---------------- '@turbonet

WMID formülünün çalışması için more function yüklenmesi gerekli

=KÜÇÜKHARF(BİRLEŞTİR(WMID(F2;1;1);WMID(F2;2;1);WMID(F2;3;1);$R$32))

G ye köprü oluşturdum. Ad Soyadı birleştirp harfleri küçültmesinide sağladım. ama türkçe karakter sorununa çözüm bulamadım. F sütunundaki karakterler türkçe kalacak. G sütununa atarken ingilizceye çevirecek.

 

[hsayar]

Formüllerin çalışması için more function yüklü olması gerekli. Onu indirmek için

http://xcell05.free.fr/morefunc/english/index.htm#Download

arkadaşlar bu limktki fonkksiyonların açıklamaları nedir?

 

[isafidan]

WMID(F2;1;1) fonksiyonunu ad soyad arasındaki boşluğu kaldırmak için kullandım. asıl kullanış şekli bir hücredeki metinlerden belli kısmını almak için kullanılıyor.
örnekler aşağıda
............A...............................B...................B sütununa yazılacak formül
Excel için doğru yerdesiniz.....yerdesiniz ...................=WMID(A1;4;1)
Excel için doğru yerdesiniz.....doğru yerdesiniz ...........=WMID(A2;3;6)
Excel için doğru yerdesiniz.....yerdesiniz....................=WMID(A3;4;6)
Excel için doğru yerdesiniz.....Excel ..........................=WMID(A4;-4;6)
Excel için doğru yerdesiniz.....Excel için doğru.......... ..=WMID(A5;-2;8)
Excel için doğru yerdesiniz.....Excel için ....................=WMID(A6;-3;7)
Excel-için-doğru-yerdesiniz....için-doğru-yerdesiniz......=WMID(A7;2;6;"-")
Excel/için/doğru/yerdesiniz.....doğru/yerdesiniz ..........=WMID(A8;3;6;"/")

Ayrıntılar için http://www.excel.web.tr/showthread.php?t=21742

 

[isafidan]

Başka çözüm önerisi olan?