Formül Sorunu

[HaRaMi]

Ekte sunulan dosyada veri sayfasına formül girdiğimde sonuç çıkıyor, ancak formül kaybolduğu gibi işlevini yetiriyor. sorunun çüzümü için yardımlarını bekliyorum. Şimdiden teşekkürler

 

[fedeal]

sayfanın kod bölümündeki

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ilk = Target
ilk = Replace(ilk, "i", "İ")
ilk = Replace(ilk, "ı", "I")
Target = StrConv(ilk, vbUpperCase)
End Sub

bu büyük harfe çevir kodu yüzünden bozuluyor çözümü büyük harfe çevrilecek sütun hücre aralığı belliyse

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, range("b2:b65000"))Is Nothing Then Exit Sub 
On Error Resume Next
ilk = Target
ilk = Replace(ilk, "i", "İ")
ilk = Replace(ilk, "ı", "I")
Target = StrConv(ilk, vbUpperCase)
End Sub

b2:b65000 aralıgında kodlar çalışacaktır dolayısıyla formüller bozulmayacaktır.

 

[HaRaMi]

Teşekkürler, ancak ekte görüldüğü gibi formülü yazıp aşağıya doğru uzattığımızda formül sonucu sayı ve değerler ne olursa olsun değişmiyor. Aynı zamanda formulün bulunduğu hücre dahi formüle esas hücredeki değerler değiştirildiğinde değişiklik olmuyor.
Yani kısaca başka bir sorun çıktı bu kez.