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

Katılım
15 Kasım 2005
Mesajlar
24
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..
1542306492715.png
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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)
.
oklarr.gif
 
Son düzenleme:
Katılım
15 Kasım 2005
Mesajlar
24
Ö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..
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
-- 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.
.
 
Katılım
15 Kasım 2005
Mesajlar
24
Ö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..
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Yani elle veri girişi yapılan alan DOKÜMAN NO kısmı öyle mi?
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
-- Ş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.
Rich (BB code):
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
 
Katılım
15 Kasım 2005
Mesajlar
24
Ö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

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
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.
.
 
Üst