Hücre değerlerini karşılaştırma

[zrkislal]

sayın Arkadaşlar

iki Hücrenin değerlerini karşılaştırıp eşit olduğunda 2. hücrenin ve başka bir hücrenin rengini değiştirecek formül varmıdır.?

 

[Murat OSMA]

Net bir çözüm sunmamız için, üzerinde çalıştığınız dosyayı ekler misiniz ?

 

[zrkislal]

Sayın murat bey


Örnek doosya ektedir yardımlarınız için teşekkür ederim

 

[Murat OSMA]

Şu kodu Module içerisine yazıp deneyiniz;

Sub Emre()
    Dim i As Integer
    For i = 5 To Range("D65536").End(3).Row
        If Cells(i, "G") = Cells(i, "J") Then
            Cells(i, "E").Resize(, 6).Interior.ColorIndex = 3
        End If
    Next i
    i = Empty
End Sub

Ya da Sayfa1'in kod sayfasındaki Change olayına aşağıdaki kodu, veri girip renklendirmesini istediğiniz son hücreye göre düzenleyip deneyiniz..
Yani örneğin; en son G sütunundaki bir hücreye veri girdiğinizde, eğer J sütunundaki değere eşitse ilgili hücreleri kırmıya boyasın gibi...

Kodları açıklamasını da yapacağım, yukarıda yazdıklarıma göre ilgili yerleri değiştirirsiniz.

Sayfanın Change olayı, hücreye giriş çıkış yapıldığında çalışan olaydır.
Private Sub Worksheet_Change(ByVal Target As Range)

Eğer hedef (aktif) sütun 7. sütun (G sütunu) değilse; makrodan çık !

If Target.Column <> 7 Then Exit Sub

Eğer hedef (aktif) hücredeki değer, hedef hücrenin 3 sağındaki hücrele ile eşitse

If Target.Value = Target.Offset(0, 3).Value Then

Hedef (aktif) satırın, 5. sütunundan itibaren, 6 sütun sağındaki hücrelerin dolgu (arka plân) rengini kırmızı (3) yap.

Cells(Target.Row, 5).Resize(, 6).Interior.ColorIndex = 3

Eğer ile başlayan şartı bitir...
End If

Makronun sonu...
End Sub