sayfa üzerine buton koyup, kod sayfasına da aşağıdaki kodu yapıştırın.
Kod:
Private Sub CommandButton1_Click()
If [d3] = [k1] Then
Range("L1").Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
Ã?ncelikle nesnenize bir ad verin ( örnek: resim1)
daha sonra resmin nerede çıkmasını istiyorsanız resmi o hücreye taşıyın.
Denemeden yazıyorum, umarım hata vermez.
private sub workbook_open()
shapes("resim1").visible=false
end sub
private sub worksheet_selectionchange(ByVal target as range)
if range("k1").value = "as" then
shapes("resim1").visible = true
else
shapes("resim1").visible = false
end if
end sub
Slm.
Kodu kopyalay1p yap1_t1rd1m, sayfaya bir buton yerle_tirdim ama ikisi aras1nda balant1 yapamad1m.
Butona nas1l bir i_lem yapmam gerekir?
Te_ekkürler
Ã?rnek :
private sub commandbutton1_click()
if range("k1").value = "as" then
shapes("resim1").visible = true
else
shapes("resim1").visible = false
end if
end sub
syn Tarkan VURAL
kusura bakmayın
son cevap'nız herhalde syn Mutter Theresa için dimi?
fakat bende üç sorun var?
1- resime ad veremiyorum ( ad kutusunda ) ad değiştiriyorum olmıyor ?? :?
2- 5-10 resim olunca formüle ne eklememiz lazım ??? :?
3- hücre sabit veya sabit olmasa nasıl olur. farklı değerleri farklı yerlerde girilecekse ?? :?
- resme ad verebilmeniz gerek, ben ad verebiliyorum.
- 5-10 resim için cevap ben cevaplayana kadar farklı cevap gelmez ise vakit buladuğumda yardımcı olurum
- hücrenin sabit olması durumunda farklı kod, değişir olması dumunda farklı kod yazılmalı
kod pek şık olmadı biliyorum sadeleştirmeye uğraşacağım. yada bu konuda yardımcı olan arkadaş olursa sevinirim
elseifler arası kodları kopya yapıştır yapıp değerleri ve resimleri değiştirerek çoğaltabilinebilir. yeniörnek ekte
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.