satır boyamada hata

[tasa1717]

Arkadaslar

Acil yardıma ihtiyacım var bende yazmıs oldugum karsılastırmada satır boyama yapıyor fakat veri aktarma yaparken en baştaki satırda bulunamayan veri diger sayfaya aktarma yapıyor benim yapmak istediğim şey aslında a sutununda bulunan ile b sutunda bulunan verileri karşılaştıracak ve a ve b sutunundaki bulmadıkları verileride 2 sayfaya aktaracak acilen yardımlarınızı bekliyorum
Sub kod_bir1()
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A2:B65000").ClearContents
aa = [A65536].End(3).Row
bb = [B65536].End(3).Row
Range("b1:B" & bb).Interior.Color = xlNone
For i = 1 To aa
For a = 1 To bb
If Cells(i, 1) = Cells(a, 2) Then
Cells(a, 2).Interior.Color = 65535
If Cells(i, 1) = Cells(a, 2) Then
Cells(i, 1).Interior.Color = 65535
Else
End If
End If
Next a
Next i
For c = 1 To bb
If Cells(c, 2).Interior.Color <> 65535 Then
s = s + 1
Sheets("Sayfa2").Range("b" & s + 1) = Sheets("Sayfa1").Range("b" & c).Value
Sheets("Sayfa2").Range("a" & s + 1) = Sheets("Sayfa1").Range("a" & c).Value
Application.CutCopyMode = False
End If
Next c
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub
rograma ihtiyacım var bendeki olan veri gönderiyorum

 

[Milady Meriç]

Dostum Selam;

Kodunu çalıştırıp denedim, Sonuca göre:

Hem A hemde B sütununda bulunan verileri sarıya boyuyor. Daha sonra A sütunundaki verilerden hem A hem B sütununda bulunanları ikinci sayafaya gönderiyor. sonrada, B sütunundaki verilerden, A sütununda olmayanları ikinci sayfaya gönderiyor.

Doğrumuyum? Senin istediğin tam olarak nedir peki?

 

[tasa1717]

Selam benim yaptığım da 1 sutuna rakam yazdıgında diger sayfaya atmadığı için yazdım sizde birinci sutuna rakam verip 2 sutuna o rakamı yazmadıgınız zaman 2 sayfaya atmadıgını göreceksiniz onun için yardım istemistim

 

[tasa1717]

dostum yardımlarını bekliyorum