(20/01/2017, 13:57)atoz112 yazdı: Sayın Serkan keleş,

paylaşılan bilgiler sorununuzun çözümüne olumlu sonuç katkısında bulundu ise,
buradan konunuzun,
Cevaplanmış Sorular Kategorisi'ne taşınmasını beyan edebilirsiniz.değilse,gerekli açıklamaları ayrıntılı yazabilirsiniz.

bilginize...iyi çalışmalar,saygılar.

İlk harfleri büyük yapan kod çok işime yaradı teşekkürler. Yalnızca "i" harfi başa gelirse  "İ" yerine  "I" oluyor ama çok da gerekli değil şu an için. 
2. kodu ise kullanamadım. Daha doğrusu kodun içindeki değiştirmem gereken kısımda yanlışlık yapıyorum.
Türkçe karakterleri uygulamanın bütününde değiştirmem için de biraz zamana ihtiyacım var açıkçası. 



Private Sub Sıra_No_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
   Case 48 To 57, 96 To 105, 13, 8, 144, 46
   Case 231
   Case 110, 190
     If InStr(Me.sirano_denetimin_adi_ne_ise_onu_yaziniz.Text, ".") > 0 Then KeyCode = 0
   Case Else
     KeyCode = 0
   End Select
End Sub