ters yazı yazma hakkında

[tasiyici1]

arkadaşlar bir düz yazıyı excelde ters yazmak istiyorum ve bu yazı aşagıdan yukarı okunacak şekilde olacak excelin normal metin hizalamadan yapınca sadece yandan veya üstten aşagı okunuyor ben bunu tersini nasıl yapabilirim makro ile yapabilme imkanı varmı bide makroyu nereye ve nasıl yazıcaz acaba

 

[Ömer]

Merhaba,

Örnek verirmisiniz.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Sub TerstenYaz()
Range("c:c").ClearContents
For i = 1 To Range("a65536").End(3).Row
For j = Len(Cells(i, 1).Value) To 1 Step -1
    metin = metin & Mid(Cells(i, 1).Value, j, 1)
Next
Cells(i, 3) = metin
metin = ""
Next
End Sub

Sub tersine()
Range("d:d").ClearContents
For i = 1 To Range("a65536").End(3).Row
Cells(i, 4) = StrReverse(Cells(i, 1))
Next
End Sub

veya KTF ile

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

 

[tasiyici1]

teşekkürler bir sey daha sorucam bu kodu makroya nasıl yapıştırıcam acaba