Microsoft'un şöyle bir çözüm önerisi mevcut: Yöntem 1: Bir çalışma sayfası formülü kullanma İki farklı sütundaki verileri karşılaştırmak üzere bir çalışma sayfası formülü kullanmak için şu adımları izleyin: Excel'i başlatın. Yeni bir çalışma sayfasına aşağıdaki verileri girin : A1: 1 B1: C1: 3 A2: 2 B2: C2: 5 A3: 3 B3: C3: 8 A4: 4 B4: C4: 2 A5: 5 B5: C5: 0 B1 hücresine aşağıdaki formülü yazın: Kod:Panoya kopyala =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"", A1) B1:B5 aralığındaki hücreleri seçin. Microsoft Office Excel 2003 ve önceki Excel sürümlerinde, Düzen menüsünde Doldur'un üzerine gelin ve Aşağı'yı tıklatın. Microsoft Office Excel 2007'de, Düzenleme grubunda Doldur'u ve ardından Aşağı'yı tıklatın. Yinelenen sayılar, aşağıdaki örnekte gösterildiği gibi B sütununda görüntülenir: A1: 1 B1: C1: 3 A2: 2 B2: 2 C2: 5 A3: 3 B3: 3 C3: 8 A4: 4 B4: C4: 2 A5: 5 B5: 5 C5: 0 Yöntem 2: Bir Visual Basic makrosu kullanma Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. İki farklı sütundaki verileri karşılaştırmak üzere bir Visual Basic makrosu kullanmak için, aşağıdaki örnekte yer alan adımları kullanın: Excel'i başlatın. Visual Basic Düzenleyicisi'ni başlatmak için ALT+F11 tuşlarına basın. Ekle menüsünde Modül'ü tıklatın. Modül sayfasına aşağıdaki kodu girin: Kod:Panoya kopyala Sub Find_Matches Dim CompareRange As Variant, x As Variant, y As Variant ' CompareRange değeri, seçimi karşılaştıracağınız aralığa ' eşit olacak şekilde ayarlayın. Set CompareRange = Range("C1:C5") ' NOT: Karşılaştırma aralığı başka bir çalışma kitabında veya ' çalışma sayfasında yer alıyorsa aşağıdaki sözdizimini kullanın. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2"). Range("C1:C5") ' ' Seçimdeki her hücreye tek tek gidin ve CompareRange ' aralığındaki her hücreyle karşılaştırın. For Each x In Selection For Each y In CompareRange If x = y Then x. Offset(0, 1) = x Next y Next x End Sub ALT+F11 tuşlarına basarak Excel'e dönün. Aşağıdaki verileri girin : A1: 1 B1: C1: 3 A2: 2 B2: C2: 5 A3: 3 B3: C3: 8 A4: 4 B4: C4: 2 A5: 5 B5: C5: 0 A1:A5 aralığını seçin. Excel 2003 ve önceki Excel sürümlerinde, Araçlar menüsünde Makro'nun üzerine gelin ve Makrolar'ı tıklatın. Excel 2007'de, Geliştirici sekmesini ve sonra da Kod grubunda Makro'yu tıklatın. Find_Matches makrosunu, ardından Çalıştır'ı tıklatın. Yinelenen sayılar B sütununda görüntülenir. Eşleşen sayılar aşağıda gösterildiği gibi ilk sütunun yanında gösterilir: A1: 1 B1: C1: 3 A2: 2 B2: 2 C2: 5 A3: 3 B3: 3 C3: 8 A4: 4 B4: C4: 2 A5: 5 B5: 5 C5: 0 Alternatif olarak: Koşullu Biçimlendirme Kullanılabilir Sütun A'yı seçin. Koşullu Biçimlendirme > Yeni Kural... > Biçimlendirilecek hücreleri belirlemek için formül kullan > Aşağıdaki formülü girin: Kod:Panoya kopyala =countif($B:$B, $A1) Biçimlendir butonuna tıklayın ve yazı tipi rengini istediğiniz bir renkle değiştirin. Aynı işlemi B kolnu için de tekrarlayın. Tabi bu defa aşaığdaki formülü kullanıp farklı bir renk kullanın: Kod:Panoya kopyala =countif($A:$A, $B1)

Teşekkürler hocam deneyeceğim

İyi günler. Elimde 4000 kişilik 2 tane excel dosyası var. Ben bu dosyalardaki kişileri karşılaştırıp aynı olanları boyanmasını istiyorum. Bu konuda yardım edebilirseniz sevinirim. Not: Üç tane sütun karşılaştırılacak.

Bu kadar uğraşmak yerine 3 sutunu alt alta ekle, yinelenenleri biçimlendir de, istediğin biçimi gir en hızlısı olur sanırım.