- Excel Versiyonu
- Excel 365
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
D Sütununa girilen 11 haneli kimlik numarasının son 4 hanesini **** şeklinde göstermek için mevcut kodun iyileştirilmesi hususunda desteklerinizi rica ediyorum. Örnek 1234567**** gibi.
Kimlik Numarası Karakter Gizleme
- Konuyu başlatan YasarPiskin
- Başlangıç tarihi
Çözüm
Mevcut kodu şöyle değiştirin.
D sütununa TC Kimlik No yazdığınızda, bu bilgi CD sütununa aktarılır, D sütununda ise istediğiniz görünüm sağlanır.
CD sütununu gizleyerek kullanabilirsiniz.
D sütununa TC Kimlik No yazdığınızda, bu bilgi CD sütununa aktarılır, D sütununda ise istediğiniz görünüm sağlanır.
CD sütununu gizleyerek kullanabilirsiniz.
VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C7:D606")) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
Application.ScreenUpdating = False: Application.EnableEvents = False
If Cells(Target.Row, 3) <> "" And Cells(Target.Row, 4) <> "" Then
If Len(Cells(Target.Row, 4)) = 11 And IsNumeric(Right(Cells(Target.Row, 4), 1)) Then
Cells(Target.Row, 82) = Cells(Target.Row, 4)
Cells(Target.Row, 4) = Left(Cells(Target.Row, 82), 7) & "****"
End If
[C7:CD606].Sort [C6], 1, [CD6], , 1
ElseIf Target.Value = "" And (Target.Column = 3 Or Target.Column = 4) Then
Range("D" & Target.Row & ":CD" & Target.Row).ClearContents
[C7:CD606].Sort [C6], 1, [CD6], , 1
End If
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub
Çözüm
- Durum
Benzer Konular
Popüler İçerikler
Daha Fazlası