4 lü maskeleme vba

[cerit]

merhaba,
=EĞER(GİRİŞ!G4="";"";EĞER(UZUNLUK(GİRİŞ!G4)-UZUNLUK(YERİNEKOY(GİRİŞ!G4;" ";""))=0;PARÇAAL(GİRİŞ!G4;1;2)&YİNELE("*";UZUNLUK(GİRİŞ!G4)-2);EĞER(UZUNLUK(GİRİŞ!G4)-UZUNLUK(YERİNEKOY(GİRİŞ!G4;" ";""))=1;PARÇAAL(GİRİŞ!G4;1;2)&YİNELE("*";UZUNLUK(PARÇAAL(GİRİŞ!G4;1;BUL(" ";GİRİŞ!G4)-1))-2)&" "&PARÇAAL(PARÇAAL(GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1;UZUNLUK(GİRİŞ!G4)-BUL(" ";GİRİŞ!G4));1;2)&YİNELE("*";UZUNLUK(PARÇAAL(GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1;UZUNLUK(GİRİŞ!G4)-BUL(" ";GİRİŞ!G4)))-2);EĞER(UZUNLUK(GİRİŞ!G4)-UZUNLUK(YERİNEKOY(GİRİŞ!G4;" ";""))=2;PARÇAAL(GİRİŞ!G4;1;2)&YİNELE("*";UZUNLUK(PARÇAAL(GİRİŞ!G4;1;BUL(" ";GİRİŞ!G4)-1))-2)&" "&PARÇAAL(PARÇAAL(GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1;BUL(" ";GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1)-BUL(" ";GİRİŞ!G4)-1);1;2)&YİNELE("*";UZUNLUK(PARÇAAL(GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1;BUL(" ";GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1)-BUL(" ";GİRİŞ!G4)-1))-2)&" "&PARÇAAL(PARÇAAL(GİRİŞ!G4;BUL(" ";GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1)+1;UZUNLUK(GİRİŞ!G4)-BUL(" ";GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1));1;2)&YİNELE("*";UZUNLUK(PARÇAAL(GİRİŞ!G4;BUL(" ";GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1)+1;UZUNLUK(GİRİŞ!G4)-BUL(" ";GİRİŞ!G4;BUL(" ";GİRİŞ!G4)+1)))-2))))
bu formül dosyayı kasıyor.
3 lü maskeleme yapıyor,4 lü olarak vba dönüştürülebilir mi?
aidat sayfası D4-D150 arasında kullanılacaktır.
iyi bayramlar, Selamlar.

 

[mustafa1205]

Function IsimMaskele(isim As String) As String
Dim parcalar() As String
Dim i As Integer
Dim sonuc As String

If Trim(isim) = "" Then
IsimMaskele = ""
Exit Function
End If

parcalar = Split(WorksheetFunction.Trim(isim))

For i = LBound(parcalar) To UBound(parcalar)
If Len(parcalar(i)) >= 2 Then
sonuc = sonuc & Left(parcalar(i), 2) & String(Len(parcalar(i)) - 2, "*") & " "
Else
sonuc = sonuc & parcalar(i) & " "
End If
Next i

IsimMaskele = Trim(sonuc)
End Function


Burdaki kodları bir modüle ekleyin ve

=IsimMaskele(D4)

şeklinde istediğiniz hücreye deneyiniz

 

[cerit]

merhaba,
ilginize teşekkür ederim fakat;
"giriş"sayfası G4 den başlayarak (alınan isimler)
"aidat" sayfası D4 den başlayarak maskelenerek yazılması gereken.
malesef "ad" uyarısı aldım.

 

[cerit]

merhaba,
vba da düzenleme yapılabilirim?

 

[cerit]

çözüldü teşekkürler