örn: d2 deki değeri a sutununda bulup bulunan yerin dolgusunu değiştirme

[lord_ctss]

kolay gelsin
ve teşekkür ederim

örn: d2 deki değeri a sutununda bulup bulunan yerin dolgusunu değiştirme

ya da E sutunundaki tüm değerleri a sütününda arayıp eşleşenleri de renkledirebilir.

böyle bir makro veya formul arıyorum arama yaptım bulamadım yardımcı olursanız sevinirim...

-----------
serkan avcı
serkan@serkanavci.net

 

[Recep İpek]

Aşağıdaki kodlar, E kolonundaki verileri A kolonunda arayıp, aynı olan verilerin zemin rengini kırmıza yapar.

ub AraRenk()
Set s1 = Sheets("Sayfa1")
For i = 1 To s1.[e65536].End(3).Row
veri = s1.Cells(i, "e").Value
    For j = 1 To s1.[a65536].End(3).Row
        If (s1.Cells(j, "a").Value) Like "*" & veri & "*" Then
           s1.Cells(j, "a").Interior.ColorIndex = 3
        End If
    Next j
Next i
Set s1 = Nothing
MsgBox "Bitti"
End Sub