Soru T.C. Kimlik No **

[burhancavus61]

T.C. Kimlik No hücrede 15*******60 şeklinde nasıl gösterilir.

 

[Mdemir63]

Günaydınlar

TC no A1 de ise B1 Hücresine

=SOLDAN(B1;2)&YİNELE("*";7)&SAĞDAN(B1;2)

deneyiniz

 

[u.L.a.s]

Merhaba

TC kimlik no a1 de ise b1 e aşağıdaki formülü yazabilirsiniz.

=IF(A1="";"";MID(A1;1;2)&"*******"&MID(A1;10;11))

=EĞER(A1="";"";PARÇAAL(A1;1;2)&"*******"&PARÇAAL(A1;10;11))

 

[burhancavus61]

Aynı hücrede ise hücreleri biçimlendir istege uyarlanmış ile olmuyormu ?

 

[Mdemir63]

Olduğunu sanmıyorum. Ama kesin bir şey söyleyemem. Makro ile olabilir diye düşünüyorum.

 

[u.L.a.s]

A sütununda bulunan TC kimlik numaralarını yine A sütununda aralara yıldız koymak için gereken makro kod

Sub yildiz()
    For i = 2 To Sheet1.Range("a65536").End(3).Row Step 2
        erb = Mid(Range("a" & i), 1, 2)
        bag = Mid(Range("a" & i), 10, 12)
        Range("a" & i) = erb & "*******" & bag
    Next
MsgBox ("işlem tamamlanmıştır.")

End Sub

 

[burhancavus61]

ilk satırda hata verdi For i de

 

[u.L.a.s]

Sayfa adından kaynaklıdır. işlemi yaptığın sayfa adı ben sheet1 yazdım sende sayfa1 ise kodda aşağıdaki değişikliği yapınız

For i = 2 To Sayfa1.Range("a65536").End(3).Row Step 2

 

[burhancavus61]

Teşekkürler oldu

 

[Mdemir63]

Selamlar
Sayın @u.L.a.s cevap vermiş ama bu da alternatif olsun
Eki inceleyin