Soru Hücre değerine göre çizim araçlarından OK işaret dolgusunun değişmesi.

[ataahmet]

Merhabalar..
Dosyada A1 değeri =<5 ise üstteki OK işaret dolgusunun Mavi renk, alt OK işaret dolgusunun beyaz renk(görünmez) (C kolonundaki gibi)
A1 değeri =<5 ise üstteki OK işaret dolgusunun beyaz renk(görünmez) alt OK işaret dolgusunun Sarı renk olması için nasıl bir makro yazılmalı.(F kolonundaki )

Şimdiden teşekkürler..

 

[Ömer BARAN]

Merhaba.

Sorularınızı, ekran görüntüsü yerine; gerçek belgenin, özel bilgi içermeyen kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorarsanız
daha hızlı sonuca ulaşırsınız.
Ayrıca işlemin tetikleyicisi konusunu da netleştirmelisiniz (A1'e elle veri girişi mi yapılacak yoksa A1'de bir formül mü vardır vs.)
Sanırım istediğiniz aşağıdaki gibi bir şey (Soru ekran görüntüsüyle sorulunca; ben de cevabı ekran görüntüsüyle vereyim dedim)
.

 

[ataahmet]

Ömer bey merhabalar.
öncelikle cevap verdiğiniz için içtenlikle size çok teşekkür ederim.
Yapılan hataları acemiliğime verin lütfen.
Örnek belgeyi ekliyorum.
Yardımlarınız için şimdide teşekkür ederim..

 

[Ömer BARAN]

-- Sayfada 2 adet şekil olacak ve her iki şekil de sürekli görünür durumda iken, şekillerin renksiz veya istenilen renkli olmasını mı istiyorsunuz?
-- Yoksa sayfada 4 adet şekil olacak, soldakiler C4'e, sağdakiler D4'e göre mi renklenecek veya rengi kaldırılacak?
-- Sayfada A : D sütun aralığında hep tek satırlık veri mi vardır?
-- Veri satır sayısı artacak mı, arttığında şekillerin sayısı da mı artacak?
-- Hedef değer olan 5 ve 6 için C sütununa mı bakılacak yoksa D sütununa mı bakılacak, ya da sayfada 4 şekil olacaksa soldakiler C'ye göre, sağdakiler D'ye göre mi işlem görecek, C'ye bakılacaksa POZİTİF/NEGATİF durumu nasıl değerlendirilecek?
-- A4 ve B4 hücresine veri girişi elle mi yapılacak?
Yukarıdaki hususlara ayrı ayrı değinerek soruyu netleştirmenizde yarar var sanırım.
.

 

[ataahmet]

Ömer bey hızlı dönüşünüz için tekrar teşekkür ederim.
sorularınızın cevaplarını ilgili excel dosyasına yazdım.
Yardımlarınız için tekrar teşekkürler..
sağolun..

 

[Ömer BARAN]

Yani elle veri girişi yapılan alan DOKÜMAN NO kısmı öyle mi?

 

[ataahmet]

evet .. başka bir sayfadan alınan bilgilere göre veri girişi oluyor

 

[Ömer BARAN]

-- Şekillerin isimlerinin Aşağı Ok 1 ve Yukarı Ok 1 olduğundan emin olun.
(şekli seçerseniz formül çubuğunun en solunda şekilin adı görülebilir/değiştirilebilir)
-- Alt taraftan, ÇIKTI sayfasının adına fareyle sağ tıklayın ve KOD GRÜNTÜLEyi seçin.
-- Açılan VBA ekranında, sağdaki BOŞ alana aşağıdaki kod blokunu yapıştırın.
-- L32 hücresinin içine girerek ENTER'a basın veya elle yeni bir değer yazın.
İstediğiniz bu sanırım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [L32]) Is Nothing Then Exit Sub
    If Abs([I35]) * 100 <= 5 Then
        ActiveSheet.Shapes("Aşağı Ok 1").Visible = True
        ActiveSheet.Shapes("Yukarı Ok 1").Visible = False
    Else
        ActiveSheet.Shapes("Aşağı Ok 1").Visible = False
        ActiveSheet.Shapes("Yukarı Ok 1").Visible = True
    End If
End Sub

 

[ataahmet]

çok teşekkürler..
hemen deneyeceğim sağolun.

 

[ataahmet]

Ömer bey gerçekten çok teşekkür ederim.
çok güzel olmuş..
Elinize ve bilginize sağlık çok sağolun.
sizden başka bir konuda yardım isteyeceğim fakat bu gün değil yeterince sizi yordum.
tekrar sağolun.
Allah emanet.

 

[Ömer BARAN]

Uğraşmak mesele değil.
Sorularınızı gerçek belgenizin kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorarsanız net sonuca daha hızlı ulaşırsınız.

Kolay gelsin.
.