Çift tıklama ile belli şekilleri ekleme

[ANKARA1974]

İyi günler;

Örnekteki dosyada VERİM sütunundaki hücrelere çift tıklama ile Sayfa 2 de bulunan "yukarı ok" ve/veya "aşağı ok" şekilleri eklenebilir mi? (duruma göre artış veya azalış bu şekiller ile gösterilecektir.)

Ayrıca bu şekiller Sayfa2 yerine bir klasörde tutularak bu çift tıklama işlem gerçekleştirilebilir mi?

İyi çalışmalar.

 

[mancubus]

sayfa isminin üzerinde sağ tıklayıp kodu görüntüle (view code) seçtikten sonra açılan kod penceresine aşağıdaki olay kodunu kopyalayın.

verim arttı veya verim azaldı ifadelerinin bulunduğu sütunun bir sağındaki sütundaki bir hücrede çift tıklandığında tetiklenecektir.

excel'in içinde bu şekiller bulunduğundan herhangi bir yerde aramaya gerek yoktur.

okların soldan ve üstten başlaması gereken noktaları, genişlik ve yüksekliklerini çift tıklanan hücrenin genişlik ve yüksekliğine endeksledim. yüzdelerle oynanabilir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    With Target
        If .Offset(, -1).Value = "verim arttı" Then
            ActiveSheet.Shapes.AddShape msoShapeUpArrow, .Left + .Width * 0.25, .Top + .Height * 0.1, .Width * 0.5, .Height * 0.8
        ElseIf .Offset(, -1).Value = "verim azaldı" Then
            ActiveSheet.Shapes.AddShape msoShapeDownArrow, .Left + .Width *  0.25, .Top + .Height * 0.1, .Width * 0.5, .Height * 0.8
        Else
            Cancel = True
        End If
    End With

    Cancel = True

End Sub

 

[sakman26]

selam,
şekillerle uğraşmaksızın, Veri doğrulama açılır listeden seçim ile yapılabilir.
( Hücrelerdeki Yazı biçimi Wingdings3 , harfler Ç : Yukarı Ok ve È : Aşağı Ok )

 

[ANKARA1974]

Sayın mancubus ve sakman26 elllerinize sağlık, her iki çözümde tam istediğim gibi olmuş. Teşekkür ederim.

İyi çalışmalar.

Not: Sayın mancubus ok yerleştirme işlemleri verim arttı veya azaldı ifadesinden bağımsız olarak sadece çift tıklama işlemleri ile gerçekleştirilebilir mi?