Skip to main content

AccessTr.neT


Koşullu Biçimlendirme

Koşullu Biçimlendirme

#13
(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.

[Resim: eeee364b2e7b887bf4ae.gif]
Cevapla
#14
(05/10/2020, 21:59)feraz yazdı: Eğer d,ğer sayfada bulunuyorsa ve B,C.....gibi sütunlardaki veriler aynı değilse renkleniyor.
aynen öyle Img-grin
Cevapla
#15
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
.rar K. BİÇİMLENDİRME.rar (Dosya Boyutu: 333,93 KB | İndirme Sayısı: 8)
Cevapla
#16
Emeğinize sağlık.
Cevapla
#17
Hocam
Asıl dosyaya ekleyince fotoğraftaki hatayı aldım.
[img][Resim: do.php?img=10500][/img]
[img][Resim: do.php?img=10501][/img]
Cevapla
#18
Normalde çalışması gerekiyordu.
Hata oluncada atlaması gerekiyordu diper döngüye.

Sayfa adları aynımı koddakilerle?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da