Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Sub Düğme1_Tıklat()
On Error Resume Next
For a = 5 To [D65536].End(xlUp).Row
If Columns(10).Find(Cells(a, 4)) <> Cells(a, 4) Then Range(Cells(a, 1), Cells(a, 7)).Interior.ColorIndex = 6
Next
MsgBox "İşlem Tamam"
End Sub
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.