Snasui Excel Forum

ถ้าหัวตารางมีหลายบรรทัดจะต้องปรับส่วนไหนหรอครับ

อยากได้ตัวอย่างของ Code ในการตัดไฟล์ตามชื่อฟิลด์ เช่น ชื่อสาขา แล้วตอนSave as ให้สร้าง Folder ชื่อเขตก่อนแล้วค่อย Save as ไปในFolder แต่ล่ะเขต ตามไฟล์แนบอ่ะครับคือตอนนี้สามารถตัดไฟล์ตามออกมาแต่ล่ะสาขาได้แล้วแต่อยากให้มันสร้างFolderอัตโนมัติแล้วsaveตามแต่ล่ะเขตของมันครับ

:shock: ผม Copy Code มาให้ตามด้านล่างครับ
Sub SeparateFile()
Dim fname As String
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.Range("F1").Value
ActiveSheet.Range("D2") = i
ActiveSheet.Columns("A:B").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range ...

D2 นี่เป็นค่าอะไรครับ F1คือค่าสูงสุดของแถวข้อมูลที่ไปหามาใช่หรือป่าว

ถ้าผมจะตัดไฟล์ตามสาขาแบบที่ตัวอย่างเลยตอนนี้ผมงง กับค่าต่างๆอยู่ ช่วยอธิบายการทำงานของcodeแต่ล่ะบรรทัดทีครับ
คือผมมีข้อมูลอยู่ตั้งแต่ A:AI จะเอามาทั้งหมดเลยแต่ให้แยกตามสาขาใน B