ürün ve miktar dinamik koşullu biçimlendirme

[honestman]

Merhaba,

Aşağıdaki kodlarda eğer A1 de "elma" yazıyorsa ve o satıdaki değerlerden hangileri 100 den küçükse renklendir dedim. Fakat "elma" alttaki satırlarda da olabilir. Nasıl dinamik hale getirebiliri. Offset i beceremedim. Dosya ektedir.Teşekkür ederim.

Sub sartlar()

Dim applyto As Range

Set applyto = Range("B1:XFD1")

Range("B1").FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=AND($A$1=""elma"";B$1<>"""";B$1<100)"
With Range("B1").FormatConditions(1)
    .SetFirstPriority
    With .Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287938
        .TintAndShade = 0
        
        
    End With
    .ModifyAppliesToRange applyto
    .StopIfTrue = False
End With


End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Kosullu_Bicimlendirme()
    Son = Cells(Rows.Count, 1).End(3).Row
    Cells.FormatConditions.Delete
    With Range("B1:XFD" & Son)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=VE($A1=""ELMA"";B1<>"""";B1<100)"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 5296274
            .TintAndShade = 0
        End With
        .FormatConditions(.FormatConditions.Count).StopIfTrue = False
    End With
End Sub

 

[honestman]

Çalışmadı malesef.

 

[Korhan Ayhan]

Kullanılan fonksiyonu İngilizce yazıp deneyiniz. Ben Türkçe ofis kullandığım için o şekilde yazmıştım.

[COLOR="Red"]VE[/COLOR]($A1=""ELMA"";B1<>"""";B1<100)

 

[honestman]

Merhaba AND olarak denedim fakat doğru şekilde biçimlendirmedi.

 

[honestman]

A sütununda hangi satırda elma görürse görsün hemen yanındaki sütunlarda miktarlar 100 den küçükse renklensin. Mesela a1 de elma yazıo b1 de 10 c1 de 20 d1 de 100 vs... diosa b1 ve c1 renklenmeli. Teşekkürler Korhan bey.

 

[honestman]

Kusura bakmayın oldu teşekkür ederim.