2 Farklı Dosyadan Benzersiz Verileri Çekmek

[o2l3m]

Masa üstümde iki dosya var.

1 ve 2 nolu dosyalar. Birde veri çektiğim Benzersiz isimli bir dosyam var.

2 numaralı dosyadaki L ve M Sütunundaki verileri 1 numaralı dosyada P ve Q sütunlarında arayacak.

Bulamadığı (C-T) sütun aralığındaki satırları Benzersiz dosyama aktaracak bir kod oluşturulabilir mi?

 

[o2l3m]

Dosyaları ve görseli ekledim. Yardımcı olabilirmisiniz

 

[askm]

Mantık olarak 1 dekinin tamamını çekip, 2 deki verilerin de sadece çekilen verilerde olmayanları çekseniz aynı olmaz mı?
Ya da İkisindeki verileri de çekip, mükerrer olanları silseniz.

 

[o2l3m]

Farklı tablo ve rapor olduğu için excele alınıp dışarıda analiz edilmesi gerekiyor.
Formülle yapılabilecek bir durum aslında excelde. Ama her seferinde çok uğraştırıyor

 

[o2l3m]

Yardımcı olabilecek yok mu?

 

[YUSUF44]

1 nolu dosyadaki sayfayı, 2 nolu dosyadaki sayfayı ve Benzersiz adlı sayfayı aynı dosya içine alın. Bir dosyada üç sayfa da bulunsun.

Aşağıdaki kodları bir modüle kopyalayıp deneyin:

Sub ikidosya()
Set s1 = Sheets("1")
Set s2 = Sheets("2")
Set s3 = Sheets("Benzersiz")

son1 = WorksheetFunction.Max(7, s1.Cells(Rows.Count, "P").End(3).Row)
son2 = WorksheetFunction.Max(7, s2.Cells(Rows.Count, "L").End(3).Row)
son3 = WorksheetFunction.Max(7, s3.Cells(Rows.Count, "L").End(3).Row)

For i = 7 To son2
    If WorksheetFunction.CountIfs(s1.Range("P7:P" & son1), s2.Cells(i, "L"), _
            s1.Range("Q7:Q" & son1), s2.Cells(i, "M")) = 0 Then
        yeni = WorksheetFunction.Max(7, s3.Cells(Rows.Count, "L").End(3).Row + 1)
        s2.Range("C" & i & ":T" & i).Copy s3.Cells(yeni, "C")
    End If
Next
        
End Sub

 

[o2l3m]

Çok teşekkür ediyorum. Çalışıyor.