Tablo kesişim hücresini renklendirme

[admadm_61]

Merhabalar
Ekli dosyada kriterlere göre tabloda kesişim noktasını renklendirmek ve sonucu C4 hücresine yazdırmak istiyorum. Yardımlarınız için teşekkür ederim.

 

[YUSUF44]

C4 hücresinde aşağıdaki formülü kullanın:

=İNDİS($C$7:$G$10;KAÇINCI($F$1;$B$7:$B$10;);KAÇINCI($F$2;$C$6:$G$6;))

Sonuç hücresinin renklenmesi için C7:G10 aralığını seçin
Koşullu biçimlendirme menüsünü açın
Yeni kural ekleyin
Kural olarak formül kullanmayı seçin
Açılan formül çubuğuna aşağıdaki formülü yazın:

=VE($F$1=$B7;$F$2=C$6)

Biçim düğmeisnden istediğiniz biçimi ayarlayıp çıkın.

 

[admadm_61]

Teşekkür ederim YUSUF44.

 

[admadm_61]

Merhabalar,
Öğrenmek açısından aynı işlemi vba kodlarıyla nasıl yapabilirim.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp Kod Görüntüle deyince açılan sayfaya) kopyalarsanız, F1 ve F2 hücrelerini değiştirdiğinizde istediğiniz işlemi yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [F1:F2]) Is Nothing Then Exit Sub
sonsat = Cells(Rows.Count, "B").End(3).Row
sonsüt = Cells(6, Columns.Count).End(xlToLeft).Column
a = WorksheetFunction.Match([F1], Range("B7:B" & sonsat), 0)
b = WorksheetFunction.Match([F2], Range(Cells(6, "C"), Cells(6, sonsüt)), 0)
Range(Cells(6, "B"), Cells(sonsat, sonsüt)).Interior.Color = xlNone
Cells(a + 6, b + 2).Interior.Color = vbYellow
[C4] = Cells(a + 6, b + 2)
End Sub