Makro 1004 hatası

[enesyildiz]

Private Sub ListBox1_Click()
ActiveSheet.Shapes.Range(Array("ibre1")).Rotation = Range("c8").Value * 241
ActiveSheet.Shapes.Range(Array("ibre2")).Rotation = Range("D8").Value * 241
End Sub

Bu makroda ibre1 isimli şekil listboxdan seçilen veriye göre değişiyor. Fakat farklı bir sayfada işlem yaptığımda " belirtilen adlı öğe bulunamadı" hatası çıkıyor.

 

[Muzaffer Ali]

Aktif olan sayfada "ibre1" adlı nesne yok demek ki.

 

[enesyildiz]

Evet onu aktif olan sayfa olarak değil sayfa ismi vererek yapmam gerekiyor. Aktif sayfa olan sayfa olduğunda, diğer alt sayfalarda işlem yaparken bu hata çıkıyor.

 

[Orion1]

Böyle deneyin.
Kendi sayfa adınıza göre güncelleyin.

Sheets("Sayfa1").Shapes.Range(Array("ibre1")).Rotation = Range("c8").Value * 241

 

[enesyildiz]

Teşekkürler.