Object required (Error 424) Hatası

[harziyan]

Bugün üzerinde çalıştığım formda 1-2 değişiklik yaptım, kod bölümleri ile neredeyse hiç uğraşmadan, dış görünüşü ile uğraştım. Yaptığım değişiklikleri kaydetip tekrar dosyamı açmak istediğimde bu hatayı aldım. Hatayı aldığım ekrandaki "Debug" tuşunu bastığımda beni Thisworkbooktaki aşağıdaki satırlara götürüyor. Ama sarı uyarı vermiyor. Acaba sorun neden kaynaklanıyor.

Private Sub workbook_open()
Application.Visible = False
yesil.Show
End Sub

 

[harziyan]

İlgili hataya ilişkin kardeş bir forum sitesinde Hatanın Çözümğne ilişkin şu lekilde bir çözüm önerisinde bulunulmuş; "Dosyanı çalışabilmesi için Windowsunuzda DTPicker nesnesinin olması gerekiyor.
Bu dosya yoksa windows/System32 klasörüne kopyalayınız ve Başlattan Regsvr32 dosyası ile windowsa tanıtınız.Aksi takdirde çalışmaz. Başlat==>Çalıştır'dan açılan pencereye regsvr32.exe mscomct2.ocx"
Öneriyi denedim işlem başarı ile gerçekleşti deniyor ancak halen benim dosyam açılmıyor. Yukarıdaki kodda yesil.show satırını gösteriyor.

 

[harziyan]

Visual Basic Yardım Pencerisinde aşağıdaki bilgiler var ama malesef ingilizcem yok, acaba ne diyo adamlar bir tercüme edebilir misiniz?

Object required (Error 424)
   

References to properties and methods often require an explicit object qualifier. This error has the following causes and solutions: 

You referred to an object property or method, but didn't provide a valid object qualifier. 
Specify an object qualifier if you didn't provide one. For example, although you can omit an object qualifier when referencing a form property from within the form's own module, you must explicitly specify the qualifier when referencing the property from a standard module. 

You supplied an object qualifier, but it isn't recognized as an object. 
Check the spelling of the object qualifier and make sure the object is visible in the part of the program in which you are referencing it. In the case of Collection objects, check any occurrences of the Add method to be sure the syntax and spelling of all the elements are correct. 

You supplied a valid object qualifier, but some other portion of the call contained an error. 
An incorrect path as an argument to a host application's File Open command could cause the error. Check arguments. 

You didn't use the Set statement in assigning an object reference. 
If you assign the return value of a CreateObject call to a Variant variable, an error doesn't necessarily occur if the Set statement is omitted. In the following code example, an implicit instance of Microsoft Excel is created, and its default property (the string "Microsoft Excel") is returned and assigned to the Variant RetVal. A subsequent attempt to use RetVal as an object reference causes this error: 

Dim RetVal                                ' Implicitly a Variant.
' Default property is assigned to Type 8 Variant RetVal.
RetVal = CreateObject("Excel.Application")    
RetVal.Visible = True                ' Error occurs here.

Use the Set statement when assigning an object reference. 

In rare cases, this error occurs when you have a valid object but are attempting to perform an invalid action on the object. For example, you may receive this error if you try to assign a value to a read-only property. 
Check the object's documentation and make sure the action you are trying to perform is valid.

 

[security]

Visual Basic Yardım Pencerisinde aşağıdaki bilgiler var ama malesef ingilizcem yok, acaba ne diyo adamlar bir tercüme edebilir misiniz?

Object required (Error 424)
 
 
References to properties and methods often require an explicit object qualifier. This error has the following causes and solutions: 
 
You referred to an object property or method, but didn't provide a valid object qualifier. 
Specify an object qualifier if you didn't provide one. For example, although you can omit an object qualifier when referencing a form property from within the form's own module, you must explicitly specify the qualifier when referencing the property from a standard module. 
 
You supplied an object qualifier, but it isn't recognized as an object. 
Check the spelling of the object qualifier and make sure the object is visible in the part of the program in which you are referencing it. In the case of Collection objects, check any occurrences of the Add method to be sure the syntax and spelling of all the elements are correct. 
 
