KTF ile Verideki Ünsüz Harfleri Alma

Bu dosya, bir hücredeki metinden ünlü harfleri çıkarıp geriye yalnızca ünsüz harfleri bırakan kullanıcı tanımlı fonksiyonları (KTF) içerir. Fonksiyonlar VBA ile yazılmıştır ve hücre içinde normal bir Excel fonksiyonu gibi çağrılabilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: B2 hücresinde "Metin" başlığı, B3:B8 aralığında deneme için hazırlanmış örnek cümleler (ör. "Every good boy does fine.", "Microsoft Excel", "abcdefghijklmnopqrstuvwxyz") bulunur.
• Module1 modülü: RemoveVowels, RemoveVowels2 ve ZapTheVowels adlı üç prosedür içerir.

Sayfada formül yoktur; sonuç sütunu kullanıcı tanımlı fonksiyon çağrılarak oluşturulur.

Makrolar​

• RemoveVowels: Verilen metni karakter karakter dolaşır, büyük harfe çevirdiği karakter A, E, I, O, U değilse sonuca ekler. Böylece ünlüler silinir, diğer karakterler (boşluk, noktalama, rakam dahil) korunur.
• RemoveVowels2: Aynı işi Select Case yapısıyla yapar; sonuç aynıdır, yalnızca kodlama yöntemi farklıdır.
• ZapTheVowels: Bir InputBox ile metin ister ve ünlüleri silinmiş halini MsgBox penceresinde gösterir. Alt+F8 ile veya Makrolar listesinden çalıştırılır.

Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem yoktur. Fonksiyon yalnızca İngilizce ünlüleri (A, E, I, O, U) tanır; Türkçe ünlüler (ı, ö, ü gibi) silinmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. C3 hücresine, B3 hücresindeki metin için şu formülü yazın:
   
   Excel formülü

   =RemoveVowels(B3)

3. Formülü aşağı doğru kopyalayarak diğer satırlara uygulayın; kendi metinlerinizi B sütununa yazabilirsiniz.
4. Hücre kullanmadan denemek için Alt+F8 ile ZapTheVowels makrosunu çalıştırıp metni kutuya girin.
5. Fonksiyonu başka bir dosyada kullanmak için Module1 modülünü o dosyaya aktarın.