สอบถามการ Merge PDF จากคำสั่ง Autofilter

[Piriya]

รบกวนสอบถาม Code ครับ คือผมต้องการให้ Advancefilter แล้ว Merge file pdf ทั้งหมด ให้อยู่ใน File เดียวกัน

Code: Select all

Sub Advancefilter ()
  For r = 2 To Range("Z65536").End(xlUp).Row
  Range("AA2").Value = Range("z" & r).Value
  xData = Range("AA2").Value
  Range("A1:Y5000").Select
  Selection.Advancefilter Action :=xlfilterInplace, CriteriaRange:=Range("AA1:AA2"), Unique:=False
  Activesheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Activesheet.showdata
  Next
End sub

[snasui]

ปัจจุบันติดปัญหาใดครับ

การสอบถาม Code ควรแนบไฟล์ที่มี Code นี้มาด้วยจะได้ช่วยกันทดสอบได้ครับ

[Piriya]

ขอโทษที่ไม่ได้แนบ File ให้ครับ อันนี้เป็น File ตัวอย่าง ติดปัญหาตรงเวลาเรา Run Code แล้ว มันจะ Filter ตามจำนวน Column Z แล้วมันจะได้ PDF หลาย File คือผมอยากให้มัน รวมมาเป็น File เดียวกันหมดเลยครับ

[snasui]

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

Code: Select all

Sub AdvanceFilter()
    Dim criRng As Range
    With ActiveSheet
        Set criRng = .Range("z1", .Range("z" & .Rows.Count).End(xlUp))
        .Range("A1").CurrentRegion.Select
        Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criRng, Unique:=False
            ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
        If .AutoFilterMode Then
            .ShowAllData
        End If
    End With
End Sub

[Piriya]

จาก Code ที่อาจารย์แนบมา สามารถรวมข้อมูลให้อยู่ใน File เดียวกันได้แล้ว แต่ผมรบกวนปรึกษาอาจารย์เพิ่มเติมนะครับ คือผมต้องการ ให้ Column A นั้น Filter ตาม แต่ละชื่อข้อมูล แยกกันคนละหน้าครับ ตอนแรกผมทำไม่เป็น เลยใช้ Remove Duplicates แล้วนำไปใส่ใน Column Z แทน รบกวนอาจารย์อีกครั้งนะครับ

[snasui]

แยกกันคนละหน้าเป็นลักษณะใดช่วยอธิบายหรือจับภาพมาแสดงจะได้เข้าใจตรงกันครับ

[Piriya]

ตาม File ที่แนบครับ ผมต้องการให้ Filter แล้วแบ่งหน้าตามรายชื่อ ครับ

[snasui]

ลักษณะงานเช่นนี้มีแนวทางคือ ใช้การ Loop เพื่อที่จะ Filter แล้ววางข้อมูลที่ได้ต่อเนื่องกันไปด้านล่างในชีตเดียวกัน โดยมีตำแหน่งเริ่มการวางที่มีระยะเท่า ๆ กัน เช่นนับจากบรรทัดแรกของข้อมูลที่เคยวางไป 30 บรรทัดแล้ววางข้อมูลอันใหม่แล้วค่อยสั่ง Print ลองเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