MAKRO İLE HARF DEĞİŞTİRME

[musa yüksel]

merhaba arkadaşlar ,
muhasebe programın dan excel e veri aldığımda 3 harfi farklı alıyor
Þ = Ş
Ý = İ
Ð =Ğ

3 adet buton yerleştirim İ , Ş , Ğ butonu , bunları tıkladığım zaman çalışma kitabında ki tüm hatalı harflerin değişmesini istiyorum
Fakat VBA ya Þ Ý Ð bu harfleri yazamadığım için makro doğal olarak çalışmıyor
R5 hücresine Þ , S5 hücresine Ý , T5 hücresine Ð yazaraktan değişmesini istediğim harfi hücreden alsın istedim yine başarılı olamadım,
nasıl bir makro yazmam gerekiyor yardımcı olurmusunuz

Makro kaydet ile çıkan makro aşağıda

Sub ŞDENEME()
'
' ŞDENEME Makro
'

'
Range("R5").Select
ActiveCell.FormulaR1C1 = "?"
Selection.Replace What:="?", Replacement:="Ş", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

 

[alicimri]

Makroya gerek yok "Değiştir" ile yapabilirsiniz.
Örneğin Þ karakterini kopyalayın,
Değiştirde "Aranana yapıştırın.
"Yeni değere"Y yazıp
Tümünü değiştire tıklayın.

 

[Haluk]

Veriler "Sayfa1" isimli sayfadaysa;

Sub ConvertToUnicode()
    Dim myCell As Range
    
    For Each myCell In Sheets("Sayfa1").UsedRange
        myCell = StrConv(myCell.Text, vbUnicode)
    Next
End Sub

.

 

[Cengiz Demir]

Bu konuda mesajım bulunsun. İleride buna benzer bir koda ihtiyacım olursa burdan bakarım. Teşekkürler üstad

Veriler "Sayfa1" isimli sayfadaysa;

Sub ConvertToUnicode()
    Dim myCell As Range
   
    For Each myCell In Sheets("Sayfa1").UsedRange
        myCell = StrConv(myCell.Text, vbUnicode)
    Next
End Sub

.

 

[musa yüksel]

Veriler "Sayfa1" isimli sayfadaysa;

Sub ConvertToUnicode()
    Dim myCell As Range
  
    For Each myCell In Sheets("Sayfa1").UsedRange
        myCell = StrConv(myCell.Text, vbUnicode)
    Next
End Sub

.

yardımınız için teşekkürler
sayfada ki tüm kelimelere müdahele etti bu kod hepsinde garip garip değişiklikler yaptı

 

[Korhan Ayhan]

Birazcık cesaretle bu tarz düzeltmeleri kurcalayarak kendiniz yapabilirsiniz diye düşünüyorum.