Farklı Olanları İşaretlemek

[altanson]

Arkadaşlar iki farklı sütunda listem var. Listeler çok uzun ve bu iki listede farklı olanları karşılaştırmak istiyorum. Forumdaki benzer konulara baktım ama tam olarak yapmak istediğimi bulamadım. Örnek dosya ekte. Şimdiden Teşekkürler.

 

[Merhum İdris SERDAR]

A1 hücresinin Koşullu Biçimlendirme Formül bölümüne:
=COUNTIF($B$1:$B$1500;A1)=0

B1 hücresinin Koşullu biçimlendirme Formül bölümüne:
=COUNTIF($A$1:$A$1500;B1)=0

yazı. Bunları kopyalayıp,aşağıya doğru format olarak yapıştırın.

COUNTIF=EĞERSAY

.

 

[isakarakus]

Cevap ektedir.
(Şartlı biçimlendirme ile)

 

[altanson]

Teşekkürler, elinize sağlık.

 

[altanson]

Arkadaşlar bir sorum daha olacak.

Yukarıdaki gibi listemde farklı olanları koşullu biçimlendirme ile (örneğin) sarı renk ile işaretledim. Peki bu listede sarı olanları nasıl sayabilirim. Bir de 1000 verilik listede 50 tane olan sarı renkte hücre olsun. Bu hücreleri kopyalayıp başka bir yere nasıl yapıştırabilirim/ayıklayabilirim?

Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub RENKSAY()
Dim SUTA As Integer
[C1] = ""
For SUTA = 1 To Cells(65536, "A").End(3).Row
If Cells(SUTA, "A").Interior.ColorIndex = 6 Then
[C1] = [C1] + 1
End If
Next
End Sub

Sub RENKKOPYALA()
Dim SUTA, S As Integer
[G1:G100].Clear
For SUTA = 1 To Cells(65536, "A").End(3).Row
If Cells(SUTA, "A").Interior.ColorIndex = 6 Then
Cells(SUTA, "A").Copy
S = S + 1
Cells(S, "G").PasteSpecial xlValues
Application.CutCopyMode = False
End If
Next
End Sub

 

[altanson]

sn. V.Basic For Applications

Koşullu biçimlendirme ile renklendirilmiş hücrelerde de aynı işlemi yapıyor mu bu makro? Yoksa ben mi bir şeyi yanlış yaptım??