Makro ile hücre renklendirme

[bmutlu966]

Arkadaşlar,

Ekteki dosyada tarih sorgulatarak bazı hücreleri renklendiriyorum. Ancak yazdığım makro hem yavaş hemde hata yapıyor. Kontrol edebilirmisiniz ?

 

[halit3]

Arkadaşlar,

Ekteki dosyada tarih sorgulatarak bazı hücreleri renklendiriyorum. Ancak yazdığım makro hem yavaş hemde hata yapıyor. Kontrol edebilirmisiniz ?

bunu denermisiniz.?

Sub deneme2()
Range("D17:I21").Interior.ColorIndex = xlNone
For i = 4 To Sheets("Data").Cells(Rows.Count, "A").End(3).Row
bul = Sheets("Data").Cells(i, "A").Value
If Sheets("Data").Cells(i, "A").Value <> "" Then
Set d = Sheets("iSMS").Range("D17:I21").Find(bul, LookAt:=xlWhole)
If Not d Is Nothing Then
firstAddress = d.Address
Do
d.Interior.ColorIndex = 3
Set d = Sheets("iSMS").Range("D17:I21").FindNext(d)
Loop While Not d Is Nothing And d.Address <> firstAddress
End If
End If
Next
MsgBox "işlem tamam"
End Sub

 

[bmutlu966]

Çok teşekkürler halit hocam.

 

[halit3]

Çok teşekkürler halit hocam.

iyi çalışmalar