acaba referanslardan mıdır? sizdeki referanslar hangileri?
Tam olarak verdiği hatayı belirtseniz... Nasıl bir mesaj dönüyor veya ne yapıyor? Onu yazar mısınız?
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
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?
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 ))