makro'da hata

[İhsan Tank]

arkadaşlar yazıları büyük harfe çevirme makrosu kullanıyorum ama hata veriyor ilgilenirseniz sevinirim

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]If Intersect(Target, [A1:EQ106]) Is Nothing Then[/COLOR] Exit Sub
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Target.Value = StrConv(Kelime, vbUpperCase)
End Sub

kırmızı olan yer hata veriyor

 

[leumruk]

Merhaba,
Kodu denedim; ben de hata vermedi. Ancak kod yazımında bir hata var. Bu nedenle kod sonsuz döngüye giriyor. Siz de hata vermesinin sebebi bu olabilir. Kodu aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1:EQ106]) Is Nothing Then Exit Sub
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Application.EnableEvents = False
Target.Value = StrConv(Kelime, vbUpperCase)
Son:
Application.EnableEvents = True
End Sub

 

[İhsan Tank]

Merhaba,
Kodu denedim; ben de hata vermedi. Ancak kod yazımında bir hata var. Bu nedenle kod sonsuz döngüye giriyor. Siz de hata vermesinin sebebi bu olabilir. Kodu aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1:EQ106]) Is Nothing Then Exit Sub
Kelime = Replace(Target.Value, "i", "İ")
Kelime = Replace(Kelime, "ı", "I")
Application.EnableEvents = False
Target.Value = StrConv(Kelime, vbUpperCase)
Son:
Application.EnableEvents = True
End Sub

hocam teşekkür ederim
allah razı olsun

 

[leumruk]

hocam teşekkür ederim
allah razı olsun

Rica ederim.