Kaydırma çubuğu ile resim çağırma problemi

[muratcx]

Merhaba arkadaşlar örnek dosyada resim çağırma ile ilgili bir sorum olacak
b4 hücresine resim numaralarını manuel yada doğrulama ile yazdığımda resim sayfasından resimler çağırılıyor
Ancak kaydırma çubuğu ile b4 hücresine rakamlar yazdırıldığın kod çalışmıyor
kaydırma çubuğu ile işlemi gerçekleştirmem lazım yardımlarınızı rica ediyorum

 

[halit3]

kaydırma çubuğuna bu makroyu ekle

Sub resim_getir()
Range("b4").Select
yer = Val(Sheets("ANASAYFA").Cells(4, 2).Value)
On Error Resume Next
Application.ScreenUpdating = False
Sheets("ANASAYFA").Shapes("resim").Delete
Sheets("Resim").Shapes(yer).Copy
Sheets("ANASAYFA").Cells(1, 6).PasteSpecial
Selection.ShapeRange.Name = "resim"
Sheets("ANASAYFA").Cells(4, 2).Select
End Sub

 

[muratcx]

Syn Halit3 hocam teşekkür ederim emeğine sağlık