2 Cariyi Karşılaştırma

[ANTALYA 01]

Merhabalar

Ekteki Çalışmada Cari1 Cari2 Sayfalarındaki A B D E Sütunlarındaki Değerler aynı ise SARI Renge Farklı ise Kırmızı Renge boyanmasını sağlayacak Makroya ihtiyacım bulunmaktadır.Tşk.

 

[Ömer]

Merhaba,

Koşullu biçimlendirme ile yapabilirsiniz..

Önce Ekle / Ad / Tanımlamadan aşağıdaki gibi aralıkları tanımlayınız..

aralık1 =Cari1!$A$2:$A$200
aralık2 =Cari1!$B$2:$B$200
aralık3 =Cari1!$D$2:$D$200
aralık4 =Cari1!$E$2:$E$200

Daha sonra A2:F186 aralığını seçerek Koşullu biçimlendirmeye,

=VE($A2<>"";TOPLA.ÇARPIM((aralık1=$A2)*(aralık2=--$B2)*(aralık3=$E2)*(aralık4=$D2)))

Formülünü yazarak biçimden sarı rengi seçiniz..

Daha sonra A2:F186 aralığının hücre rengini kırmızı olarak değiştiriniz..

.

 

[mekist]

Merhaba,

Koşullu biçimlendirme ile yapabilirsiniz..

Önce Ekle / Ad / Tanımlamadan aşağıdaki gibi aralıkları tanımlayınız..

aralık1 =Cari1!$A$2:$A$200
aralık2 =Cari1!$B$2:$B$200
aralık3 =Cari1!$D$2:$D$200
aralık4 =Cari1!$E$2:$E$200

Daha sonra A2:F186 aralığını seçerek Koşullu biçimlendirmeye,

=VE($A2<>"";TOPLA.ÇARPIM((aralık1=$A2)*(aralık2=--$B2)*(aralık3=$E2)*(aralık4=$D2)))

Formülünü yazarak biçimden sarı rengi seçiniz..

Daha sonra A2:F186 aralığının hücre rengini kırmızı olarak değiştiriniz..

.

Teşekkür ederim.Emeğine sağlık çok güzel bir çalışma,

A sütunun eşleştirmese sadece B-D-E sütunu eşleştirerek yapmak istersek sadece A'nın olduğu formül içerisindeki yeri silmemiz yeterlimidir.YOksa düzeltmemmi yapmamız gerekir.

 

[Ömer]

Teşekkür ederim.Emeğine sağlık çok güzel bir çalışma,

A sütunun eşleştirmese sadece B-D-E sütunu eşleştirerek yapmak istersek sadece A'nın olduğu formül içerisindeki yeri silmemiz yeterlimidir.YOksa düzeltmemmi yapmamız gerekir.

Evet yeterli olacaktır..

=TOPLA.ÇARPIM((aralık2=--$B2)*(aralık3=$E2)*(aralık4=$D2))

.

 

[ANTALYA 01]

K

Merhabalar
Teşekkür ederim.Rica etsem örnekte yapabilirmiyiz formülü çok denedim olmuyor bir yerde hata yapıyorum bulamadım.

 

[Ömer]

Merhabalar
Teşekkür ederim.Rica etsem örnekte yapabilirmiyiz formülü çok denedim olmuyor bir yerde hata yapıyorum bulamadım.

Eki inceleyiniz..

.

 

[mekist]

Merhaba espiyonajl,

Kırmızı olabilmesi için siz verilerin olduğu sayfayı kırmızı renge ilk baştan boyama yapıyorsunuz.
Koşullullu biçimlendirme ilede eşleşenler sarı renge boyanıyor.
Eşleşmeyenler kırmızıya boyanmış gibi oluyor.
Koşullu biçimlendirme ile kırmızıya boyanmıyor anladığım kadarıyla böyle oluyor doğrumudur?

 

[ANTALYA 01]

Y

Teşekkür ederim.

 

[Ömer]

Merhaba espiyonajl,

Kırmızı olabilmesi için siz verilerin olduğu sayfayı kırmızı renge ilk baştan boyama yapıyorsunuz.
Koşullullu biçimlendirme ilede eşleşenler sarı renge boyanıyor.
Eşleşmeyenler kırmızıya boyanmış gibi oluyor.
Koşullu biçimlendirme ile kırmızıya boyanmıyor anladığım kadarıyla böyle oluyor doğrumudur?

Evet bu şekilde yapılmıştır. Sütundaki veriler doğru yanlış ( olduğu yada olmadığı ) şeklinde olduğu için bu şekilde yapmak daha pratiktir.Üstelik iki ayrı koşul yazarak dosya boyutunu büyütmemiş oluruz..

.

 

[konas06]

Teşekkür ederim.Emeğine sağlık çok güzel bir çalışma,

