Hüçre ve Resim

[nihatjeoloji]

Slm arkadaşlar

açıklama gönderdiğim örnekte?

 

[nihatjeoloji]

SORU HELLOLMADI

 

[cako]

sayfa üzerine buton koyup, kod sayfasına da aşağıdaki kodu yapıştırın.

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

 

[Tarkan VURAL]

Ã?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

 

[nihatjeoloji]

:bravo: Teşekkürler

 

[nihatjeoloji]

syn cako and Tarkan VURAL

excel'de çalışanlara tüm arkakadaşlara sesleniyorum
Resim çağırmak için iki mükemel çözüm :hey:

çok sağolun

Teşekkürler

 

[nihatjeoloji]

syn Tarkan VURAL

5-10 Resim olunca bu formüle ne ekliyoruz ????

 

[Tarkan VURAL]

Peki k1 hücresi sabit mi olacak ? Yoksa farklı değerleri farklı yerlere mi gereceksiniz? Ona göre kodlamalar yapılmalı.

 

[nihatjeoloji]

(k1)hüç.'si sabit olacak



veya hem sabit hemde değişik

 

[Tarkan VURAL]

???

 

[Mutter Theresa]

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

 

[nihatjeoloji]

slm Mutter Theresa

doğrusu bende bilmiyorum fakat bekliyorum :?

 

[Tarkan VURAL]

Yukarıdaki kodu butonun click olayına yazınız.

Ã?rnek :
private sub commandbutton1_click()
if range("k1").value = "as" then
shapes("resim1").visible = true
else
shapes("resim1").visible = false
end if
end sub

 

[nihatjeoloji]

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 ?? :?

Teşekkürler

 

[Tarkan VURAL]

- 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ı

 

[omerceri]

herhangi bir hücreye As yazıyorsunuz enter basıyorsunuzküçük büyük harf duyarlı şekil o hücrenin önüne gliyor örnek ekte

 

[nihatjeoloji]

syn omerceri
çok sağolun

fakat 20-30 resim olunca nasıl olur ?? aynı sizin yaptığınız örnekteki gibi

Teşekkürler

 

[Mutter Theresa]

Sn.Tarkan Vural, Nihatjeoloji!
Ben yapamad1m.
ilginize te_ekkürler.

 

[omerceri]

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

 

[nihatjeoloji]

syn omerceri
ellerinize sağlık çok teşekkürler


herkese teşekkkürler