Büyük - Küçük Harf Ayrımı Hk.

[Merturk]

Merhaba,

Yapacağım çalışmada elimde bir liste olacak. Ama her ay değişebilir bir isim listresi.

Örneğin A sütununda olacak bu isimler.

Tamamen büyük harfle yazılanlar için A tipi,
Sadece baş harfi büyükler için B tipi yazdırmam gerekiyor B kolonuna.

Kafamda son harflerinden gitmek var. En sağdaki harf büyük ise A tipi, küçük ise B tipi diyeceğim ama harfler ayırt edecek bir kod bulamadım.

Teşekkür ederim.

 

[Korhan Ayhan]

Deneyin.

=EĞER(ÖZDEŞ(BÜYÜKHARF(A1);A1);"A TİPİ";EĞER(ÖZDEŞ(YAZIM.DÜZENİ(A1);A1);"B TİPİ";""))

 

[Merturk]

Sn. Korhan Ayhan Hocam,

Çok teşekkür ederim.

 

[Asri]

Alternatif,

KTF ile deneyiniz.

Function tipine(hucre As Range)
   i = 0
   deger = hucre.Value
   ilkharfbuyuk = False
   kucukbuldu = False
   buyukbuldu = False
   For i = 1 To Len(deger)
     harf = Mid(deger, i, 1)
      durum = (harf = UCase(Replace(Replace(harf, "i", "İ"), "ı", "I")))
      If i = 1 And durum Then
         ilkharfbuyuk = True
         durum = False
         GoTo son
      End If
      
      If i <> 1 And Not durum And Not kucukbuldu Then
         kucukbuldu = True
      End If
      If i <> 1 And durum And Not buyukbuldu Then
         buyukbuldu = True
      End If
      If kucukbuldu And buyukbuldu Then Exit For
son:
   Next i
   If ilkharfbuyuk And Not buyukbuldu And kucukbuldu Then
      tipi = "B Tipi"
   ElseIf ilkharfbuyuk And buyukbuldu And Not kucukbuldu Then
      tipi = "A Tipi"
   Else
     tipi = "Tipsiz"
   End If
   tipine = tipi
End Function

 

[Merturk]

Sn. Asri,

Farklı çözüm öneriniz için teşekkür ederim.