Snasui Excel Forum

ขอโทษด้วยครับ กลัวว่าจะเป็นคนละคำถามกันครับ เลยตั้งใหม่ครับ

:D กรุณากลับไปถามที่กระทู้เดิมพร้อมแนบไฟล์ที่มี Code นี้มาด้วยจะได้สะดวกในการตอบครับ

Sub Macro2()
'
' Macro1 Macro
'

'

Set rg = Range("T9")
Set rg = Range("T17")

rg.Activate
If Application.CountA(Range("T9")) = 0 Then
    MsgBox "กรุณากรอกข้อมูลให้ครบ"
    Exit Sub
End If
rg.Activate
If Application.CountA(Range("T17")) = 0 Then
    MsgBox "กรุณาระบุสถานที่ส่งของ"
    Exit Sub
End If
Dim x As Integer
    x = MsgBox("ต้องการพิมพ์ใบจ่ายงาน ใช่หรือไม่", vbOKCancel)
    If x = vbCancel Then
    Sheets("Sheet1").Select
    Else
MsgBox "ใส่ใบจ่ายงานด้วยครับ"
 ActiveSheet.Unprotect Password:="1234"
 'Range("K42") = Range("K42") + 1

  'บันทึก DataBase
    Application.Goto Reference:="OFFSET(R9C30,1,0,COUNTA(C1)-1,33)"
    Selection.Copy
    Workbooks.Open Filename:="\\ACCOUNT\Data (D)\SALE\DataBase.xlsx"
    Sheets("Sheet1").Select
    Application.Goto Reference:="OFFSET(R1C1,COUNTA(C1),0)"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    ThisWorkbook.Activate

รบกวนสอบถามครับ ผมเขียนคำสั่งให้เปิดไฟล์ DataBase.xlsx ซึ่ง Share ไฟล์ไว้ครับ เมื่อเปิดไฟล์แล้วจะบันทึกข้อมูลแล้วทำการ Save และปิดไฟล์ไปครับ จะมี user ใช้ประมาณ 5-6คนครับ บางครั้งจะเกิดการบันทึกพร้อมกันในcellเดียวกัน ก้จะ Error ครับ ถ้าผมอยากจะกันไม่ให้ บันทึกไฟล์พร้อมกัน หรือเมื่อเกิด errorก็ให้กลับไปทำการบันทึกใหม่ โดยบอกว่าเกิดerrorให้บันทึกข้อมูลอีกครั้งครับ ผมจะใช้ Code On Error Goto ได้มั้ยครับ แล้วจะต้องแทรกใน Code ช่วงไหนครับ
[code]Sub Macro2()
'
' Macro1 Macro
'

'

Set rg = Range("T9")
Set rg = Range("T17")

rg.Activate
If Application.CountA(Range("T9")) = 0 Then
MsgBox "กรุณากรอกข้อมูลให้ครบ"
Exit Sub
End If
rg.Activate
If Application.CountA(Range("T17")) = 0 Then
MsgBox "กรุณาระบุสถานที่ส่งของ"
Exit Sub
End If
Dim x As Integer
x = MsgBox("ต้องการพิมพ์ใบจ่ายงาน ใช่หรือไม่", vbOKCancel)
If x = vbCancel Then
Sheets("Sheet1").Select
Else
MsgBox "ใส่ใบจ่ายงานด้วยครับ"
ActiveSheet.Unprotect Password:="1234"
'Range("K42") = Range("K42") + 1

'บันทึก DataBase
Application.Goto Reference:="OFFSET(R9C30,1,0,COUNTA(C1)-1,33)"
Selection.Copy
Workbooks.Open Filename:="\\ACCOUNT\Data (D)\SALE\DataBase.xlsx"
Sheets("Sheet1").Select
Application.Goto Reference:="OFFSET(R1C1,COUNTA(C1),0)"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Save
ActiveWorkbook.Close
ThisWorkbook.Activate[/code]