การใช้ตัวกรองข้อมูล advanced

[yodpao.b]

การใช้ตัวกรองข้อมูล advanced
ต้องการให้กรองข้อมุลในคอลัม BN (นำข้อมูลที่ไม่ซ้ำกันมาใส่ในช่อง BP)
ผมลองทำโดยใช้มาโครทำที่ละขั้นตอน

Code: Select all

Sub Macro11()
    Sheets("VAR2").Select
    Range("BN17:BN200").Select
    Range("BN17:BN200").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range _
        ("BP17"), Unique:=True
End Sub

ผลที่ได้ดังรูปด้านล่าง ถูกต้องตามที่ต้องการ

Capture1.JPG

แต่พอมาลองรันที่ละมาโครโดยเริ่มที่ Sub Macro9 ,Sub Macro10 ,Sub Macro11
ผลที่ได้ดังรูปด้านล่าง ซึ่งข้อมูลในช่อง BP ไม่ทำงานครับ

Capture2.JPG

จากรูปด้านบนเข้าใจว่า เมื่อดูตัวกรองแล้วพบว่าในช่องที่ใส่ข้อแม้มี ตัวอักษรอยู่ซึ่งเป็นค่าเก่าที่ใช้รัน
ช่วยแก้ไขให้ด้วยครับ

[snasui]

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

Code: Select all

'Other code
Range("BN17:BN200").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:="", CopyToRange:=Range("BP17"), Unique:=True

[yodpao.b]

ขอบคุณครับ