A sütunun eşleştirmese sadece B-D-E sütunu eşleştirerek yapmak istersek sadece A'nın olduğu formül içerisindeki yeri silmemiz yeterlimidir.YOksa düzeltmemmi yapmamız gerekir.

Ömer Hocam iyi akşamlar, ekteki dosyayı indirdim ve söylediklerinizi aynen yaptım sonra dosyayı masaüstüne kaydittim kapattım. tekrar açıp makroları etkinleştirdim. ancak koşullu biçimlendirme işlemini yapamadım.

Sonra sizin eklediğiniz dosyayı inceledim. Ad Yönetici ekranında sizin tanımladığınız adların değer sütünu dolu iken benim tanımladığım dosyada değer sütunu boş.
Bunun sebebi ne olabilir sizce.

Ve son olarak Ofice 2007 kullanıyorum.
Saygılarımla

 

[Ömer]

Merhaba,

Sorunuzu tam olarak anlayamadım. Konuyla ilgili formülleri kendi dosyanıza uyarlayamadıysanız sorunuzla ilgili küçük bir örnek hazırlayarak gerekli açıklamayla birlikte dosya eklerseniz daha net cevaplar alırsınız. Dosyanızı 2003 formatında eklemeye özen gösteriniz.

.

 

[halit3]

alternatif kod

Sub bulkarşılaştır()
Worksheets("Cari1").Columns("A:F").Interior.ColorIndex = xlNone
Worksheets("Cari2").Columns("A:F").Interior.ColorIndex = xlNone
For r = 2 To Worksheets("Cari1").[a65536].End(3).Row
aranan1 = Sheets("Cari1").Cells(r, "A").Value & Sheets("Cari1").Cells(r, "B").Value & Sheets("Cari1").Cells(r, "E").Value
aranan2 = Sheets("Cari1").Cells(r, "A").Value & Sheets("Cari1").Cells(r, "B").Value & Sheets("Cari1").Cells(r, "D").Value
For i = 2 To Worksheets("Cari2").[a65536].End(3).Row
aranan3 = Sheets("Cari2").Cells(i, "A").Value & Sheets("Cari2").Cells(i, "B").Value & Sheets("Cari2").Cells(i, "D").Value
aranan4 = Sheets("Cari2").Cells(i, "A").Value & Sheets("Cari2").Cells(i, "B").Value & Sheets("Cari2").Cells(i, "E").Value
If aranan1 = aranan3 Then
Sheets("Cari2").Cells(i, "A").Interior.ColorIndex = 6
Sheets("Cari2").Cells(i, "B").Interior.ColorIndex = 6
Sheets("Cari2").Cells(i, "D").Interior.ColorIndex = 6
Sheets("Cari1").Cells(r, "A").Interior.ColorIndex = 8
Sheets("Cari1").Cells(r, "B").Interior.ColorIndex = 8
Sheets("Cari1").Cells(r, "E").Interior.ColorIndex = 8
End If
If aranan2 = aranan4 Then
Sheets("Cari2").Cells(i, "A").Interior.ColorIndex = 8
Sheets("Cari2").Cells(i, "B").Interior.ColorIndex = 8
Sheets("Cari2").Cells(i, "E").Interior.ColorIndex = 8
Sheets("Cari1").Cells(r, "A").Interior.ColorIndex = 6
Sheets("Cari1").Cells(r, "B").Interior.ColorIndex = 6
Sheets("Cari1").Cells(r, "D").Interior.ColorIndex = 6
End If
Next i
Next r
MsgBox " Düzenleme Tamanlanmıştır..."
End Sub

 

[konas06]

Merhaba,

Sorunuzu tam olarak anlayamadım. Konuyla ilgili formülleri kendi dosyanıza uyarlayamadıysanız sorunuzla ilgili küçük bir örnek hazırlayarak gerekli açıklamayla birlikte dosya eklerseniz daha net cevaplar alırsınız. Dosyanızı 2003 formatında eklemeye özen gösteriniz.

.

İlk dosya yani soru sorulan dosya üzerinde sizin verdiğiniz kodları ad tanımlama tablosuna girdim. Sonra biçimli koşullandırmaya verdiğiniz formülü girdiğim halde tabloda hiç bir değişiklik olmadı.

Hatta şöyle yapayım ilk dosya üzerinden size yaptığım değişikliklerin olduğu dosyayı tekrar yüklüyorum.
Acaba müsait olduğunuzda bir bakar mısınız
Nerede yanlış yapıyorum.

 

[Ömer]

Merhaba,

Ad tanımlamardaki aralıkların başında ve sonunda olan " tırnak işaretleri silerek deneyin.

="Cari1!$A$2:$A$200"

bu şekilde değil,

=Cari1!$A$2:$A$200

bu şekilde olması gerekir. Bu şekilde hepsini düzeltiniz.

.