Farklı sayfalardaki eşitini bulup, karşı değerine göre hücre renklendirme

[excellkurdu]

Merhaba Arkadaşlar, Bir çok çalışma olmasına rağmen beceremedim.
Sayfa1 de liste halinde kodlanmış numaralar var. Bu numaraların karşılarında değişken sayı değerleri var.
Bu numaraları Sayfa2 de bulup, Sayfa1 deki değerlerine göre Sayfa2 de hücreleri renklendirebilir miyiz?

Mesela Sayfa1 de c3>4 ise, Sayfa2 de c3 ü bulup kırmızı biçimlendirmeli, gibi.
Örnek dosyada daha iyi anlaşılacağını umarım.

 

[Ömer BARAN]

Merhaba. Yanlış anlamadıysam;
belgeniz açıkken, alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin ve açılan ekranda, sağ taraftaki alana aşağıdaki kod'u yapıştırın.

Sayfa1'deki adres ve değerleri değiştirerek Sayfa2'deki renk değişimlerini kontrol edin.
Kırmızı olarak işaretlediğim kısımdaki ilgili adresi ihtiyaca göre değiştirin.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Red"]B4:C26[/COLOR][/B]]) Is Nothing Then Exit Sub
    Call BOYA
[B]End Sub[/B]

[B]Sub BOYA()[/B]
Sheets("Sayfa2").Cells.Interior.Color = xlNone
For a = 4 To 26
Set bul = Sheets("Sayfa2").[[B][COLOR="Blue"]C2:AB15[/COLOR][/B]].Find(Sheets("Sayfa1").Cells(a, 2))
    If Cells(a, 3) = 0 Then
        Sheets("Sayfa2").Range(bul.Address).Interior.ColorIndex = 4
    ElseIf Cells(a, 3) > 0 And Cells(a, 3) < 5 Then
        Sheets("Sayfa2").Range(bul.Address).Interior.ColorIndex = 6
    ElseIf Cells(a, 3) > 4 Then
        Sheets("Sayfa2").Range(bul.Address).Interior.ColorIndex = 3
    End If
Next
[B]End Sub[/B]

Yukarıdaki kod B sütunundaki değeri Sayfa2'de arar ve C sütunundaki değere göre boyar.

 

[excellkurdu]

Hocam Sorun yok gibi. Allah razı olsun.

 

[Ömer BARAN]

Hocam Sorun yok gibi. Allah razı olsun.

Eyvallah, sağlıcakla.

Sub BOYA() satırından sonra bir satır ilave etmiştim kod'u kontrol ediniz.

 

[Ömer BARAN]

İsterseniz koşullu biçimlendirme ile de aynı sonucu alabilirsiniz.
Sayfa2'deki C2:AB15 alanını seçin;
koşullu biçimlendirme -> formül kullan seçeneğinde,
üç renk için ilgili rengi seçerek aşağıdaki ilgili rengin karşısındaki formülü uygulayabilirsiniz.

[COLOR="Blue"]KIRMIZI için: [/COLOR]=VE(C2<>"";DOLAYLI("Sayfa1!C"&KAÇINCI(C2;Sayfa1!$B$1:$B$[B][COLOR="Red"]26[/COLOR][/B];0))>4)
[COLOR="blue"]YEŞİL için: [/COLOR]=VE(C2<>"";DOLAYLI("Sayfa1!C"&KAÇINCI(C2;Sayfa1!$B$1:$B$[B][COLOR="Red"]26[/COLOR][/B];0))=0)
[COLOR="blue"]SARI için [/COLOR]=VE(C2<>"";DOLAYLI("Sayfa1!C"&KAÇINCI(C2;Sayfa1!$B$1:$B$[B][COLOR="Red"]26[/COLOR][/B];0))<5)