YERİNEKOY Koduna Alternatif Kod

[baydeniro]

Merhaba Arkadaşlar,
Aşağıdaki kod garip bir şekilde dosya hatası verdiriyor, dosya kaydolmuyor. Bu koda alternatif bir yöntem olabilir mi ?

Sub DEGISTIR()
Dim W As String
W = Range("F1")
W = Replace(Replace(Replace(Replace(Replace(W, "A", "1"), "B", "2"), "C", "3"), "D", "4"), "E", "5")
Range("F2") = W
End Sub

 

[Korhan Ayhan]

Ben boş bir dosyada denedim hiç sorun yaşamadım.

Bence siz dosyanızı kontrol ediniz. Başka bir durum etkiliyor olabilir.

 

[baydeniro]

Ben boş bir dosyada denedim hiç sorun yaşamadım.

Bence siz dosyanızı kontrol ediniz. Başka bir durum etkiliyor olabilir.

teşekkür ederim üstad. kod biraz daha uzundu, örnek daha net gözüksün diye kısalttım.
bende de ilk önce sorun olmadı ama birkaç defa çalıştıktan sonra sorun oldu nedense.
ayrıca yerinekoy için alternatif bir yöntem olsa iyi olurdu

 

[alicimri]

Eğer Türkçe karakter kullanmayacaksanız (Ü,İ,Ç,Ğ,Ö,Ş) gibi ve hep Büyük harf kullanacaksanız. Aşağıdaki kod işinizi görebilir.

Sub DEGISTIR()
Dim W As String
Dim WX As String
W = Range("F1")
For i = 1 To Len(W)
WX = WX & Asc(Mid(W, i, 1)) - 64
Next
Range("F2") = WX
End Sub

 

[baydeniro]

Eğer Türkçe karakter kullanmayacaksanız (Ü,İ,Ç,Ğ,Ö,Ş) gibi ve hep Büyük harf kullanacaksanız. Aşağıdaki kod işinizi görebilir.

Sub DEGISTIR()
Dim W As String
Dim WX As String
W = Range("F1")
For i = 1 To Len(W)
WX = WX & Asc(Mid(W, i, 1)) - 64
Next
Range("F2") = WX
End Sub

alicimri üstadım, elinize aklınıza sağlık. Beklentimden de öte mükemmel bir kod. Sağ olun, var olun, sağlıcakla kalın