Sayfalar arası karşılaştırma yapmak.

[VahapZTL]

Merhaba arkadaşlar 2 sayfam var bu iki sayfa arasında aynı ID olmayanları diğer sayfaya atmam lazım id yi atarken yanındaki değeride atmam lazım bu konuda yardımcı olabilir misiniz?

 

[savas_145]

Ornek sayfa eklerseniz ilgilenen mutlaka olur

 

[VahapZTL]

Bu dosya üzerinde işlem yapmak istiyorum fakat bilgim hiç yok yardımcı olursanız sevinirim. http://s8.dosya.tc/server2/n9y2ty/Fazlalik.rar.html

 

[Ömer BARAN]

Merhaba.

Belgeyi açın, alt taraftan Sayfa3 adına fareyle tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan ekranda sağ taraftaki boş alana aşağıdaki kod'u yapıştırın ve F5 tuşuna basın.
Not: İşlem biraz bekletebilir (1-1,5 dakika).
.

[FONT="Arial Narrow"]Sub TEKLERİ_AKTAR_BRN()
Dim s3, f, b As Worksheet
Set s3 = Sheets("Sayfa3"): Set f = Sheets("Fazlalık"): Set b = Sheets("Bizimki")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
s3.Columns("A:B").ClearContents
s3.Cells(1, 1) = "ID": s3.Cells(1, 2) = "CÜMLE"
For fsat = 1 To 100 'f.[A65536].End(3).Row
    If WorksheetFunction.CountIf(b.Range("A:A"), f.Cells(fsat, 1)) = 1 Then GoTo 10
    s3sat = s3.[A65536].End(3).Row + 1
    s3.Cells(s3sat, 1) = f.Cells(fsat, 1): s3.Cells(s3sat, 2) = f.Cells(fsat, 2)
10: Next
For bsat = 1 To b.[A65536].End(3).Row
    If WorksheetFunction.CountIf(f.Range("A:A"), b.Cells(bsat, 1)) = 1 Then GoTo 20
    s3sat = s3.[A65536].End(3).Row + 1
    s3.Cells(s3sat, 1) = b.Cells(bsat, 1): s3.Cells(s3sat, 2) = b.Cells(bsat, 2)
20: Next
    s3.Columns("B:B").ColumnWidth = 99.29: Cells.EntireRow.AutoFit
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "BİTTİ"
End Sub[/FONT]

 

[savas_145]

her iki sayfadada olmayanları yardımcı sütunlar ile birbirine aktardım. buyrun

http://s6.dosya.tc/server6/6qiynf/Fazlalik.xlsx.html

 

[VahapZTL]

İlgilendiğiniz için çok teşekkür ederim çok işime yaradı sağolun.