Çözüldü Açılır liste kod düzenleme

[ASLAN7410]

Merhaba.

Aşağıdaki kodda Select demeden nasıl yapabiliriz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Yukarıdaki kodu aşağıdaki gibi yapıyorum debug hatası veriyor.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Yardımcı olur musunuz?

 

[arzuhalci]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

veya

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Lütfen Deneyiniz

 

[arzuhalci]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Debug hatası veren yazdığınız kod içinde bir hata var. Şekil seçimi için kullandığınız Shapes.Range(Array("Drop Down 29")) ifadesi doğru değil. Bunun yerine ActiveSheet.Shapes("Drop Down 29") kullanmanız gerekiyor.

 

[ASLAN7410]

Sayın arzuhalci, ilginiz için çok teşekkürler. Kodları makro kaydet ile oluşturmuştum.

Gönderdiğiniz her 3 kod için de debug hatası veriyor, hatada Run-time error 438 Object doesn't this property or method hata mesajı geliyor.

 

[Özcan ÖZBEK]

Sayın arzuhalci, ilginiz için çok teşekkürler. Kodları makro kaydet ile oluşturmuştum.

Gönderdiğiniz her 3 kod için de debug hatası veriyor, hatada Run-time error 438 Object doesn't this property or method hata mesajı geliyor.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[arzuhalci]

Aldığınız "Run-time error 438 Object doesn't this property or method" hatası, kodunuzda bir nesne özelliği veya yöntemi kullanmaya çalıştığınız için ortaya çıkıyor.Kodunuzda kullandığınız nesne (burada "Drop Down 29" şekli) mevcut olmayabilir veya doğru şekilde seçilmemiş olabilir.

Oluşan hatayı tesbit edebilmek için aşağıdaki kodu çalıştırınız.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Böylece, öncelikle Set shp = ActiveSheet.Shapes("Drop Down 29") satırında bir hata olup olmadığını kontrol ediyoruz. Eğer hata varsa, kullanıcıya bir mesaj gösterip alt programdan çıkıyoruz.Hata olmaması durumunda, normal işlemlere devam ediyoruz.

Bu şekilde, hata kaynağını daha kolay tespit edebilirsiniz. Lütfen kodunuzu bu şekilde düzenleyip tekrar deneyin.

 

[Refaz]

Aldığınız "Run-time error 438 Object doesn't this property or method" hatası, kodunuzda bir nesne özelliği veya yöntemi kullanmaya çalıştığınız için ortaya çıkıyor.Kodunuzda kullandığınız nesne (burada "Drop Down 29" şekli) mevcut olmayabilir veya doğru şekilde seçilmemiş olabilir.

Oluşan hatayı tesbit edebilmek için aşağıdaki kodu çalıştırınız.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Böylece, öncelikle Set shp = ActiveSheet.Shapes("Drop Down 29") satırında bir hata olup olmadığını kontrol ediyoruz. Eğer hata varsa, kullanıcıya bir mesaj gösterip alt programdan çıkıyoruz.Hata olmaması durumunda, normal işlemlere devam ediyoruz.

Bu şekilde, hata kaynağını daha kolay tespit edebilirsiniz. Lütfen kodunuzu bu şekilde düzenleyip tekrar deneyin.

Sayın arzuhalci üstad.
İlk mesajdaki ikinci koddaki sadece with kısmını 6.Mesajdaki ile değiştirmek yetiyor bendede tüm eklenen kodlar hata vermişti ufak bir araştırma ile dediğim satırdaki kod olayı çözüyor.
Evet dediğiniz gibi o satırda hata veriyordu.

 

[ASLAN7410]

Sayın Özcan Bey, kod hata veriyor.
Sayın arzuhalci Bey, kod çalışmıyor.
Sayın Zafer Bey, 6. mesajınızdaki kod gayet güzel çalıştı, tam istediğim gibi oldu.

İlgilenen herkese çok teşekkür ediyorum, hayırlı günler.