İki sütunu karşılaştır aynı olan verileri renklendir

[Bora K]

Selam. Ben E sütunundaki kelileri C sütununda varım diye kontrol etmek istiyorum. E sütunundaki kelimenin tıpkısının aynısı eğer C sütununda var ise her iki kelimede renklensin istiyorum. Bunu nasıl yaparım acaba yardım edebilirmisiniz. Kelimeler 2 satırdan sonra başlıyor aşağı doğru devam ediyor.

 

[Ömer]

Merhaba,

Koşullu biçimlendirme ile yapabilirsiniz.

Koşullu biçimlendirme (conditional formatting)

 

[Bora K]

Ben tekradan özür delirim.
http://www.excel.web.tr/f60/ko-ullu-bicimlendirme-conditional-formatting-t7558.html
buradaki 3. mesajdaki dosya benim bilgisayarda açılmıyor. İçine bakamadım.

 

[Ömer]

.rar yada .zip sıkıştırma programı yoksa internetten indirip o şekilde açmayı denermisiniz.

Eğer açıp içine giremiyorsanız Excel sürümünü destekleyen uyumluluk paketini yüklemeniz gerekir.

http://www.microsoft.com/tr-tr/download/details.aspx?id=3

.

 

[Bora K]

Şimdi ekledimwinzip i
Koşullu Biçimlendirme.xlsx böyle çıktı
Galiba 2010 neyin yapılımış. Neyse önemli değil.
Kusura bakmayın.

 

[Ömer]

Sorunuzla ilgili küçük bir örnek dosya ekleyip sorunuzu açıklarmısınız. Bu şekilde net çözümü size sunabilirim.

 

[Bora K]

Her iki sütunda da olanları yeşqil ile boyadım.
Sütunun birinde var diğerinde yok ise siyah renk olacak (eskisi neyse o renk olacak)

 

[Ömer]

C1:C50 aralığını fare ile seçin, ( aralığı genişletebilirsiniz.) alan seçiliyken / Biçim menüsünden / Koşullu biçimlendirmeye girin, açılan ekrandan koşul bölümünden "Formül" seçeneğini seçin ve formül bölümüne;

=EĞERSAY(E:E;C1)>0

Yazın ve "Biçim" bölümünden yazı tipi bölümündeki "renk" seçeneğinden istediğiniz rengi seçerek tamam ile işlemi bitirin.
----------------------------------------------------------------------------------

E1:E50 aralığını fare ile seçin, ( aralığı genişletebilirsiniz.) alan seçiliyken / Biçim menüsünden / Koşullu biçimlendirmeye girin, açılan ekrandan koşul bölümünden "Formül" seçeneğini seçin ve formül bölümüne;


=EĞERSAY(C:C;E1)>0


Yazın ve "Biçim" bölümünden yazı tipi bölümündeki "renk" seçeneğinden istediğiniz rengi seçerek tamam ile işlemi bitirin.

 

[Bora K]

Gösterdiğiniz ilgi için teşekkür ederim. Saolasın.
Yannız şöyle bir durum var. Sayfada sil makrosu çalıştırıyorum
bahsettiğniiz şekilde sorun çıkartacak. Makro kodu yazılabilirmi aynı
vaziyette? Olrusa güzel olur. Saolasınız

 

[Ömer]

Bu şekilde deneyin.

Sub BulRenklendir()
 
    Dim c As Range, Adr As Variant, sut As Byte, hucre As Range
     
    Application.ScreenUpdating = False
 
    With Range("C:C,E:E")
        .Font.ColorIndex = 0
        For Each hucre In .SpecialCells(xlCellTypeConstants, 23)
            sut = 3
            If hucre.Column = 3 Then sut = 5
            If WorksheetFunction.CountIf(Columns(sut), hucre) > 0 Then
                Set c = .Find(hucre, , xlValues, xlWhole)
                If Not c Is Nothing Then
                    Adr = c.Address
                    Do
                        hucre.Font.ColorIndex = 10
                    Set c = .FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            End If
        Next hucre
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[Bora K]

Ömer Bey bir kez daha teşekkür ederim.
Kod işlevini yapıyor. Elinize sağılk.

Ben bu kodu webde ve burada
"İki sütunu karşılaştır aynı olan verileri renklendir" şeklinde aradım.
Lakin bulamadım. Başlığın ismi bu şekilde düzeltilir ise daha bir anlamlı
olur sanırım. Hoşçakalın.

 

[Ömer]

Rica ederim, iyi çalışmalar.
Başlığı değiştirdim. Güle güle kullanın.