ต้องการให้ VBA เลือกที่ save as file ไป D:

[ch.jew10]

สวัสดีครับ ผมได้ให้ vba copy file บางคอลัมภ์ไปวางใน sheet ใหม่ แล้ว ให้ lock sheet ห้ามแก้ไข และให้ save ไปที่ folderD:\PO_SIMKITTING
แต่ผลลัพภ์ คือไฟล์ไปเก็บที่ my document ตลอดเลย จึงขอคำปรึกษาว่าต้องแก้โค็ดอย่างไรบ้างครับ

ข้อที่สอง หากผมต้องการให้กดปุ่มเดียวแล้วเรียกทั้ง 4 code มา run ต่อเนื่องกันเลยต้องใช้ code อย่างไรครับ
(ตอนนี้เรียกทีละ code PDfile,upload phone,Print bartender,print access)
ขอบคุณมากครับ

Code: Select all

Sub PD_file()
'
' PD_file Macro
    Dim name2 As String
    Dim Fpath As String
    Fpath = "D:\PO_SIMKITTING"
        name2 = Range("i2").Value
        ActiveWorkbook.Activate
    Range("F:F,A:A,C:C").Select
        Selection.Copy
    Workbooks.Add
        ActiveSheet.Paste
        Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Application.CutCopyMode = False
    Columns("A:A").Insert
    Columns("D:D").Select
    Selection.Cut Destination:=Columns("A:A")
    ChDir "D:\PO_SIMKITTING"
    ActiveWorkbook.SaveAs Filename:=Fpath & name2, FileFormat:=51, CreateBackup:=False
         ActiveSheet.Protect Password:="11669"
        ActiveWorkbook.Save
        ActiveWorkbook.Close

'
End Sub

[snasui]

กรุณาแก้ไขการโพสต์ Code ให้เป็นไปตามกฎข้อ 5 ด้านบนด้วยครับ

[ch.jew10]

ขออภัยครับ ผมขอทำความเข้าใจกับ BBcode ก่อนครับ อ่านแล้วยัง งงๆ อยู่ครับ

[snasui]

ในข้อ 5 มี Link ให้คลิกดูตัวอย่างครับ

[ch.jew10]

ผมลองแก้ไข post ทำ bbcode แล้วครับ แบบนี้ใช่ไหมครับ ขอบคุณมากครับ

[snasui]

ที่โพสต์มายังไม่ถูกทั้งหมด ใช้เฉพาะ [code]...[/code] ไม่ต้องใช้ [list]...[/list] โพสต์ด้านบนผมแก้ให้แล้วครับ

ตัวอย่าง Code ตามที่ถามมาครับ

Code: Select all

'Other code
Selection.Cut Destination:=Columns("A:A")
'ChDir "D:\PO_SIMKITTING"
ActiveWorkbook.SaveAs Filename:=Fpath & "\" & name2, FileFormat:=51, CreateBackup:=False
ActiveSheet.Protect Password:="11669"
ActiveWorkbook.Save
ActiveWorkbook.Close
'Other code

สังเกตว่าหลัง Fpath จะต้องมี / ด้วยครับ

[ch.jew10]

เรียน อาจารย์ครับ สามารถใช้งานได้แล้วครับ ขอบคุณมากครับ