hücreden çıkınca büyük harfe dönsün

1 2 3
07/04/2011, 07:55

kadirdursun

acaba referanslardan mıdır? sizdeki referanslar hangileri?
07/04/2011, 11:40

mehmetdemiral

Tam olarak verdiği hatayı belirtseniz... Nasıl bir mesaj dönüyor veya ne yapıyor? Onu yazar mısınız?
07/04/2011, 12:49

kadirdursun

hata ektedir.
07/04/2011, 20:05

maytas

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

08/04/2011, 13:59

kadirdursun

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?
08/04/2011, 20:37

mehmetdemiral

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 ))
1 2 3