Variable not defined hatası

Katılım
1 Aralık 2010
Mesajlar
313
Excel Vers. ve Dili
Office 2010
Aşağıdaki kodu çalıştırmak istediğimde "variable not defined" hatası alıyorum. Nedeni ne olabilir?

http://www.dosya.tc/server24/HVazfs/VARIABLE.JPG.html



Kod:
Option Explicit

Sub Dosyalardaki_Adlari_Temizle()
    Dim Yol As String
    Dim Dosya As String
    Dim Hedef_Dosya As Workbook
    
    Yol = ThisWorkbook.Path
    
    On Error Resume Next
    Dosya = Dir(Yol & "\*.xls")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    While Dosya <> ""
        If Dosya <> "TEST.xls" Then
            DoEvents
            Set Hedef_Dosya = Workbooks.Open(Yol & "\" & Dosya, False, False)
            
            With Hedef_Dosya
                For Each Ad In .Names
                    Ad.Delete
                Next
            End With
            
            Hedef_Dosya.Close True
        End If
        Dosya = Dir
    Wend
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "Klasördeki tüm dosyalarınızdaki ad tanımlamaları temizlenmiştir.", vbInformation
End Sub
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,405
Excel Vers. ve Dili
2007 Türkçe
Değer tanımlaması yapmadığınız için bu hatayı alıyorsunuz.
Baştaki Option Explicit kısmını silin ya da tüm değerlerin tanımlamasını yapınız. (Hedef dosya içindeki Ad eksik galiba)
 
Katılım
1 Aralık 2010
Mesajlar
313
Excel Vers. ve Dili
Office 2010
Option Explicit kısmını silince çalıştı ve işlemi doğru yaptı.

Ancak Option Explicit nedir? Ne işe yarar?

Yanlış bir işlem yapmayalım sonra?
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,405
Excel Vers. ve Dili
2007 Türkçe
Option Explicit
Tanımlanmayan değerlerin kod içerisinde kullanılmasını önlemeye yarar.
Kısaca bir nevi hata denetimi...
 
Katılım
1 Aralık 2010
Mesajlar
313
Excel Vers. ve Dili
Office 2010
Sayın mucit77

Bilgi verdiğiniz ve ilginiz için teşekkür ederim.

Kolay gelsin.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,405
Excel Vers. ve Dili
2007 Türkçe
Size de...
İyi günler, iyi çalışmalar.
 
Üst