Hücredeki Yazıyı Ters Çevirme (Yönlendirme -0)

[camosur]

A1 Hücresindeki normal yazıyı ters yazmak istiyorum..

Örnek:

A1 Hücre : ------ 240 -------- (Bu Sayı Ters Yazılacak)

A2 Hücre : Mehmet Salih Toy


Bunları kesip dosya ismini yapıştırcam.

Aşağıda bi formül gördüm ama olmadı.

=tersyazı(Düz Yazının Bulunduğu Hücre)

Yardımcı olursanız sevinirim. Teşekkürler.

 

[tahsinanarat]

B sütununu metin olarak biçimlendiriniz, sayfanın kod bölümüne de

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

kodunu girip deneyiniz.

 

[camosur]

B sütununu metin olarak biçimlendiriniz, sayfanın kod bölümüne de

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

kodunu girip deneyiniz.

Efendim 240 Rakamı -0 dereye kadar yön olarak döncek;

şu örnekteki gibi

https://yadi.sk/i/WReR5FzTcyAJt

 

[Erdal]

Merhabalar
Eki inceleyiniz.
Not: Tahsin Beyin yazmış olduğu kodlardan yararlanılmıştır.
http://www.dosya.tc/server36/b1FSYl/_rnek.xls.html

 

[tahsinanarat]

Sn. Erdal Bey, öncelikle kodların bana ait olmadığını evvelce bu siteden temin ettiğim kodlar olduğunu söyleyeyim, çok güzel bir fikir üretmişsiniz aklınıza sağlık, ben çok beğendim.

 

[Korhan Ayhan]

Pratik ve akıllıca...

:bravo::bravo::bravo:

 

[Erdal]

Tahsin Bey, Korhan Bey teşekkür ederim.

 

[camosur]

Merhabalar
Eki inceleyiniz.
Not: Tahsin Beyin yazmış olduğu kodlardan yararlanılmıştır.
http://www.dosya.tc/server36/b1FSYl/_rnek.xls.html

Hocam yapmışsınız çok teşekkür ederim ancak çoğunluk olarak olarak sıralama yapcam.

Nasıl yaptığınızı ya da yapabileceğim yolu söylerseniz çok sevinirim. Teşekkürler.

 

[Erdal]

Merhabalar
1- Tahsin Beyin verdiği kodları ilgili sayfanın kod bölümüne yapıştırın ve B sütununu metin olarak biçimlendirin.
2- Ekle sekmesinden Şekilleri seçerek bir şekil seçin. (Ben dikdörtgen seçmiştim.)
3- Eklediğiniz şekil seçili durumdayken formül çubuğuna =$B$1 yazın. Ve şeklinizi ters çevirin. (Üstteki yeşil noktadan)
4- Şeklinizi istediğiniz biçimde biçimlendirin. İsterseniz B sütununu da gizleyebilirsiniz..
5- Verilerinizi A1 hücresine girin.

 

[uzmanamele]

Merhaba

Küçük bir katkıda da ben bulunayım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
sat = Target.Row
metin = StrReverse(Cells(sat, "a"))

ActiveSheet.Shapes.Range(Array("1 Dikdörtgen")).TextFrame2.TextRange.Characters.Text = metin

End Sub

 

[Erdal]

Daha pratik olmuş. Teşekkür ederim Süleyman Bey.
Bu şekil işini aradan kaldırıp direk hücreye yazdıramazmıyız. Birde; nasıl şekil seçili iken formül çubuğuna =$B$1 gibi bir formül yazabiliyorsak. Hücreye; =Şekil1 gibi bir formül yazamaz mıyız?

 

[camosur]

Merhabalar
1- Tahsin Beyin verdiği kodları ilgili sayfanın kod bölümüne yapıştırın ve B sütununu metin olarak biçimlendirin.
2- Ekle sekmesinden Şekilleri seçerek bir şekil seçin. (Ben dikdörtgen seçmiştim.)
3- Eklediğiniz şekil seçili durumdayken formül çubuğuna =$B$1 yazın. Ve şeklinizi ters çevirin. (Üstteki yeşil noktadan)
4- Şeklinizi istediğiniz biçimde biçimlendirin. İsterseniz B sütununu da gizleyebilirsiniz..
5- Verilerinizi A1 hücresine girin.

Mantığı öğrendim çok teşekkür ederim.

 

[tahsinanarat]

Farklı bir çalışma

Office 2010 da formülle bağlantılı dikdörtgen örnekleri, dikdörtgenlerdeki rakamlar 3B döndürme özelliği ile döndürülmüştür.

dikdörtgen üzerinde sağ tıkla, şekil biçimlendirmesi, oradan da 3-B dördürme
özelliklerini inceleyiniz.