Soru Hücrede Yazılı Sayı ve Metnin Bir Kısmını Görünür Yapmak

[officer08]

Aşağıda belirttiğim konuda yardımcı olursanız sevinirim. Şimdiden Teşekkürler.

1-B3 hücresinden başlamak suretiyle B500 hücresine kadar aşağıya doğru sıralanan isim ve soy isimlerin ilk harflerinin görünmesini istiyorum
Örnek: B3 hücresine Hayrullah ALTIN ismini kopyalayıp yapıştırdım bunun HA olarak görünmesini istiyorum

2-C3 hücresinden başlamak suretiyle C500 hücresine kadar aşağıya doğru sıralanan TC numaralarının sadece baştan ilk dört sayısı ile son üç sayısının görünür olmasını ortadaki dört sayının ise **** şeklinde görünmesini istiyorum
Örnek: C3 hücresine 11111111111 TC numarasını kopyalayıp yapıştırdım bunun 1111****111 olarak görünmesini istiyorum

 

[netzone]

Merhaba @officer08,

Yardımcı bir sütun açıp bu sütunda C3 için =YERİNEKOY(C3;SOLDAN(SAĞDAN(C3;7);4);"****") kullanabilirsiniz.

İyi çalışmalar.

 

[officer08]

Çok teşekkür ederim TC kısmını sayenizde hallettim. Formülü anlamak için soruyorum vaktiniz varsa formülün şu kısmı (C3;SOLDAN(SAĞDAN(C3;7);4) ne anlama geliyor.

 

[netzone]

SAĞDAN(C3;7) C3 Hücresinin sağından başlayarak 7 karakter seçmesini sağlıyor
SOLDAN(C3;4) C3 Hücresinin solundan başlayarak 4 karakter seçmesini sağlıyor.
SOLDAN(SAĞDAN(C3;7);4) Bize aldığımız 7 karakterin solundan kalan 4 karakteri değiştirmek istediğimiz için Soldan formülü içinde C3 yerine Sağdan formülünü yerleştirdik. ve **** görünmesini istediğimiz metini elde ettik.
YERİNEKOY formülünde ise Mevcut metin, de elde ettiğimiz metini bulup bunun yerine **** yazdırdık.

 

[officer08]

Netzone vakit ayırdığın çok sagol çok iyi anladım.
İsim ve soyisimlerin baş harflerini de halledebilirsek bu is tamam olacak.

 

[netzone]

Merhaba,

Ad Soyad'ın baş harflerini almak için aşağıdaki formüllerden birini kullanabilirsiniz.
Yada alternatif formüller için forumda biraz gezinip farklı bilgilere erişebilirsiniz.
=SOLDAN(B3;1)&SOLDAN(SAĞDAN(B3;(UZUNLUK(B3))-(BUL(" ";B3;1)));1)
=SOLDAN(B3;1)&SAĞDAN(SOLDAN(B3;BUL(" ";B3;1)+1);1)

İyi Çalışmalar.

 

[officer08]

Netzone geç cevap yazdım kusura bakma ancak iki formulü denedim ancak sadece ismin baş harfini gösteriyor soy ismin baş harfini göstermiyor

 

[YUSUF44]

Sayın netzone'un verdiği her iki formül de Hayrullah Altın için HA sonucunu vermektedir.

 

[officer08]

Haklısın Yusuf44 oldu ama sorun şu ben bu Hayrullah Altın yazısını hücreye bir kod ile yazdırıyorum. Sonra diğer hücrede netzone nin verdiği formülü yazıp uygulatınca sadece ismin baş harfi çıkıyor, hatta kod ile elde ettiğim hücreden kopyalayıp yapıştırsam bile olmuyor. Ama aynı ismi soyismi manuel yazıp formülü uygulayınca oluyor.
Benim işim kolaylaştıracak olan başka sayfadan kod ile aldığım isim soy isimlerin baş harflerini yazdırmak.

 

[YUSUF44]

Bunu örnek dosya olmadan çözemeyiz.

 

[officer08]

ORNEK.xlsx dosyasını indir - download

ORNEK.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

örnek attım buraya Yusuf44 teşekkürler

 

[Korhan Ayhan]

Böyle deneyiniz.

İsmin başında bir boşluk karakteri var. Sorun bundan kaynaklanıyor.

=SOLDAN(KIRP(A2);1)&SOLDAN(SAĞDAN(KIRP(A2);(UZUNLUK(KIRP(A2)))-(BUL(" ";KIRP(A2);1)));1)

Eğer verilerinizde 3 ya da daha fazla kelimeden oluşan isimler varsa formül yine doğru sonuç vermeyecektir.

 

[officer08]

Korhan Bey aynen dediğiniz gibiymiş sorun çözüldü. Hepiniz ayrı ayrı sağolun.

 

[YUSUF44]

Kullanıcı tanımlı bir fonksiyon hazırladım, umarım başarmışımdır. Aşağıdaki kodları dosyanızda bir modül içine kopyalayın. Sonuç alacağınız hücreye =basharf(hücreadresi) şeklinde formül yazdığınızda baş harfleri verecektir, 2'den fazla kelime olanlarda da doğru sonucu veriyor gördüğüm kadarıyla. (Örneğin örnek dosyanızda B2 hücresine =basharf(A2) yazdığınzıda sonucu MD olarak veriyor):

Function basharf(hucre As String)

If hucre <> "" Then
    veri = Split(Trim(hucre), " ")
    For i = 0 To UBound(veri)
        harfler = harfler & Left(veri(i), 1)
    Next
End If
If harfler <> "" Then
    basharf = harfler
Else
    basharf = "Hata"
End If

End Function