DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ya ben bağlayamadım yada çalışmıyor. Ekte verdiğiniz kodu girerek denedim ama olmadı.İncelerseniz sevinirim.leventm' Alıntı:Aşağıdaki kodu sayfa1 deki butona bağlayarak deneyin.
[vb:1:b5fc164c26]Sub resimekle()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("sayfa2").Select
ActiveSheet.Pictures.Delete
Range("J8").Select
ActiveSheet.Pictures.Insert(Sheets("sayfa1").[c8]).Name = "a"
Sheets("sayfa1").Select
End Sub
[/vb:1:b5fc164c26]