ช่วยแต่ง code เพิ่มเติมด้วยครับ เพิ่มข้อมูลจาก sheet ไปอีก sheet โดยอ้างอิงข้อมูลการเพิ่ม

[suthipong]

ช่วยชี้แนะด้วยครับ

ผมอยากเพิ่มข้อมูลโดยการกดเพิ่ม จาก sheet "ปิดJob-ท่าแขก" ในคอลัม P ไปยัง sheet "Data" โดยอ้างอิงข้อมูล "เลขที่ใบเบิก" เพื่อให้หาข้อมูลเลขที่ใบเบิกให้ตรงกันแล้วบันทึกข้อมูลลงใน sheet "Data" ตามตำแหน่งที่กำหนดใน code ครับ

ขอบคุณครับ

[suthipong]

Code ที่ใช้ครับ

Code: Select all

Private Sub cmdAdd_Click()
Dim rg As Range

Set rg = Range("P2")

rg.Activate
If rg.Value = "" Then Exit Sub

If IsDuplicate Then
  MsgBox "¢éÍÁÙÅ«éÓ", vbCritical

  Exit Sub
End If

With Worksheets("Data")
  With .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
      .Offset(0, 5).Value = rg.Offset(1, 0).Value
      .Offset(0, 6).Value = rg.Offset(2, 0).Value
      .Offset(0, 8).Value = rg.Offset(3, 0).Value
      .Offset(0, 10).Value = rg.Offset(4, 0).Value
      .Offset(0, 12).Value = rg.Offset(5, 0).Value
  End With
End With


End Sub

Private Function Isuplicate(p) As Boolean
Dim rg As Range
Set rg = Worksheets("Data").Range("A:A")
If rg.Find(p, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
  IsDuplicate = False
Else
  IsDuplicate = True
End If
End Function

[bank9597]

ช่วยแนบไฟล์ตัวอย่างมาด้วยได้ไหมครับ

[suthipong]

ขอบคุณมากครับ ตอนนี้แก้ไขได้แล้วครับ