Bul ve sarıya boya

[hamitcan]

C sütunundaki değerleri; E sütunda kelimelerin içinde gizli olan satırlarda bulsun ve sarıya boyasın

Daha fazla ayrıntıyı dosyada bulabilirsiniz.

Teşekkürler

 

[Exelans]

Sayfanızda C ve E sürunlarında gereksiz veri kalmasın Sayfanızın 6 satırına kadar boştu ben de kodları 7 den başlattım. Değilse düzenlersiniz.
Sayfa üzerine koyduğum butona atadım kodları.
[vb:1:7a2fcaffdd]Private Sub CommandButton1_Click()
Cells(6, 7) = 0
For i = 6 To Range("C65536").End(xlUp).Row
x = 0
For j = 6 To Range("E65536").End(xlUp).Row
If InStr(Range("E" & j), Range("C" & i)) > 0 Then
Range(Cells(j, 5), Cells(j, 6)).Interior.Color = vbYellow
x = x + 1
End If
Next j
If x = 0 Then Cells(6, 7) = Cells(6, 7) + Cells(i, 3)
Next i
End Sub[/vb:1:7a2fcaffdd]

 

[hamitcan]

Teşekkürler Exelans kodlar tam istediğim gibi olmuş

İyi çalışmalar