You supplied a valid object qualifier, but some other portion of the call contained an error. 
An incorrect path as an argument to a host application's File Open command could cause the error. Check arguments. 
 
You didn't use the Set statement in assigning an object reference. 
If you assign the return value of a CreateObject call to a Variant variable, an error doesn't necessarily occur if the Set statement is omitted. In the following code example, an implicit instance of Microsoft Excel is created, and its default property (the string "Microsoft Excel") is returned and assigned to the Variant RetVal. A subsequent attempt to use RetVal as an object reference causes this error: 
 
Dim RetVal                                ' Implicitly a Variant.
' Default property is assigned to Type 8 Variant RetVal.
RetVal = CreateObject("Excel.Application")    
RetVal.Visible = True                ' Error occurs here.
 
Use the Set statement when assigning an object reference. 
 
In rare cases, this error occurs when you have a valid object but are attempting to perform an invalid action on the object. For example, you may receive this error if you try to assign a value to a read-only property. 
Check the object's documentation and make sure the action you are trying to perform is valid.

elimden geldigince çevirdim umarım yardımcı olur...

Özellikleri ve yöntemleri Referanslar genellikle açık bir nesne ön eleme gerektirir. Bu hata aşağıdaki nedenleri ve çözümleri vardır: 
 
Bir nesne özelliği veya yöntemi, ancak sevk geçerli bir nesne eleme vermedi. 
Eğer bir vermediyseniz bir nesne ön eleme belirtin. Örneğin, her ne kadar sen, sen açıkça ön eleme belirtmelisiniz formu kendi modülü içinde zaman referans bir form özelliği nesneyi ön eleme atlayabilirsiniz bir standart modülünden referans özelliği. 
 
, Ancak bir nesnenin ön eleme verilen bir nesne olarak tanınmıyor. 
Nesne elemeleri yazımını kontrol edin ve nesne içinde bunu referans olan programın parçası görünür olduğundan emin olun. Toplama nesnelerin durumunda, sözdizimi ve tüm elemanlarının yazım doğru olduğundan emin olmak için yöntemi ekleyin tüm örneklerini kontrol edin. 
 
, Ancak geçerli bir nesne eleme verilen arama bazı diğer kısmı bir hata vardır. 
Ev sahibi uygulamanın Dosya Aç komutu argüman olarak yanlış bir yol hata neden olabilir. Kontrol argümanlar. 
 
Bir nesneyi referans atama olarak ayarla deyimi kullanmıyordu. 
Eğer Variant değişken bir CreateObject çağrısının dönüş değeri atamak eğer ayarla beyanı belirtilmezse, mutlaka bir hata oluşmaz. Aşağıdaki kod örnek olarak, Microsoft Excel bir örtük örneği oluşturulur ve varsayılan mülkiyet (string "Microsoft Excel") döndürülür ve Değişken RetVal atanır. Bir sonraki girişimi bir nesneyi referans olarak RetVal kullanmak için bu hata neden olur: 
 
 
Set beyanı, bir nesneyi referans atama kullanın. 
 
Nadir durumlarda, bu hata, ancak geçerli bir nesneyi nesne üzerinde geçersiz bir eylemi gerçekleştirmek için çalışıyorsunuz oluşur. Eğer salt okunur bir özellik için bir değer atamak deneyin Örneğin, bu hatayı alabilirsiniz. 
Nesnenin belgeleri kontrol edin ve eylemi gerçekleştirmek için çalışıyoruz geçerli olduğundan emin olun.

 

[leumruk]

Merhaba,
Sorun yesil isimli userformunuz içindeki kodlardan kaynaklanıyor. Karşılığı olmayan emirler vermişsiniz. Ben bir kaç örnek ekliyorum. Siz gerisini kontrol edin. Kodlarınız oldukça yoğun olduğundan ayrıntılı bakamadım.
Örneğin aşağıdaki userform açma ve kapama emirlerinizin karşılığı yok. Userform1 ve yesil2010 isimli userform dosyanızda mevcut değil. Bunun gibi bir çok yerde hata yapmışsınız. Bunları ayıklayabilirseniz sorununuz düzelecektir.

Private Sub web_Click()
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
Application.Visible = True
Unload yesil2010
End Sub