Excele Resim Aktardıktan Sonra Problem

[reflargon]

Merhaba

Sayfa1 e yapıştırmış olduğum belli sayıdaki numaraya istinaden, ağdaki o numaralı resimleri sayfa2 e getirmesi için bir kısım kod yazdım. Ancak sayfa1 deki resim numaraları bittikten sonra; (8 resim varsa 9. resim olmadığından)
ilk 8 resimi aktardıktan sonra "pictures sınıfının insert özelliği bulunamadı" runtime error 1004 hatası veriyor haliyle. sayfa1 deki resim noları bitince makroyu bitirmek için birkaç kod denedim ancak olmadı. Yardımcı olabilirseniz çok sevinirim.
Üzerinde çalıştığım dosyayı ekledim.

Şimdiden teşekkürler..

 

[halit3]

For y = 1 To 500
bunun yerine
aşağıdaki kodu kullanınız

For y = 1 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A1:A65000"))

 

[reflargon]

Teşekkür ederim ama obe bu metodu desteklemiyor hatası veriyor.. run-time 538