Metni 180 Derece Döndürme

[007hasanayik]

Değerli üstadlar.

Forumda arama yaptım ancak konuyla alakası olan bir sonuç bulamadım. Sizlerden İstirhamım. A3 hücresine yazdığım bir metni yada sayıyı. A1 hücresine 180 derece döndürülmüş şekilde yazmamızı sağlayacak formül, özellik yada başka bir şey modül de olabilir. önerebilir misiniz? İlgilenenlere teşekkür ederim.

Hayırlı günler.

 

[Skorpiyon]

Sayın 007hasanayik,

Makro kaydet özelliği ile yapılmış bir örnek. Sayfanıza 1 buton yerleştirin ve aşağıdaki kodları butona atayın.

Sub Makro1()
Range("A3").Copy
Range("A1").Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

 

[007hasanayik]

sayın Şaban SERTKAYA, Öneriniz için teşekkür ederim. Ancak sunmuş olduğunuz kodlar sadece 90 derece dönmesini sağlıyor. Benim istirhamım sizlerden bunun 180 derece dönmesi, Yani yazıya bir ayna koymuş gibi, kağıt çevrildiğinde o yönden okunması. Acaba bu mümkün mü.

 

[007hasanayik]

Sayfayı yan vererek sorunu çözdüm. Teşekkürler.

 

[levo26]

Merhaba;

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

Fonksiyon ile

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

 

[muygun]

hücre değerini 180 derece aynalama

Merhaba;
Genelde kablo etiketi olarak kullanılan ekteki örnek alternatif olsun.
İyi çalışmalar.

 

[007hasanayik]

Değerli üstadlar. ilginize teşekkür ederim. sayenizde gerekli şekilde düzenlememi yaptım artık sayfayı yan da göstermem gerekmiyor. İlgi ve alakanıza gerçekten çok teşekkür ederim. İyi ki varsın excel.web.tr