VBA ตรวจข้อมูลซ้ำ

[sutham]

ผมต้องการเขียนสูตร VBA ให้หาข้อมูลซ้ำของ 2 คอลัมน์พร้อมกัน โดยใช้ and มาเชื่อม เงื่อนไขที่ต้องการ ดังนี้
ถ้าชีท sheet2 คอลัมน์ A ข้อมูลในเซลล์ A1 ของชีท sheet1 และ ชีท sheet2 คอลัมน์ C ข้อมูล มีคำว่า table ให้เลือกชีท sheet3 เซลล์ A1
โดยได้ปรับโค้ดเป็นดังนี้

Code: Select all

If Sheets("sheet2").Columns("a:a").Find(Worksheets("sheet1").Range("a1"), LookIn:=xlValues) And Sheets("sheet2").Columns("c:c").Find("table", LookIn:=xlValues).Rows Then
Sheets("sheet3").Select
range("A1").select

พอลองรันโค้ดปรากฎว่าผิดพราด
รบกวนขอคำแนะนำด้วยครับ

[sutham]

ไฟล์แนบครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub go_1()
    If Sheets("sheet2").Columns("a:a").Find(Worksheets("sheet1").Range("a1"), _
        LookIn:=xlValues).Row = _
        Sheets("sheet2").Columns("c:c").Find("table", LookIn:=xlValues).Row Then
        Sheets("sheet3").Select
        Range("A1").Select
    End If
End Sub

[sutham]

ขอบคุณครับ
ทำได้แล้วครับ