ถามครับ-จะให้มีข้อความตอบอัตโนมัติว่า ได้รับข้อมูลแล้วทำอย่า

[sdmania]

สวัสดีครับ แนบตัวอย่างมาครับ sheet 2-1 เป็นตัวส่งข้อมูลครับ

คำถามคือ จะทำอย่างไรดีครับเมื่อ click ที่ปุ่มส่งข้อมูลไปแล้วข้อมูลถูกส่งไปจัดเก็บที่Sheet1เรียบร้อย

จะให้ขึ้นข้อความเตือน หรืออะไรก็ได้ที่แจ้งว่าจัดเก็บแล้วครับ อยากให้ป้ายแจ้งเตือนที่Sheet2-1ครับ(เพราะผู้ใช้ กำลังทำงานที่sheet 2-1ครับ)

[sdmania]

ขออภัยครับ พิมพ์หัวข้อยาวไปหน่อยครับ
" ถามครับ-จะให้มีข้อความตอบอัตโนมัติว่า ได้รับข้อมูลแล้วทำอย่า"

ตั้งใจจะพิมพ์ว่า " ถามครับ-จะให้มีข้อความตอบอัตโนมัติว่า ได้รับข้อมูลแล้ว ทำอย่างไรดีครับ"

[snasui]

เพิ่ม Message เข้าไปช่วยตามด้านล่างครับ

Code: Select all

Sub click1_1()
    Dim intRows As Long
    Dim n As Range, sn As Range
    intRows = Rows.Count
    With Sheets("Sheet1")
        Set n = .Range("A" & intRows).End(xlUp).Offset(1, 0)
    End With
    Set sn = Sheets("Sheet2-1").Range("A4:d4")
    sn.Copy
    n.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    MsgBox "ได้รับข้อมูลแล้ว"
End Sub

[sdmania]

สั้นๆ และ ง่ายๆ ได้ใจความเลยครับ

ขอบคุณอาจารย์ครับผม