sayfa1 ve sayfa 2'de aynı olanlar sayfa 3'e gelsin.

[burhanşahin]

Arkadaşlar kolay gelsin,belki örneği vardır ama,bulamadım yada ben yapamadım.Örnekte görüleceği üzere Sayfa1 ve sayfa 2'de aynı olanlar sayfa 3'e gelebilirmi?..Teşekkür ederim

 

[excel03]

merhaba;

Sub karşılaştır()
Dim alan1, alan2 As Range
Set alan1 = Worksheets(1).Range("b2:b16")
Set alan2 = Worksheets(2).Range("b2:b16")
For i = 1 To alan1.Cells.Count
x = Worksheets(3).Cells(65536, "A").End(3).Row
If alan1.Cells(i).Value = alan2.Cells(i).Value Then
Range(alan1.Cells(i), alan1.Cells(i).Offset(0, 4)).Copy Worksheets(3).Range("a" & x + 1)
End If
Next
End Sub

 

[burhanşahin]

sayfa karşılaştır

çooook teşekkür ederim

 

[burhanşahin]

sayfa karşılaştır

ilginiz için teşekkür ederim,yalnız sayfa 1 ve sayfa 2 de ki bilgiler 1000 hatta 1500 satıra kadar çıkabiliyor,Teşekkür ederim.

 

[burhanşahin]

sayfa karşılaştır

hallettim teşekkür ederim.

 

[unur]

Bunun tam tersi olabilirmi? Sayfa1 ve sayfa2 de aynı olmayanları Sayfa3'e aktarabilirmi?

Teşekkürler.

 

[unur]

güncel....

 

[burhanşahin]

sayfa karşılaştır

Değerli bir hocamızın çalışması olan mükerrer kayıt örnekleri dosyası ektedir.

 

[webuyeislemleri]

http://www.excel.web.tr/f48/makro-ile-veri-kopyalama-t122356/sayfa3.html#post698741