karşılaştırma makkro

[abdurrahim006]

merhaba arkadaşlar,iyi bayramlar
stajda bana odev verdiler
a sutunu 20 satırdan
b sutunuda 20 satırdan
a sutunu ile b sutununu karsılaştıracam
sutun arasındaki farkları bulup c1 e raporlayacam
a sutununda olup b sutununda olmayanı mesela mavi ile,b sutununda olup a sutununda olmayanı yesil ile gosterecem
lutfen yardım edebilirmisiniz makro kodu ile yazmam ıstendi yardımcı olursanız cok sevinirim

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Sayfanın sağ üst tarafında, isminizin hemen altındaki Özel Mesajlar bölümüne bakınız.
Daha evvel mesaj göndermiştim.
.

 

[abdurrahim006]

Sub LİSTELE()
Range("C:C").ClearContents: Range("C1:C20").Interior.Color = xlNone
For sütun = 1 To 3
For satır = 1 To 20
If Cells(satır, sütun) <> "" And _
WorksheetFunction.CountIf(Range("C1:C" & satır), Cells(satır, sütun)) > 0 Then GoTo 10
If [C1] = "" Then sat = 1
If [C1] <> "" Then sat = [C21].End(3).Row + 1
Cells(sat, 3) = Cells(satır, sütun)
If WorksheetFunction.CountIf(Range("A1:A20"), Cells(sat, 3)) > 0 And _
WorksheetFunction.CountIf(Range("B1:B20"), Cells(sat, 3)) = 0 Then
Cells(sat, 3).Interior.Color = vbBlue
ElseIf WorksheetFunction.CountIf(Range("B1:B20"), Cells(sat, 3)) > 0 And _
WorksheetFunction.CountIf(Range("A1:A20"), Cells(sat, 3)) = 0 Then
Cells(sat, 3).Interior.Color = vbGreen
Else
Cells(sat, 3).Interior.Color = xlNone
End If
10: Next
Next
End Sub

 

[Ömer BARAN]

Merhaba.

Hazırladığım belgeye buradan da ulaşabilirsiniz.
.

 

[abdurrahim006]

tesekkur ederim

 

[önder34]

Merhaba benimde benze bir dosyam var A sütununda olup B sütununda olmayanı C sütununda, B sütununda olup A sütununda Olmayanı D sütununda,hem A hem B sütununda olanları ise E sütununda nasıl gösterebiliriz.( Aynı dosya üzerinde olabilir)