Herhangi bir sayıya resim atama

[aslan_yurekli]

Excel'de 1.sayfadaki bir kutuya 1 veya 2 veya 3 sayılarını girerek 2.sayfadaki aynı numaralı resimleri 1.sayfadaki belli bir alana nasıl getirebilirm?

 

[NBATMAN]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim seçim
seçim = Range("b3").Value
Select Case seçim
Case 1
Sheets("Sayfa2").Select
ActiveSheet.Shapes("1 Resim").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("H8").Select
ActiveSheet.Paste
Case 2
Sheets("Sayfa2").Select
ActiveSheet.Shapes("2 Resim").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("H8").Select
ActiveSheet.Paste
Case 3
Sheets("Sayfa2").Select
ActiveSheet.Shapes("3 Resim").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("H8").Select
ActiveSheet.Paste
End Select
End Sub

 

[Merhum İdris SERDAR]

Excel'de 1.sayfadaki bir kutuya 1 veya 2 veya 3 sayılarını girerek 2.sayfadaki aynı numaralı resimleri 1.sayfadaki belli bir alana nasıl getirebilirm?

.

Dosyanız ekte.


.

 

[aslan_yurekli]

İkinize de gerçekten çok teşekkür ederim çok makbule geçti

 

[aqif1]

.

Dosyanız ekte.


.

sn yurttas kısıtlı excel bilgim bu yaptığınızın nasıl olduğunu anlamaya fırsat tanımadı. mümkünse dosyanın içindeki =Resim ve =ResimListesi`ni nereden yaptığınıza dair biraz açıklama verebilirmisiniz?

 

[Merhum İdris SERDAR]

sn yurttas kısıtlı excel bilgim bu yaptığınızın nasıl olduğunu anlamaya fırsat tanımadı. mümkünse dosyanın içindeki =Resim ve =ResimListesi`ni nereden yaptığınıza dair biraz açıklama verebilirmisiniz?

.

Formulas > Name Maneger' a girin. oradan göreceksiniz.

Konu için bakınız:

Excel'de alan adları ve uygulamaları

Dynamic Range- Dinamİk Alan



.