Yazım.Düzeni

[beyza84]

Yazım düzeni formülünü kullanmaya çalışıyodum yalnız kafama takılan bi şey var A1 hücresine aliveli kırk dokuz elli yazdığımda bunu yazım düzeni formülünü kullanarak A1 hücresi içerisinde düzenlemek istiyorum
yalnız A1 üzerine gidip =Yazım.Düzeni(A1) dediğimde hata veriyor
A2 hücresine =Yazım.Düzeni(A1)dediğimdeyse A1 deki metni düzeltilmiş olarak A2 ye aktarıyor yalnız ben yazdığım metni olduğu hücre içerisinde yazım düzenini kullanarak düzenlemek istiyorum bunun için bir yol bilen arkadaşlar yardımcı olursa çok sevinirim

 

[Ali]

Makro ile olabilir.

Hangi sayfada çalışıyorsanız o sayfanın sayfa sekmesini sağ tuş ile tıklayıp aşağıdaki kodları ekleyiniz.

Target, [A:A] kısmı A sütununda çalışır. Siz A2:B30 aralığı gibi aralıkta istiyorsanız bu kısımı

Target, [A2:B30 ]) şeklinde değiştirmelisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Value = WorksheetFunction.Proper(Target)
End Sub

 

[beyza84]

Arkadaşım ukalalık yağpıp canını sıkmak istemem ama bu anlatmış bulunduğun şeylere çok yabancıyım.Makro vs.
Bunların ne olduğunu tam bilemediğimden şöyle açıklıyım durumu excelde çalışıyorum daha doğrusu exceli öğrenmeye çalışıyorum
sayfa sekmesinin ne olduğunu inanın bilmiyorum

 

[Ali]

Aşağıdaki resimde gösterdiğim kısımdır.

 

[beyza84]

Resimde gsterdiğiniz biçimde yaptım çıkan sayfaya
Target, [A2:B30 ]
yapıştırdım sonrasında kapattım ve exceldeyim şu an şimdi metiinin bulunduğu hücreye gidip =Yazım.Düzeni(A1) dediğim zaman 0 oluyor hücre değeri metin kayboluyor

 

[uzmanamele]

merhaba
=Yazım.Düzeni("metin") şeklinde denermisiniz

 

[Ali]

Bu kodu yapıştıracaksınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Target.Value = WorksheetFunction.Proper(Target)
End Sub

Eğer A2:B30 aralığında bu özelliği istiyorsanız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:B30]) Is Nothing Then Exit Sub
Target.Value = WorksheetFunction.Proper(Target)
End Sub

Girdiğiniz hücrede direk yazım düzeni görmek istediğinizden mecburen makro olmak zorundadır.

 

[altan147]

office 2007 de yazım düzeni yada küçükharf formülünü kullandığımda I ları i yapıyor bunun neden olduğunu yada düzeltmenin yolunu bilen var mı ?