56 koşullu biçimlendirme

[Dadalo]

arkadaşlar,ekli proğramda I ve J sütunlarında 56 koşullu biçimlendirme yapamıyorum.Yardımcı olurmusunuz?

​

 

[Korhan Ayhan]

Selamlar,

Biçimlendirme ne zaman ve neye göre yapılacak?

 

[Dadalo]

Günaydın

Sayın Korhan AYHAN,
giden_evrak isimli klasörün içerisinde word belgeleri var.Her word belgesini giden_evrak isimli klasöre kaydedip İNDEX'te dosya listesini yenile dediğimde bu word belgesi İNDEX'in sütunlarına yerleşiyor.İNDEX'in I sütununda İL İsimleri,J sütununda ise İLÇE isimleri var.Word belgesi kaydedilip indexte yerini aldığında bu il ve ilçe isimleri de yerlerini alıyorlar.İşte İNDEX te yerlerini aldığında bu İL ve İLÇE isimleri renklensinler istiyorum.İyi çalışmalar..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz. F ve L sütunları arasında bir hücreyi tıkladığınızda renklendirme gerçekleşecektir. Kod içindeki il isimlerini ve renk kodlarını çoğaltarak dilediğiniz gibi kullanabilirsiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Hücre As Range, Veri As String
    If Intersect(Target, Range("F2:L65536")) Is Nothing Then Exit Sub
    
    On Error GoTo Son
    
    Range("I3:J65536").Interior.ColorIndex = xlNone
    
    For Each Hücre In Range("I2:I" & WorksheetFunction.Max(Range("F:F")) + 2)
        Veri = UCase(Replace(Replace(Hücre.Value, "ı", "I"), "i", "İ"))
        Select Case Veri
            Case Is = "KONYA"
                Range("I" & Hücre.Row & ":J" & Hücre.Row).Interior.ColorIndex = 3
            Case Is = "KAYSERİ"
                Range("I" & Hücre.Row & ":J" & Hücre.Row).Interior.ColorIndex = 4
            Case Is = "NEVŞEHİR"
                Range("I" & Hücre.Row & ":J" & Hücre.Row).Interior.ColorIndex = 5
            Case Is = "K.MARAŞ"
                Range("I" & Hücre.Row & ":J" & Hücre.Row).Interior.ColorIndex = 6
            Case Else
                Range("I" & Hücre.Row & ":J" & Hücre.Row).Interior.ColorIndex = xlNone
        End Select
    Next
    
Son:
End Sub

 

[Dadalo]

Merhaba

Sayın Korhan AYHAN,
Güzel olmuş,teşekkürler.Yalnız iki sorun var.İl sayısı 4-5 tane ilçe sayısı ise 45 tane.I sütunu ile J sütunu aynı rengi alıyor.Yani örneğin KONYA ve KULU aynı rengi alıyor.Oysa iki sütun birbirinden bağımsız olmalı.İkincisi,ancak hücrenin üzerine gelip tıklayınca renklenme oluyor.Doğrudan hücreye renkli yazdırılamaz mı?İyi çalışmalar...