Şehire göre koşullu biçimlendirme

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın G sütununda şehirler mevcut, H sütununda da giriş çıkış mevcut.

Yapmak istediğim şehire ve giriş çıkışa göre koşullu biçimlendirme yapmak istiyorum.
TEKMİ,ÇİFTMİ formülü ile yapmaya çalıştım olmadı.

Yardımcı olur musunuz?

 

[ÖmerFaruk]

A-H sütunlarını komple seç / Tüm Dolgu renklerini silin / Koşullu biçimlendirme
Yeni Kural

 

[ASLAN7410]

Sayın NextLevel ilginiz için çok teşekkür ediyorum.

Dediğiniz gibi yapınca, 11.satıra kadar olan ankara ve istanbul olan satırlarıda aynı renk yaptı.

 

[ÖmerFaruk]

"Yapmak istediğim şehire ve giriş çıkışa göre koşullu biçimlendirme yapmak istiyorum."
Siz GİRİŞLERİ sarı, ÇIKIŞLARI turuncu yapmak istemiyor musunuz?

 

[ASLAN7410]

Evet giriş ve çıkışları renklendirmek istiyorum, ama aynı il olanları ve karşısındaki giriş çıkışa göre yukarıdaki resmim gibi renklendirmek istiyorum.

Ankara Giriş ile İstanbul Giriş aynı renk oluyor sizin dediğiniz gibi yapınca.

Örnek dosyamda belirtmiştim.

 

[ÖmerFaruk]

Makroyla yapabildim. İşinize yarıyorsa bir modül içine kopyalayıp istediğiniz şekilde tetikleyebilirsiniz.

Sub KoşulluMakrosu()
X1 = 0
X2 = 0
For k = 2 To 24
    If k = 2 Then
        X1 = Range("G2")
        X2 = Range("H2")
        renk = 1
        GoTo Devam
    End If
    If Range("G" & k) <> X1 Or Range("H" & k) <> X2 Then
        X1 = Range("G" & k)
        X2 = Range("H" & k)
        If renk = 1 Then
            renk = 2
        Else
            renk = 1
        End If
    End If
Devam:
    If renk = 1 Then
        Range("A" & k, "H" & k).Interior.Color = vbYellow
    Else
        Range("A" & k, "H" & k).Interior.Color = vbMagenta
    End If
Next k
End Sub

 

[ASLAN7410]

Sayın NextLevel, ellerinize sağlık çok güzel olmuş işimi görür, aşağıdaki kod satırını 10000' çıkarınca, 24 ten sonrasını sarıya boyuyor.
Bu kısımda Eğer G2 boşsa boyamasa olur mu?

Ayrıca renklerin arasına boş satırda ekleyebilir misiniz?

For k = 2 To 24

 

[ÖmerFaruk]

Sub KoşulluMakrosu()
X1 = 0
X2 = 0
Son = Range("A2").End(xlDown).Row
k = 2
Do
    If k = 2 Then
        X1 = Range("G2")
        X2 = Range("H2")
        renk = 1
        GoTo Devam
    End If
    If Range("G" & k) <> X1 Or Range("H" & k) <> X2 Then
        X1 = Range("G" & k)
        X2 = Range("H" & k)
        Rows(k).Insert Shift:=xlDown
        Rows(k).Interior.Color = xlNone
        k = k + 1
        Son = Son + 1
        If renk = 1 Then
            renk = 2
        Else
            renk = 1
        End If
    End If
Devam:
    If renk = 1 Then
        Range("A" & k, "H" & k).Interior.Color = vbYellow
    Else
        Range("A" & k, "H" & k).Interior.Color = vbMagenta
    End If
    k = k + 1
Loop Until k = Son + 1
End Sub

 

[ASLAN7410]

Sayın NextLevel, tam istediğim gibi oldu, çok teşekkür ediyorum ellerinize sağlık.

HAyırlı akşamlar.

 

[Korhan Ayhan]

Alternatif olarak bir yardımcı sütun kullanmak isterseniz koşullu biçimlendirme ile de yapılabilir.

 

[ASLAN7410]

Sayın Korhan Bey, olur yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

I2 hücresine uygulayıp alt hücrelere sürükleyiniz.

=EĞER(ÇOKEĞERSAY($G$2:G2;G2;$H$2:H2;H2)=1;MAK($I$1:I1)+1;I1)

Sonra ilgili hücreleri seçip resimde ki gibi koşullu biçimlendirme uygulayın.

 

[ASLAN7410]

Sayın Korhan Bey, bu da çok güzel oldu çok teşekkür ediyorum ellerinize sağlık.

Hayırlı akşamlar.

 

[ASLAN7410]

Sayın Korhan Bey, formülleri ve koşullu biçimlendirmeyi kendi orijinal dosyamda denedim, veriler farklı olmasına rağmen I sütununda rakamlar aynı veriyor.

 

[Korhan Ayhan]

Önerimin çalışması için verilerinizin ŞEHİR ve GİRİŞ-ÇIKIŞ sütunlarına göre sıralı olması gerekir.