sayfa 1 ile sayfa2 yi karşılaşturma farklı olanı sayfa 3 e atma

[ahmetihsanunler]

sayfa1 ve sayfa2 de verilerim var.iki sayfayı karşılaştırmak ve sayfa1 de farklı olanı sayfa3 e atmak istiyorum.yardım edebilirseniz çok sevinirim..

 

[N.Ziya Hiçdurmaz]

yanıt

Sub farklilar()
Dim sat As Integer
Dim s As Integer
[a2:b1000].Clear
s = 2
    For sat = 2 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Sayfa1.Range("a2:a" & sat), Sayfa2.Cells(sat, "a")) <> 1 Then
            Cells(s, "a") = Sayfa1.Cells(sat, "a").Value
            Cells(s, "b") = Sayfa1.Cells(sat, "b").Value
            s = s + 1
        End If
    Next
End Sub

 

[ahmetihsanunler]

teşekkürler.çok sağolun üstad

 

[ahmetihsanunler]

hocam, sütun olarak değerlendirsin istiyorum.satır satır yapıyor şuan.bende sütunlarda 40000 e yakın değer var.

 

[ahmetihsanunler]

yardım edebilecek olan varsa sevinirim..

 

[ahmetihsanunler]

yardım edebilecek olan varsa sevinirim..

 

[ahmetihsanunler]

Sub farklilar()
Dim sat As Integer
Dim s As Integer
[a2:b1000].Clear
s = 2
    For sat = 2 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Sayfa1.Range("a2:a" & sat), Sayfa2.Cells(sat, "a")) <> 1 Then
            Cells(s, "a") = Sayfa1.Cells(sat, "a").Value
            Cells(s, "b") = Sayfa1.Cells(sat, "b").Value
            s = s + 1
        End If
    Next
End Sub

bu formül sütun sütun çalışmasını istiyorum..