Hücredeki sayının ortasına xxxx eklemek

[ahmeterdemir]

Merhaba arkadaşlar yardımınız lazım.

hücreye 12345678 gibi 8 haneli bir rakam yazdığımda
1234XXXXXXXX5678
haline otomatik gelmesini istiyorum
bu müşterinin kredi kartının ilk ve son 4 hanesi
yazıcıya eklememiz gerekiyormuş

şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

8 karakter sabit mi.

. . .

 

[ahmeterdemir]

8 karakter sabit ama numaralar değişecek

 

[Emir Hüseyin Çoban]

. . .

Basit bir örnek;

=SOLDAN(A1;4)&YİNELE("X";8)&SAĞDAN(A1;4)

Ekran Görüntüsü:


. . .

 

[ahmeterdemir]

teşekkürler yalnız ben yazdığım hücrede bu değişikliklerin olmasını istiyorum mümkün mü?
hücreyi biçimlendirde isteğe bağlı bölümünde ayar yapılamaz mı?

 

[Emir Hüseyin Çoban]

. . .

Ekran Görüntüsü:


. . .

 

[bzace]

Merhabalar,
Alternatif olarak;
Hücre biçim ayarlarınızdan İSTEĞE UYARLANMIŞ kısmına yazınız.

####XXXXXXXX####

Saygılar,

Not: Hüseyin Bey'in ekran görüntüsünü sonradan gördüm.

 

[ahmeterdemir]

çok teşekkürler

 

[Asri]

Alternetif makrolu;

Sayfanın kod bölümüne yapıştırınız.

Sadece 8 karakter uzunluğundaki hücrelerde çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Len(Target.Value) = 8 Then
       Target.Value = Left(Target.Value, 4) & "XXXXXXXX" & Right(Target.Value, 4)
    End If
End Sub