Snasui Excel Forum

Code: Select all

Private Sub CommandButton3_Click()
'Button name " Update Data "
' code ค้นหาชื่อเมื่อตรงกันให้คัดลอกแล้วจึงวางข้อมูลให้ตรงกับหัวข้อเดิม

On Error Resume Next
Dim FillCodeRange As Range
Dim CodeRange As Range
Dim i As Integer

Set CodeRange = Range("data_budget!E:E")
Set FillCodeRange = Range("Edit_budget!N8")

'If Sheets("Edit_budget").Range("N8").Value <> "" Then

With Application.WorksheetFunction
     i = .Match(FillCodeRange, CodeRange, 0)
End With
With Sheets("data_budget")
    .Range("E" & i).Resize(1, 57).Value = Sheets("Edit_budget").Range("AB8:CF8").Value
End With
'MsgBox "ดำเนินการ Update ข้อมูลเรียบร้อยแล้ว"
'Else
'MsgBox "ท่านยังไม่ได้คลิก ปุ่ม Find ในการค้นหาข้อมูล"

'End If

End Sub