Metin veya sayıları tersten yazdırma

[NEMAKSAN]

Saygılarla;

mesela
A1 hücresinde 4587954 veya kelebek gibi ibareler var
ben B1 hücresine bunları testen yazdırmak istiyorumn
4597854 kebelek gibi
yukarıdaki örnekleri çoğaltabiliriz karakter sayısı çok alabilir
yani kelebek yazısını A1 hücresinde sildiğim zaman
Yaz mevsimi yazdığımında onun da b1 hücresinde tersini vermesini istiyorum
yani A1 hücresine girilen değer sabit olmayabilir

bunu formüllerle yapmanın mümkünü varmı

 

[Leoncio]

Merhaba;

Ayna görüntüsü mü demek istiyorsunuz?

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanabilirsiniz.

[vb:1:ca9c4b6f13]Sub tersten()
For a = 1 To [a65536].End(3).Row
Cells(a, "b") = StrReverse(Cells(a, "a"))
Next
End Sub
[/vb:1:ca9c4b6f13]

A sütununa yazdıktan sonra B sütununa kendiliğinden yazsın derseniz aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

[vb:1:ca9c4b6f13]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
sat = Target.Row
Cells(sat, "b") = StrReverse(Cells(sat, "a"))
End Sub
[/vb:1:ca9c4b6f13]

 

[Leoncio]

Merhaba;
Sayın leventm cevap vermiş ama alternatif olması açısından;
Aşağıdaki fonksiyonuda kullanabilirsiniz.

Public Function Mirror(aRange As Range)
If aRange.Cells.Count > 1 Then Mirror = "Only one cell please"
Mirror = StrReverse(aRange.Text)
End Function