Koşullu Biçimlendirme

Dosyanızda Koşullu biçimlendirilmiş hücre göremedim. Hangi sütun hangi koşula göre renklenecek.

(05/10/2020, 18:14)alicimri yazdı: Dosyanızda Koşullu biçimlendirilmiş hücre göremedim. Hangi sütun hangi koşula göre renklenecek.

Yeni inceledim dosyayı biçimlendirme var abey.Kod ile yapıldığı söylenmişti kod yok.

Makro ile istiyorsanız alttaki kodu bir modüle ekleyip çalıştırın.

    Dim son As Long, i As Long, k As Byte, bul As Range

    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

            Set bul = syfAnaSayfa.Range("A:A").Find(.Cells(i, 1).Value, , , 1)

            If Not bul Is Nothing Then

                For k = 2 To 18

                    If .Cells(i, k).Value <> syfAnaSayfa.Cells(bul.Row, k) Then .Cells(i, k).Interior.ColorIndex = 3

                Next

            End If

        Next

        Application.ScreenUpdating = True

    End With

    Set syfteyit = Nothing

    Set syfAnaSayfa = Nothing

    Set bul = Nothing

Hocam modül olarak ekledim ama olmadı. ben mi yapamadım acaba

Dosyayı ekledim.
70 bin satır ve 20 sütunda nasıl çalışır bilemem belki 1 dakika sürebilir.

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.