verileri eşitleme

[echobrain]

arkadaşlar yine bir konuda yardımınıza ihtiyacım var.
sayfa 1 ve sayfa 2 deki verileri karşılatırıp sayfa 3 aynı olanları sayfa 4 de eşit olmayanları yazdırmak istiyorum boyle birşey yapabilmemiz mumkun mu ??
ornegi ekte gonderiyorum.yardımlarınız için şimdiden teşekkuer ederiyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S1, S2, S3, S4 As Worksheet
Dim SUT1, S, SS As Integer
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
Set S3 = Sheets("Sayfa3")
Set S4 = Sheets("Sayfa4")
S3.[A1:B500].Clear
S4.[A1:B500].Clear
For SUT1 = 1 To Cells(65536, "A").End(3).Row
If S1.Cells(SUT1, "A") = S2.Cells(SUT1, "A") Then
S = S + 1
Range(S1.Cells(SUT1, "A"), S1.Cells(SUT1, "B")).Copy Range(S3.Cells(S, "A"), S3.Cells(S, "B"))
End If
Next
For SUT1 = 1 To Cells(65536, "A").End(3).Row
If S1.Cells(SUT1, "A") <> S2.Cells(SUT1, "A") Then
SS = SS + 1
Range(S1.Cells(SUT1, "A"), S1.Cells(SUT1, "B")).Copy Range(S4.Cells(SS, "A"), S4.Cells(SS, "B"))
End If
Next
End Sub

 

[echobrain]

yardımın için çok teşekkur ederim ama benim bir sorum daha olcak mesela farklı satırlarda aynı yazan verileri yapabilirmiyiz olma sansı var mı ??