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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.