merhaba.
siteden aldığım dosyada rapor çıktısı almada diğer bütün harflerde sorun çıkmamasına rağmen "ı" harfi başa geldiğinde büyük harfe dönüşmüyor.
bunu nasıl çözeceğimiz konusunda yardımcı olursanız sevinirim.
teşekkür ederim.
sn.POWER
ilginiz için çok teşekkür ediyorum.
ilk harflerin büyüklüğünde sorun yok.
fakat kelime ortasındaki "i" harfleri "ı" olarak çıkıyor.örneğin "Kadır" gibi.
bunu nasıl çözebiliriz.
teşekkür ediyorum.
Function convert(metin, secim)
metin = Replace(metin, "I", "ı")
metin = Replace(metin, "İ", "i")
convert = metin
End Function
Function ilkharfbuyut(metin As String) As String
Dim deger As String, kacinci As Integer, karakter As Integer
Dim harf() As String, sayac As Integer
Dim i As Integer, yenimetin As String
karakter = Len(metin)
ReDim harf(karakter)
deger = LCase(metin)
For sayac = 1 To karakter
harf(sayac) = convert(Mid(deger, sayac, 1), 3)
Next
kacinci = InStr(1, deger, " ")
Do While (kacinci > 0)
harf(kacinci + 1) = UCase(harf(kacinci + 1))
kacinci = InStr(kacinci + 1, deger, " ")
Loop
harf(1) = UCase(harf(1))
For i = 1 To karakter
yenimetin = yenimetin + harf(i)
Next
ilkharfbuyut = yenimetin
End Function
Bu kodları yazın, istediğiniz yerde de ilkharfbuyut([AlanAdi]) olarak kullanın.
Not: Kodlar alıntıdır. Ama nereden aldığımı hatırlamıyorum))
))