hücreye "y" yazdığımda aynı hücre "11y" olarak değişmesi

[Bagcivan]

A1 hücresine "y" yazdığımda yine A1 hücresi "11y" olarak değişmesini istiyorum.vba'dan nasıl yağacağımı bilemedim.Yardımcı olabilirmisiniz?

İyi Günler.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Text = "y" Or Target.Text = "Y" Then Target = "11y"
End Sub

 

[Bagcivan]

sayın hamitcan,

Teşekkürler.

 

[TAHİR ARSLAN]

Y yerine aynı hücreye 11 y

Sub degistir()
'
' degistir Makro
' Makro taarslan tarafından 26.05.2011 tarihinde kaydedildi.
'

'
Range("B1").Select
ActiveCell.FormulaR1C1 = "=+CONCATENATE(11,RC[-1])"
Range("B1").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B3").Select
End Sub