İstenilen Hücredeki Yazıyı (Metni) Terse Çevirilebilirm

[Kemal Demir]

Ýstenilen Hücredeki Yazıyı (Metni) Terse Çevirilebilirm

Arkadaslar İyi Günler,

excelde herhangibir hücrede mesela;A2 Hücresindeki bir yazıyı Bir kod

yardımı ile b2 hücresine tersten yazdırılabilirmi(A2=Ã?rnek;B2=kenrö)

İstenilen Hücredeki Yazıyı (Metni) Terse Çevirilebilirmi?

Yardımcı olursanız sevinirim.

İyi Çalışmalar.

 

[ALPEN]

[vb:1:44e0df367d]For i = Len(Cells(2, 1)) To 1 Step -1
Cells(2, 2) = Cells(2, 2) & Mid(Cells(2, 1), i, 1)
Next i[/vb:1:44e0df367d]

veya

[vb:1:44e0df367d]For i = 1 To Len(Cells(2, 1))
Cells(2, 2) = Mid(Cells(2, 1), i, 1) & Cells(2, 2)
Next i[/vb:1:44e0df367d]

 

[osmantelci]

Function ters(kelime As String) As String
say = Len(kelime)
For i = 1 To Len(kelime)
ters = ters & Mid(kelime, say, 1)
say = say - 1
Next i
End Function

Sub TerseCevir()
MsgBox ters("osmantelci")
[a1] = "osmantelci"
[b1] = ters([a1])
End Sub

 

[Kemal Demir]

Arkadaslar Teşekkur Ederim.

 

[Haluk]

Alternatif;

[B2] = StrReverse([A2])

 

[ALPEN]

Alternatif;

[B2] = StrReverse([A2])

Ühü...

Bende diyordum kendi kendime "atladın olm bir yeri hadi bakalım hayırlısı" diye...

 

[Haluk]

ehehe ... yok canım

 

[Kemal Demir]

Çok Teşekkur Ederim Alternatifler İçin.
Peki bunu nasıl bir döngü yazılabilir a2 den a500 e kadr?

Buradaki tanım nasıl olabilir?

 

[Haluk]

For i = 2 To 500
    Cells(i, 2) = StrReverse(Cells(i, 1))
Next

 

[Kemal Demir]

tesekkur ederim.

 

[Necdet]

Bir seçenekte benden olsun Makro bilmiyorum ama bunu uzun süredir kullanıyorum.

Function tersten(dizi)
tersten = StrReverse(dizi)
End Function

 

[Kemal Demir]

Alternatifler İçin Çok Teşekkur Ederim.