Kısaltma harflerin geniş yazılması hk.

[ijol]

Merhaba,

Kısaltma yazdığım zaman bu kısaltmaların geniş bir biçimde yazılmasını istiyorum, yanlız bu kısaltmaları sadece bir bilgisayarda kullanmayacağım için macro olarak yazılması lazım bu konuda yardımcı olabilirmisiniz?

Kısaltmalar---yazılacaklar

DS----------DBÇ TSİ
DÖ----------DBÇ TÖİ
AÖ----------AK TÖİ
AS----------AK TSİ
A-----------AK
D-----------DBÇ

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne yazılacak

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "DS" Then Target = "DBÇ TSİ"
If Target = "DÖ" Then Target = "DBÇ TÖİ"
If Target = "AÖ" Then Target = "AK TÖİ"
If Target = "AS" Then Target = "AK TSİ"
If Target = "A" Then Target = "AK"
If Target = "D" Then Target = "DBÇ"
End Sub

 

[ijol]

teşekkürler

 

[N.Ziya Hiçdurmaz]

Bişey değil