Sayfa1 A kolonundaki hücrelere isim girince Sayfa2 A kolonunda ara

[cocoa35]

Merhaba, Ekli örnek dosyada Sayfa1 A Kolonundaki hücreye bir isim yazıldığında o ismi Sayfa2 Akolonundaki isimler arasında kontrol etsin, eğer var ise ismin karşısındaki örneğin K3 Hücresini Kırmızı renk yapsın ve L3 hücresine karaliste yazsın istiyorum bu konuda yardım edermisiniz.

 

[Ömer]

Merhaba,

Sayfa1 kod sayfasına kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim S1 As Worksheet, c As Range

    If Intersect(Target, Range("A:D")) Is Nothing Then Exit Sub
    
    Set S1 = Sheets("Sayfa2")
  
    With Target
        If Cells(.Row, "A") = "" Then
            Cells(.Row, "K").Interior.ColorIndex = xlNone
            Cells(.Row, "L") = ""
            Exit Sub
        End If
        Set c = S1.[A:D].Find(.Value, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Cells(.Row, "K").Interior.ColorIndex = 3
            Cells(.Row, "L") = "Kara Liste"
        Else
            Cells(.Row, "K").Interior.ColorIndex = 5
            Cells(.Row, "L") = "Temiz"
        End If
    End With
        
End Sub

 

[cocoa35]

Çok teşekkürler Ömer bey tam istediğim gibi olmuş