sayı kontrol

[metinavci23]

arkadaşlar ekte gönderdiğim dosya için yadıma ihtiyacım var.
a sutununda sayılar var.benim yapmak istediğim a sutunundaki sayıların b sutununda olup olmadığını kontrol etmek.eğer var ise hücreyi sarıya boyaması.ben bir yere kadar yaptım ancak ekteki dosyadan da görüceceği üzere şmesela a sutununda 30 sayısı bir yerde var ancak b sutununda 2 yerde var.benim yaptığım makroda b sutunundaki ikisine de sarı yapıyor.benim istediğim eğer bir sayı a sutununda bir defa var ise b sutununa da bir defa işaret(sarı) yapsın .eğer b sutununda sayı tekrarlanıyorsa ikinci defa sayıyı işaretlemesin.umarım anlatabilmişimdir derdimi.şimdiden teşekür ederim

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sayfa1").Select
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value <> "" Then
        Set k = Range("B1:B65536").Find(Cells(i, "A").Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            k.Interior.ColorIndex = 6
        End If
    End If
Next i
End Sub

 

[metinavci23]

teşekürler

teşekürler sayın Orion 2.Çorluya selamlar

 

[Orion1]

teşekürler sayın Orion 2.Çorluya selamlar

Aleyküm selam.
İyi çalışmalar.