Türkçe karakter

[istavrit]

Merhabalar,

a sütununda yer alan bilgilerimin macromu çalıştırıldıktan sonra hem büyük harfe dönüşmesini hem de türkçe karakterlerin olmamasını istiyorum mümkün mü?

Ã?rnek

söğüş (önce)
SOGUS(sonra) olacak şekilde

SÃ?ÐÜÞ yapabiliyorum ancak türkçe karakterleri değiştiremiyorum yardımcı olabilirseniz sevinirim.

TÞK.

 

[veyselemre]

eki incele

 

[red_lion_72]

Selam,

Bir adet textbox açıp visible özelliğini false yapın(sayfada görünmemesi için), sonra aşağıdaki kodu deneyin.

TextBox1.Text = Sheets("sayfa1").Cells(1, 1)
TextBox1.Text = Replace(TextBox1, "İ", "I")
TextBox1.Text = Replace(TextBox1, "Þ", "S")
TextBox1.Text = Replace(TextBox1, "Ð", "G")
TextBox1.Text = Replace(TextBox1, "Ü", "U")
TextBox1.Text = Replace(TextBox1, "Ç", "C")
TextBox1.Text = Replace(TextBox1, "Ã?", "O")

Sheets("sayfa1").Cells(1, 1) = TextBox1.Text

kolay gelsin.

 

[istavrit]

Çok Teşekkür ederim şimdi gördüm cevabınızı

 

[istavrit]

veysel fonksiyon kullanmadan bu kodu nasıl yazabiliriz?
kendi makromda bir türlü çalıştıramadım

 

[veyselemre]

For x = 1 To [A65536].End(xlUp).Row
cells(x, 1) = UCase(cells(x, 1))
cells(x, 1) = Replace(cells(x, 1), "İ", "I")
cells(x, 1) = Replace(cells(x, 1), "Ü", "U")
cells(x, 1) = Replace(cells(x, 1), "Ð", "G")
cells(x, 1) = Replace(cells(x, 1), "Þ", "S")
cells(x, 1) = Replace(cells(x, 1), "Ç", "C")
cells(x, 1) = Replace(cells(x, 1), "Ã?", "O")
Next

 

[istavrit]

abicim süper oldu çok işime yarayacak çok sağol