รบกวนช่วยดูปุ่ม Update - VBa

[yodpao.b]

รบกวนช่วยดูปุ่ม Update - VBa
ไม่ทราบว่าพิม์อะไรผิด

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

001_CostSport.xlsm

(100.21 KiB) Downloaded 10 times

จากรูปคลิกปุ่ม update

1.JPG (78.04 KiB) Viewed 51 times

นำข้อมูลมาว่างหน้านี้ครับ

[snasui]

Mark On error resume next ทิ้งไปก่อนแล้วทำการ Debug ใหม่ครับ

[yodpao.b]

เรียน อาจารย์ ครับ
On error resume next เอาออกแล้วครับ
เจอ Debug ที่ "Set CodeRange = Range("data_budget!E:E")"
โคดนี้ผม copy มาจากไฟล์ที่เคยทำมาแล้ว ใช้ได้
ผมเลยลองมาวางไว้ Module1
ทำงานได้ครับ
งง
ผมว่ามันต้องเป็น Private Sub CommandButton3_Click()
"Private" ตัวนี้
แก้ไขอย่างไรดีครับ

[snasui]

การกำหนดค่าให้ตัวแปร Range จะมีรูปแบบเป็น เช่น Set variable = Worksheets(SheetName).Range(RangeAddress) จะได้ไม่เกิด Error ครับ

[yodpao.b]

ได้แล้วครับ
Set CodeRange = Worksheets("data_budget").Range("E:E")
Set FillCodeRange = Worksheets("Edit_budget").Range("N8")
แบบนี้ใช่ใหม่
อยากถามเกียวกับ del ถามได้เลยหรือต้องขึ้นหัวข้อใหม่

[snasui]

ดูว่าเกี่ยวกับหรือต่อเนื่องกับกระทู้เดิมหรือไม่เป็นสำคัญ ถ้าต่อเนื่องกันก็ถามต่อได้เลย หากเป็นคนละเรื่องก็ควรตั้งกระทู้ใหม่ เมื่อค้นหาเรื่องนั้น ๆ จะได้ค้นหาเจอได้ทันที ไม่ใช่ปนกันไปหมดครับ

[yodpao.b]

ครับ