Koşula Göre Simge Ekleme

[Tarikkk_]

merhabalar. nette konusunu bulamadım Çalışma sayfamda açılır listede 4 seçenek var ABONA - KİRALIK - ABONE+S - KİRALIK+S Yapmaya istediğim şey ABONE+S VE KİRALIK+S seçeneklerini seçtiğimde taşıt simgesi gelsin hücreye mümkünse yardımlarınızı bekliyorum. çok teşekkür ederim

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [c6] = "ABONE+S" Or [c6] = "KİRALIK+S" Then
Me.Shapes("Grafik 2").Visible = msoCTrue
Else
Me.Shapes("Grafik 2").Visible = msoFalse
End If
End Sub

 

[Tarikkk_]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [c6] = "ABONE+S" Or [c6] = "KİRALIK+S" Then
Me.Shapes("Grafik 2").Visible = msoCTrue
Else
Me.Shapes("Grafik 2").Visible = msoFalse
End If
End Sub

Hocam cevabınız için çok teşekkür ederim ama bu excel dosyası halı saha takip uygulaması olarak mobilde çalışacağı için ve makro mobilde çalışmadığından makrosuz bir yöntemle yapmamız mümkün değilmi acaba

 

[Haluk]

Ekli dosyayı yabancı birisi için hazırlamıştım.... Sizin Mobil'de çalışıp çalışmayacağını bilmiyorum, benim telefondaki ücretsiz MS Excel desteklemedi.

.

 

[Tarikkk_]

Ekli dosyayı yabancı birisi için hazırlamıştım.... Sizin Mobil'de çalışıp çalışmayacağını bilmiyorum, benim telefondaki ücretsiz MS Excel desteklemedi.

.

cevabınız için tşk ederim. malesef benim teldede çalışmadı aslında resim olmasada ABONE+S VE KİRALIK+S yazdığımızda bir koşullu biçimlendirme simgesi eklemek mümkün olsaydı yine işimi görebilirdi

 

[Tarikkk_]

Ekli dosyayı yabancı birisi için hazırlamıştım.... Sizin Mobil'de çalışıp çalışmayacağını bilmiyorum, benim telefondaki ücretsiz MS Excel desteklemedi.

.

aslında eklediğinşz resimler çalışmıyor ama excelin içindei orjinal simgelerden ekleyince çalışıyor. bu resimleri nasıl koşula göre değiştirebiliriz. daha önce hiç kullanmadığım için hiç bilgim yok yardımcı olurmusunuz

 

[Haluk]

Webdings fontlarını kullanarak yapmayı deneyin ...

.