Koşulla gelen hücre rengini sorgulama

[Arrayn]

:yardim:
Selamlar,
Konu daha önce forumda vardı ama sonuç istediğim gibi değildi.
koşulla dolgu rengi almış bir hücrede (örnekte koyu gri ve açık gri renkler)
açıklama görüntülemek istiyorum. Örneğin koyu gri olmuş bir hücrede malın tamamı satılmıştır ve açıklamaya "Satıldı" ve açık gri olmuş bir hücrede de hala mal kaldığı için "Kalan mal = ... adet" görüntülenmesi gerekli.

Sorun şu : FormatConditions(1).Interior.ColorIndex = 15 Then
ifadesinde eşitliği sorulan renk koşullu biçimlendirmede varsa çalışıyor. Ama koşul gerçekleşmemiş !!! yine de çalışıyor , çalışmaması lazım çünkü hücrede koşul sağlanmamış ve hücre rengi gri olmamış. :???: Tanımlamadaki rengi görüyor zannedersem. (İnşaallah anlatabildim)

Örnek dosyayı ekliyor ve yardımlarınızı bekliyorum.

 

[Arrayn]

:yardim:
Yardımlarınızı bekliyorum.

 

[Arrayn]

Bu durum excelin bir eksiği mi ? yoksa ben mi abartılı bişi istiyorum !

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearComments
If Target.Address Like "*" & ":" & "*" Then Exit Sub
If Not IsEmpty(Target) And Target.FormatConditions.Count > 0 Then
sat = Target.Row
sut = Target.Column
bicim = Evaluate(Replace(Replace(Target.FormatConditions.Item(1).Formula1, "VE", "AND"), ";", ","))
If bicim = True Then
TOPLAM = WorksheetFunction.Sum(Range(Cells(sat, "l"), Cells(sat, sut))) + Cells(sat, "f") - Cells(sat, "b")
With Target
.AddComment
.Comment.Visible = True
.Comment.Text Text:="İŞLEM SONUCU: = " & TOPLAM
.Comment.Visible = False
End With
End If
End If
End Sub

 

[Arrayn]

******* The best forum in the world *********

Valla 1 haftadır avrupadaki siteleri de dolaştım konuya uygun bir çözüm bulamadım. Hocam sen bu işi nereden öğrendin, Excel'i sen mi yazdın ne .

Ellerine sağlık

Saygı ve sevgilerimle
Arrayn

 

[Levent Menteşoğlu]

Rica ederim. İnanın bende orta düzey bir kullanıcıyım.