- Katılım
- 11 Mart 2005
- Mesajlar
- 261
- Excel Vers. ve Dili
- Microsoft 365
Merhaba; aşağıdaki kodlar ile sayfada resim getirme işlevini yaptım. Yalnız resimlerin bulundugu sayfa sekmesini gizlediğimde VBA da kodlar hata veriyor.. Sizden ricam resimlerin bulundugu Sayfayı gizlediğimde aşağıdaki kodların hata vermemesi için ne yapmam gerekiyor.. Yardımcı olursanız çok sevinirim..
İyi günler dilerim.. Saygılarımla.
SKaan
Kodlar:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$X$19" Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.Shapes("Resim").Delete
Sheets("Resim").Select
ActiveSheet.Shapes([X19]).Copy
[AS6].PasteSpecial
Sheets("Personel").Select
Selection.ShapeRange.Name = "Resim"
[X19].Select
End Sub
İyi günler dilerim.. Saygılarımla.
SKaan
Kodlar:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$X$19" Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.Shapes("Resim").Delete
Sheets("Resim").Select
ActiveSheet.Shapes([X19]).Copy
[AS6].PasteSpecial
Sheets("Personel").Select
Selection.ShapeRange.Name = "Resim"
[X19].Select
End Sub