+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: hücreden çıkınca büyük harfe dönsün (/konu-hucreden-cikinca-buyuk-harfe-donsun.html)
Cvp: hücreden çıkınca büyük harfe dönsün - kadirdursun - 07/04/2011
acaba referanslardan mıdır? sizdeki referanslar hangileri?
Cvp: hücreden çıkınca büyük harfe dönsün - mehmetdemiral - 07/04/2011
Tam olarak verdiği hatayı belirtseniz... Nasıl bir mesaj dönüyor veya ne yapıyor? Onu yazar mısınız?
Cvp: hücreden çıkınca büyük harfe dönsün - kadirdursun - 07/04/2011
hata ektedir.
Cvp: hücreden çıkınca büyük harfe dönsün - maytas - 07/04/2011
Sayın kadirdursun, sanırım benim kodları denemediniz.
Alttaki gibi revize edip de kullanabilirsiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then Exit Sub
If Target.Address = "$A$" & Target.Row Then
Application.EnableEvents = False
kelime = Replace(Target.Value, "i", "İ")
kelime = Replace(kelime, "ı", "I")
Target.Value = StrConv(kelime, vbUpperCase)
Application.EnableEvents = True
End If
End Sub
Cvp: hücreden çıkınca büyük harfe dönsün - kadirdursun - 08/04/2011
sayın maytas;
teşekkür ederim. oldu.
peki aynı anda b ve c sutunundada büyük olmasını istiyorum nasıl yaparım?
Cvp: hücreden çıkınca büyük harfe dönsün - mehmetdemiral - 08/04/2011
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then Exit Sub
If Target.Address = "$A$" & Target.Row Then
Application.EnableEvents = False
kelime = Replace(Target.Value, "i", "İ")
kelime = Replace(kelime, "ı", "I")
Target.Value = StrConv(kelime, vbUpperCase)
Application.EnableEvents = True
End If
If Target = Empty Then Exit Sub
If Target.Address = "$B$" & Target.Row Then
Application.EnableEvents = False
kelime = Replace(Target.Value, "i", "İ")
kelime = Replace(kelime, "ı", "I")
Target.Value = StrConv(kelime, vbUpperCase)
Application.EnableEvents = True
End If
End Sub
En kolayı bu ))