Snasui Excel Forum

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

'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

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

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

[code]
'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
[/code]

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

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

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

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

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

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

สวัสดีครับ ผมได้ให้ 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]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[/code]