Excel hücre eşleme

[asikartal05]

Merhaba arkadaşlar,

Forum sitesinde araştırdığım kadarıyla benim sorunuma care bulamadım.

Kısaca, örnek de belirttiğim gibi aynı içeriği taşıyan hücrelerin sağ tarafında bulunan değerleri eşleyip, aynı değere sahipse yeşil renk aynı değere sahip değilse kırmızı renk olacak bir arayış tayım.

Aynı işlemi aynı dosyada farklı sayfa da da olması tercihimdir.

Bu konuda bana yardımcı olacak arkadaşlara şimdiden teşekkürü borç bilirim.

http://s3.dosya.tc/server19/ExUuya/_RNEK.xls.html

 

[Emir Hüseyin Çoban]

. . .

Örnek bana pek anlaşılır gelmedi :dusun:

. . .

 

[Murat OSMA]

Hüseyin Bey'in müsadesiyle. . .


Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Hücre As Range, Aralık As Range
    For Each Hücre In Range("[COLOR="Red"]A1:A4[/COLOR]")
        For Each Aralık In Range("[COLOR="red"]C6:C9[/COLOR]")
            If Hücre.Value = Aralık.Value Then
                If Hücre.Offset(0, 1).Value = Aralık.Offset(0, 1).Value Then
                    Hücre.Resize(, 2).Interior.ColorIndex = 4
                    Aralık.Resize(, 2).Interior.ColorIndex = 4
                        Else
                    Hücre.Resize(, 2).Interior.ColorIndex = 3
                    Aralık.Resize(, 2).Interior.ColorIndex = 3
                End If
            End If
        Next Aralık
    Next Hücre
    Set Hücre = Nothing: Set Aralık = Nothing
End Sub[/FONT]

Dosyanızdaki hücre aralıklarını kodlarda kırmızı renk ile belirttim.
Siz orijinal dosyanızdaki dosya aralıklarına göre, kodlardaki bu kırmızı ile belirttiğim hücre aralıklarını değiştirirsiniz.


Kodları nasıl kullanacağınızı bilmiyorsanız bu yönergeleri takip edin;
• Sayfadayken Alt + F11 tuşlarına birlikte basın.
• Üst menülerden sırasıyla Insert ve Module'yi seçin.
• Kodları açılan boş beyaz sayfaya yapıştırın.
• F5 tuşuna basın.

 

[bzace]

Alternatif olarak;
E sütunu yardımcı sütundur.
Eşleşmeyi sağlamak için;

=EĞER(ESAYIYSA(KAÇINCI(A1&B1;İNDİS($C$6:$C$20&$D$6:$D$20;0);0));1;0)

Biçim ayarları için;

=$E6=0
[COLOR="Blue"]Eşleşme sağlamayanar için[/COLOR]
=$E6=1
[COLOR="blue"]Eşleşme sağlayanlar için[/COLOR]

Formülleri kullanılmıştır.
Dosya için; http://www.dosya.tc/server25/VwrGSm/_RNEK.xls.html

 

[asikartal05]

Hüseyin Bey'in müsadesiyle. . .


Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Hücre As Range, Aralık As Range
    For Each Hücre In Range("[COLOR="Red"]A1:A4[/COLOR]")
        For Each Aralık In Range("[COLOR="red"]C6:C9[/COLOR]")
            If Hücre.Value = Aralık.Value Then
                If Hücre.Offset(0, 1).Value = Aralık.Offset(0, 1).Value Then
                    Hücre.Resize(, 2).Interior.ColorIndex = 4
                    Aralık.Resize(, 2).Interior.ColorIndex = 4
                        Else
                    Hücre.Resize(, 2).Interior.ColorIndex = 3
                    Aralık.Resize(, 2).Interior.ColorIndex = 3
                End If
            End If
        Next Aralık
    Next Hücre
    Set Hücre = Nothing: Set Aralık = Nothing
End Sub[/FONT]

Dosyanızdaki hücre aralıklarını kodlarda kırmızı renk ile belirttim.
Siz orijinal dosyanızdaki dosya aralıklarına göre, kodlardaki bu kırmızı ile belirttiğim hücre aralıklarını değiştirirsiniz.


Kodları nasıl kullanacağınızı bilmiyorsanız bu yönergeleri takip edin;
• Sayfadayken Alt + F11 tuşlarına birlikte basın.
• Üst menülerden sırasıyla Insert ve Module'yi seçin.
• Kodları açılan boş beyaz sayfaya yapıştırın.
• F5 tuşuna basın.

teşekkür ederim