yazı yerine karakter görünümü

[işsiz123]

arkadaşlar merhaba

benim istediğim mesela a1 hücresinde toplam 20 harf veya rakam kullanmak istiyorum fazlası olmaz hücre içine beş harf kullanmasam bile yerine bir karekter yazılsın yani boş olmasın ( * - # vb.) örnek olarak a1 hücresi (işsiz123############) her harf yazdığımda # bir tane gitsin . anlata bildim umarım Saygılar

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdığınızda A1:A100 aralığına 20 karakterden kısa veri girdiğinizde sonuna # ekleyerek 20 karaktere tamamlar. 20 karakterden uzun olursa ya da hücredeki değer silinirse işlem yapmaz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A100]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Len(Target) > 20 Then Exit Sub
If Len(Target) < 20 Then
    Application.EnableEvents = False
    Target = Target & WorksheetFunction.Rept("#", 20 - Len(Target))
    Application.EnableEvents = True
End If
End Sub