ต้องการเขียน VBA เพื่อ Search ข้อมูลจากฐานข้อมูล Defect

[TotEcom]

ต้องการเขียน VBA เพื่อ Search ข้อมูลจากฐานข้อมูล Defect ซึง Keyword ที่ใช้คือ Column Part Name ครับ ซึ่งผมลอง Run Code ที่เขียนแล้ว Error : Run Time Error '1004' Application defined or object defined error ครับ ซึ่ง Code ที่เขียนผมก็เอามาจากตัวอย่างในกระทู้ของเว็บ http://www.snasui.com ครับ
รบกวนพี่ ๆ ช่วยแก้ไขให้ด้วยครับ

ขอบคุณล่วงหน้าครับ

[snasui]

ยกมาจาก Link ใน snasui.com ให้แนบ Link มาด้วยครับ นอกจากนี้ควรแจ้งมาด้วยว่า Error ที่บรรทัดใด

สำหรับ Code นั้นยากต่อการทำความเข้าใจ ควรใช้กับการที่เรานำข้อมูลมาแสดงโดยเลือกมาเพียงบางข้อมูลจากข้อมูลทั้งหมด หรือใช้ในกรณีข้อมูลที่นำมาแสดงนั้นเรียงไม่เหมือนกับข้อมูลต้นแหล่ง

ตัวอย่าง Code สำหรับโจทย์ที่ถามมา ตามด้านล่างครับ

Code: Select all

Sub test()
    Dim rsc As Range, rs As Range
    Dim rt As Range, t As String
    With Sheets("Total")
        t = Sheets("Summary Report").Range("b4").Value
        Set rsc = .Range("c4", .Range("c4").End(xlDown))
        For Each rs In rsc
            If rs.Value = t Then
                Sheets("Summary Report").Range("a" & .Rows.Count) _
                    .End(xlUp).Offset(1, 0).Resize(, 52) _
                    = rs.Offset(0, -2).Resize(, 52).Value
            End If
        Next rs
    End With
End Sub

[TotEcom]

ผมดูตัวอย่างจาก Link นี้ครับ http://www.snasui.com/viewtopic.php?f=3&t=2875 ต้องขอโทษด้วยครับที่ไม่ชี้แจงรายละเอี่ยดให้ชัดเจนครับ ต้องขอโทษอาจารย์ด้วยครับ

ส่วน Code ที่อาจารย์ให้มานั้นใช้ได้แล้วครับ แต่ข้อมูลการ Search ครั้งก่อนมันไม่ถูกลบออกก่อนที่จะ Search ครั้งใหม่หนะครับ ผมต้อง เพิ่ม Code ยังไงครับเพื่อให้ข้อมูลการ Search เก่าจะถูกลบออกเมื่อมีการ Search ครั้งใหม่ครับ ต้องขอโทษด้วยครับที่อธิบายไม่ชัดเจนครับ

[snasui]

Code VBA จำเป็นต้องปรับมาเองก่อน ติดตรงไหนแล้วค่อยถามกันตามกฎข้อ 5 ด้านบน ครับ

[TotEcom]

ขอบคุณครับผมเขียนได้แล้วครับ ขอบคุณมาก ๆ