option explicit iptali

[karadami]

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Application.AutoCorrect
   .DeleteReplacement What:="a"
   .DeleteReplacement What:="b"
   .DeleteReplacement What:="c"
   .DeleteReplacement What:="d"
End With
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Application.AutoCorrect
   .AddReplacement What:="a", Replacement:="5"
   .AddReplacement What:="b", Replacement:="6"
   .AddReplacement What:="c", Replacement:="7"
   .AddReplacement What:="d", Replacement:="8"
End With
End Sub

bu kodlarla a ya basinca hucre degerini 5 olarak degistiriyor.fakat benim sorunum bunu iptal edememem. bilgisayarimda her sayfada ayni celisiyor. bunu iptal etmenin bir yolu va mi ?

not: lutfen 2. kisimdaki 5 i a olarak degistir demeyin

 

[Ferhat Pazarçevirdi]

DİKKAT : Eğer yeterli bilgiye sahip değilseniz, yukarıdaki kodları kopyalayıp, çalıştırmayınız.
(Tüm Excel uygulaması yapılan değişiklikten etkilenir ve arkadaşın sorununa benzer sorunlarla karşılaşabilirsiniz)
---------------------------------

Applicaiton'un oto düzeltmesine müdahale ettiğiniz için böyle bir durumla karşılaşıyorsunuz.

Eğer, bir başka çalışma kitabına geçtiğinizde veya kodların bulunduğu çalışma kitabı kapatıldığında, kodların durmasını istiyorsanız, şu iki olay prosedürünü de porjenize ilave edin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Normale_Don
End Sub
 
Private Sub Workbook_Deactivate()
Call Normale_Don
End Sub
 
Sub Normale_Don()
With Application.AutoCorrect
   .AddReplacement What:="a", Replacement:="a"
   .AddReplacement What:="b", Replacement:="b"
   .AddReplacement What:="c", Replacement:="c"
   .AddReplacement What:="d", Replacement:="d"
End With
End Sub

Not : Neden Option Explicit iptali diye bir başlık attığınızı da anlamış değilim

 

[karadami]

Not : Neden Option Explicit iptali diye bir başlık attığınızı da anlamış değilim

nasil bir baslik uygun gelir bilemedigim icin hocam saolun

bu arada option explicit ne ise yarar. kisaca belirtebilirmisiniz.

 

[Zeki Gürsoy]

Option Explicit, değişken tanımlamaya zorlar.