excell vba kodu

[cirakli]

Hocam merhaba excell
A1 Hücersinde TC kimlik numarsı 11 haneli
12345678934
12*******34 şeklinde
C1 hücresine 12*******34 yazsın
B1 hücresinde
Ahmet Hasan Hüseyin YILMAZ ALTIN
Ah*** Ha*** Hü***** YI**** AL*** şeklinde
D1 Ah*** Ha*** Hü***** YI**** AL*** yazsın
vba kodunu gönderebilir misiniz şimdiden teşekkürler

 

[ÖmerFaruk]

Siz mi sormuştunuz bilmiyorum ama geçende de sorunuzun ikinci kısmı aynen sorulmuştu.
Aşağıdaki iki UDF (kullanıcı tanımlı fonksiyon) bu işi görmektedir.
Kodları excel dosyanızın VBA penceresinde yeni bir boş modül ekleyerek ikisini beraber yapıştırın.

A1 de TC No ve B1 de Adı Soyadı yazıyorsa

C1 hücrenize
=TcNoSifreli(A1)

D1 hücresine
=ilk2karakter(B1)

Function ilk2karakter(kaynak As Range)
    dizi = Split(Trim(kaynak.Value), " ")
    For i = LBound(dizi) To UBound(dizi)
        dizi(i) = Left(dizi(i), 2) & WorksheetFunction.Rept("*", Len(dizi(i)) - Len(Left(dizi(i), 2)))
    Next i
    ilk2karakter = Join(dizi, " ")
End Function

Function TcNoSifreli(TcNo As Range)
    TcNoSifreli = Left(TcNo, 2) & WorksheetFunction.Rept("*", 7) & Right(TcNo, 2)
End Function

 

[murat_fidan]

Hocam merhaba excell
A1 Hücersinde TC kimlik numarsı 11 haneli
12345678934
12*******34 şeklinde
C1 hücresine 12*******34 yazsın
B1 hücresinde
Ahmet Hasan Hüseyin YILMAZ ALTIN
Ah*** Ha*** Hü***** YI**** AL*** şeklinde
D1 Ah*** Ha*** Hü***** YI**** AL*** yazsın
vba kodunu gönderebilir misiniz şimdiden teşekkürler

 

[cirakli]

teşekkürler hocam