Çok YÖnlÜ Fonksİyonel FormÜl Talebİ

[discoverme]

Sizden istediğim b-bursa shitinin D sütünunda bulunan 803 lü numaraların
Mersin Shitinde bulunan B sütünunda sorgulanması bulunan numaranın her iki taraftada sarıya boyanması bulunamayanların kırmızı olması,
yardımlarınız için şimdiden çok teşekkürler,

 

[ileriexcel]

Sub test()
Set s1 = Sheets("MERSIN")
Set s2 = Sheets("B-BURSA")
For Each bak1 In s1.Range("b1:b" & WorksheetFunction.CountA(s1.[b1:b65000]))
For Each bak2 In s2.Range("d1:d" & WorksheetFunction.CountA(s2.[d1:d65000]))
If Left(bak1, 3) = 803 And Left(bak2, 3) = 803 Then
bak1.Interior.ColorIndex = 6
bak2.Interior.ColorIndex = 6
End If
Next
Next
End Sub