Coba pake macro ini,
Sub Rekon()
Dim a As Range, b As Range, c As Range, x As Range
Set a = Range(Range("A3"), Range("A3").End(xlDown))
Set b = Range(Range("D3"), Range("D3").End(xlDown))
Set c = Range(Range("G3"), Range("G3").End(xlDown))
n = 2
For Each x In a
If WorksheetFunction.CountIf(b, x) = 1 Then
If WorksheetFunction.CountIf(c, x) = 1 Then
n = n + 1
Range("J" & n).Value = x.Value
Range("K" & n).Value = x.Offset(0, 1).Value
End If
End If
Next x
End Sub
File terlampir.
Salam,
HK
________________________________
From: Murni Always <murnialways_sm...@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Wednesday, 15 May 2013, 16:09
Subject: [belajar-excel] Mencari data yang sama didalam 3 table yang berbeda
Dear Para master Excel,
saya ingin menanyakan kasus perihal berikut, contoh terlampir.
bagaimana cara mencari data yang sama didalam 3 table yang berbeda???
mohon bantuanya Para master.
Regards,
Murni
HK_datasama.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
