Hücrede yazarken belirtilen değeri ekleme

[Ziynettin]

Merhaba,
Sorum şöyle arkadaşlar,
B5 hücresine İSTANBUL yazını yazarken, İ harfini yazdığımızda hemen İ den sonra x yazısını,
S harfini yazdığımızda hemen S den sonra x yazısını,
T harfini yazdığımızda hemen T den sonra x yazısını,
.......
......
B5 hücresine harfler girildikce olamsı gerekiyor "İxSxTxAxNxBxUxLx ", bu konuda yardımcı olacaklara şimdiden teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Yazma anında ekleyemezsiniz. Fakat hücreye İSTANBUL yazıp enter tuşuna bastığınızda her harften sonra "x" ekletme şansınız var.

 

[sametozyavuz]

Merhaba,

Yazma anında ekleyemezsiniz. Fakat hücreye İSTANBUL yazıp enter tuşuna bastığınızda her harften sonra "x" ekletme şansınız var.

korhan bey sizin dediğiniz nasıl yapılır?

 

[Ziynettin]

Korhan Bey, ilginiz ve bilgilendirme için teşerkür ederim.
Yazma anında ekleme yapmak istemiştim,

 

[Korhan Ayhan]

Aşağıdaki kodu sayfanın kod bölümüne uygulayıp deneyin.

A sütununa veri girip sonucu gözlemleyin.

korhan bey sizin dediğiniz nasıl yapılır?

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target <> "" Then
        For X = 1 To Len(Target)
            Veri = Veri & Mid(Target, X, 1) & "x"
        Next
        Target = Veri
    End If
Son: Application.EnableEvents = True
End Sub