Snasui Excel Forum

ครับ

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

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

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

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

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

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

รบกวนช่วยดูปุ่ม Update - VBa
ไม่ทราบว่าพิม์อะไรผิด
[code]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
[/code]
[attachment=2]2.JPG[/attachment]จากรูปคลิกปุ่ม update
[attachment=1]1.JPG[/attachment] นำข้อมูลมาว่างหน้านี้ครับ