Koşullu resim yerleştirmek

[desk]

Örnek ekteki dosyadadır yardımcı olursanız sevinirim.

 

[desk]

biraz uğraştım ve istediğimi bir ölçüde yaptım fakat sorunum hücredeki veride kıstas yaratamamak.!


Sub R_EKLE()
Dim imgIcon
If Range("A1") = "%30 ve altı AC yazanlar ve ne yazarsa yazanlar için" Then
With Range("E19")
Set imgIcon = ActiveSheet.Shapes.AddPicture(Filename:="C:\Users\Desktop\RES\GENEL.JPG", LinkToFile:=False, SaveWithDocument:=True, Left:=.Left, Top:=.Top, Width:=120, Height:=25)
Set imgIcon = Nothing
End With
ElseIf Range("A1") = "%30 ve üstü AC yazanlar için" Then
With Range("F19")
Set imgIcon = ActiveSheet.Shapes.AddPicture(Filename:="C:\Users\Desktop\RES\GENELB.JPG", LinkToFile:=False, SaveWithDocument:=True, Left:=.Left, Top:=.Top, Width:=120, Height:=25)
Set imgIcon = Nothing
End With
Else

End If

End Sub




-------------1inci kıstas
A1 hücresinde hücre içinde tek parça olarak
%30AC
%31AC
%32AC
.
.%100AC

--------------2inci kıstas

A1 hücresinde hücre içinde tek parça olarak
%29AC
%28AC
%27AC
ve ne yazarsa yazsın
%50CF
%80CA
%40SZ

 

[desk]

With Range("E19")

ŞU KISIMDA DAHA FAZLA HÜCREYE İŞLEM YAPTIRMAK İÇİN NASIL BİR KOD YAZMALIYIM

With Range("E19,B19,C19") //OLMADI