Farklı Sayfalarda Sütun Eşitleme

[PixelMania]

Merhabalar ;

Excel'de yapamadığım bir problemim var.

Bir Çalışma kitabında 1. Sekmedeki B Sütunu ile 2. Sekmedeki B sütunu içindeki verileri karşılaştırıp aynı olan hücreleri belli bir renke boyamasını istiyorum.

bu şekilde bir çalışma hazırlanabilirmi ?

 

[asi_kral]

Merhaba
Dosyanızı eklerseniz yardımcı olabilirim.

 

[Murat OSMA]

Şu kodları dosyanızda deneyiniz;

■ 1.Alternatif

Sub Emre()
    Dim evn As Range
    Dim i As Integer
    For Each evn In Sayfa1.Range("B2").CurrentRegion.Rows
        For i = 2 To Sayfa2.Range("B65536").End(3).Row
            If evn.Value = Sayfa2.Cells(i, 2) Then
                evn.Interior.ColorIndex = 3
            End If
        Next i
    Next evn
    i = Empty: Set evn = Nothing
End Sub

■ 2.Alternatif

Sub Emre()
    Dim i As Integer
    Dim a As Range
    For i = Sayfa2.Range("B65536").End(3).Row To 2 Step -1
    Set a = Sayfa1.Columns(2).Find(Sayfa2.Cells(i, 2), , , xlWhole)
        If Not a Is Nothing Then
            Sayfa2.Cells(i, 2).Interior.ColorIndex = 3
        End If
    Next i
    i = Empty: Set a = Nothing
End Sub

■ 3.Alternatif

Sub Emre()
    Dim i As Integer
    Dim a As Range
    Dim evn As Variant
    For i = Sayfa2.Range("B65536").End(3).Row To 2 Step -1
    Set a = Sayfa1.Columns(2).Find(Sayfa2.Cells(i, 2), , , xlWhole)
        If Not a Is Nothing Then
            evn = a.Address
            Do
                Set a = Sayfa1.Columns(2).FindNext(a)
                Sayfa2.Select
                Sayfa2.Cells(i, 2).Interior.ColorIndex = 3
            Loop Until evn = a.Address
        End If
    Next i
    evn = Empty: i = Empty: Set a = Nothing
End Sub

 

[PixelMania]

Örnek olarak bir dosya upload ettim. ilgilenirseniz sevinirim

 

[asi_kral]

Örnek olarak bir dosya upload ettim. ilgilenirseniz sevinirim

Merhaba
Öncelikle 2 tane ad tanımlaması yapacağız.
1. Ad tanımlamanın adı sayfa1 başvuru yeri :

=Sayfa1!$B:$B

2. Ad tanımlamanın adı sayfa2 başvuru yeri :

=Sayfa2!$B:$B

1. Sayfanın B sütunu seçin - Koşullu Biçimlendirme - Yeni Kural - Biçimlendirilecek Hücreleri belirlemek için Formül Kullan kutuçuğuna

=EĞERSAY(Sayfa2;$B1)>0

Bunu yazın dolgudan renk ayarlayın.
2. Sayfanın B sütunu seçin - Koşullu Biçimlendirme - Yeni Kural - Biçimlendirilecek Hücreleri belirlemek için Formül Kullan kutuçuğuna

=EĞERSAY(Sayfa1;$B1)>0

Bunu yazın dolgudan renk ayarlayın.
Dosyanız Ekte.

 

[PixelMania]

Peki 3. Sayfada B Sütununda bulunanları 1. Sayfada karşılaştırıp aynı olanları sarı gibi 2. bir renk ile dolgulama şansı varmı ?

 

[asi_kral]

Peki 3. Sayfada B Sütununda bulunanları 1. Sayfada karşılaştırıp aynı olanları sarı gibi 2. bir renk ile dolgulama şansı varmı ?

Taksit taksit soru mu sorulur arkadaş_?
3. Sayfaya bir ad tanımla sonra koşullu biçimlendirmeye yazdığım gibi formülü yaz dolgu rengini ayarla olur.

 

[PixelMania]

Başaramadım. Yardımcı olurmusun?

 

[asi_kral]

Başaramadım. Yardımcı olurmusun?

İnceleyin lütfen.