Skip to main content

AccessTr.neT


Koşullu Biçimlendirme

Koşullu Biçimlendirme

#7
Dosyanızda Koşullu biçimlendirilmiş hücre göremedim. Hangi sütun hangi koşula göre renklenecek.
Cevapla
#8
(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.

[Resim: do.php?img=10499]
Cevapla
#9
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
Cevapla
#10
Hocam modül olarak ekledim ama olmadı. ben mi yapamadım acaba
Cevapla
#11
Dosyayı ekledim.
70 bin satır ve 20 sütunda nasıl çalışır bilemem belki 1 dakika sürebilir.
.rar K. BİÇİMLENDİRME.rar (Dosya Boyutu: 333,1 KB | İndirme Sayısı: 2)
Cevapla
#12
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task