Soru Diğer Sayfada Aranan Değerin, Geçerli Sayfadaki Değerinin Yanına Tik Koymak Yada Benzeri Başka Bir Yöntem

[mbarlas]

Değerli arkadaşlarım kolay gelsin, sayfa1 deki verileri, arama sekmesindeki fatura no kısmında arandığı zaman kontrol amaçlı olması için sayfa 1 de yanına tik gelmesi yada kalıcı olarak renklendirilmesi gibi bir yöntem varmıdır acaba.

http://s2.dosya.tc/server9/n5zq4i/dosya.xlsx.html

 

[Korhan Ayhan]

Merhaba,

ARAMA sayfasının kod bölümüne uygulayıp deneyiniz.

C3 hücresine veri girip hücreyi terk ettiğinizde aranan numara diğer sayfada varsa sarı renkle renklenecektir.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    If Intersect(Target, Range("C3")) Is Nothing Then Exit Sub
    Set Bul = Sheets("YEVMİYE").Range("A:A").Find(Target, , , xlPart)
    If Not Bul Is Nothing Then
        Bul.Interior.ColorIndex = 6
    End If
End Sub

 

[mbarlas]

Elinize sağlık hocam harika olmuş çok teşekkür ederim.