metin yazarken 1 veya 2. harfden sonra otomatik nokta koyma

[ikiz_34]

arkadaşlar excel 2007 de bir hücreye metin yazdıktan sonra veya yazarken ilk harften sonra otomatik nokta koyabilen bir formül veya bir ayar varsa söylermisiniz yardımcı olursanız sevinirim. örnek: A.KEMAL

 

[uzmanamele]

merhaba

istediğiniz işlem için standart bir uygulama yok.
bunun için bir makro yazılabilir ama kullanışlı olacağını sanmıyorum.
M.KEMAL ATATÜRK yazmak istediğinizde kod bunu yapabilir ama sadece ATATÜRK yazdığınızda kod yine 2. karakter olarak nokta koyacaktır. aradaki farkı makine bilmez, dolayısıyla kod kullanışlı olmayacaktır.

 

[EXTEBAN]

Merhabalar ;

Ekte yer alan uygulamadaki formulleri incelerseniz sanırım işinizi görür.

İyi çalışmalar

 

[ikiz_34]

çok sağolun arkadaşlar teşekkür ederim.

 

[Necdet]

arkadaşlar excel 2007 de bir hücreye metin yazdıktan sonra veya yazarken ilk harften sonra otomatik nokta koyabilen bir formül veya bir ayar varsa söylermisiniz yardımcı olursanız sevinirim. örnek: A.KEMAL

Merhaba,

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı ve A sütunu için geçerlidir, dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
If Len(Trim(Target.Value)) = 1 Then Exit Sub
Application.EnableEvents = False
Dim Parca1, Parca2 As String
Parca1 = Left(Target.Value, 1)
Parca2 = Trim(Right(Target.Value, Len(Target.Value) - 1))
If Left(Parca2, 1) <> "." Then Target.Value = Parca1 & "." & Parca2
Application.EnableEvents = True
Son:
End Sub