(05/10/2020, 21:51)enginbeyy yazdı: hocam asıl dosyam iş yerinde ona yarın uygulayacağım ama renklendirdikten sonra filitre yapıp tekrar filitreyi bozduğumda kasmıyacaksa ilk renklendirirken uzun sürmesi sorun değil
Teşekkürler.
Rica ederim,bence kasmaz.
Yapmak istediğiniz heralde şöyle;
A sütundakileri karşılaştırıyorsunuz.
Eğer d,ğer sayfada bulunuyorsa ve B,C.....gibi sütunlardaki veriler aynı değilse renkleniyor.
Bunun için döngü gerekiyordu öyle ayarladım.
Birde gif ekledim nasıl çalıştığını göstermek için.
Filtre yapma ile kodun alakası olmaz.Yani kod çalıştırıp renklendirince herşeyi yapabilirsiniz kasma olmadan.Sadece kodu çalıştırınca uzun sürebilir.
Sanırım bu kod daha hızlı çalışıyor.
Her ikisinide deneyebilirsiniz hız olayı için.
Sub renklendir()
Dim son As Long, i As Long, k As Byte, kacinci As Long
Dim syfteyit As Worksheet
Dim syfAnaSayfa As Worksheet
Set syfteyit = ThisWorkbook.Sheets("Teyit")
Set syfAnaSayfa = ThisWorkbook.Sheets("Anatablo")
With syfteyit
son = .Range("A" & Rows.Count).End(3).Row
If son < 2 Then son = 2
.Range("A2:R" & son).Interior.ColorIndex = xlNone
Application.ScreenUpdating = False
For i = 2 To son
On Error GoTo var
kacinci = WorksheetFunction.Match(.Cells(i, 1).Value, syfAnaSayfa.Range("A:A"), 0)
For k = 2 To 18
If .Cells(i, k).Value <> syfAnaSayfa.Cells(kacinci, k) Then .Cells(i, k).Interior.ColorIndex = 3
Next
var:
Next
Application.ScreenUpdating = True
End With
Set syfteyit = Nothing
Set syfAnaSayfa = Nothing
End Sub
Hocam
Asıl dosyaya ekleyince fotoğraftaki hatayı aldım.
[img]
[img]
[/img]
Normalde çalışması gerekiyordu.
Hata oluncada atlaması gerekiyordu diper döngüye.
Sayfa adları aynımı koddakilerle?