Excel VBA run-time error 1004 : Application-defined or objec

[godman]

สวัสดีค่รับ
ผมได้ทำแบบฟอร์ม userform เพื่อให้พนักงานกรอก ปัญหาคือ เมื่อคลิก Save ใน USERFORM1 ตามไฟล์แนบ มันแสดง error runtime error 1004
การทำงานคือ เลือก ในช่อง Search แล้วเลือกอันใดอันหนึ่ง วัตถุประสงค์คือ ให้แก้ไข ข้อมูล แล้ว save เข้าไปใน แถวเดิม ครับ
ขอความกรุณาดู โค้ด ให้ผมด้วย และ อยากได้คำแนะนำว่า ควรปรับโค้ดอย่างไรให้ถูกต้องครับ อ๋อ ข้อมูลจะไปวางที่ sheet logbook ครับ ผมได้พยายามกำหนดค่าต่างๆแล้ว แต่ยังไม่ได้

Code: Select all

Dim CRowNo As Integer

Private Sub cmdSave_Click()
    Dim cellrange As String
   Dim myWS As Worksheet

  Set myWS = Worksheets("logbook")

    ' Go to the existing row
    rowno = CRowNo
    Sheets("Logbook").Activate
    cellrange = "A" & Trim(Str(rowno))
    Range(cellrange).Value = TextBox66.Text
    TextBox66.Text = ""
 
    
End Sub

[snasui]

ค่อย ๆ ถามตอบกันไปครับ ตัวแปร CRowNo รับค่ามาจากไหนครับ

[godman]

ผมต้องการให้ บ่งบอก เลขของแถว row ที่ match กับ ค่าที่ search ครับ

[snasui]

ผมต้องการให้ บ่งบอก เลขของแถว row ที่ match กับ ค่าที่ search ครับ

มี Code บรรทัดใดที่กำหนดค่าตามที่กล่าวมาครับ

[godman]

ผมกลับไปหา crowno ตามเงื่อนไข คือ ให้ รหัส 4M No ตรงกับ colump A ในชี้ต logbook ครับ
แต่ยัง error อยู่ ไม่รู้เกิดจากอะไร ครับ ยังงงกับคำสั่ง trim อยู่

Code: Select all

Private Sub cmdSave_Click()
    Dim cellrange As String
   Dim myWS As Worksheet
   Dim CID As String
  Set myWS = Worksheets("logbook")

    ' Go to the existing row
    rowno = CRowNo
    Sheets("Logbook").Activate
    cellrange = "A" & Trim(Str(rowno))
    Range(cellrange).Value = TextBox66.Text
    TextBox66.Text = ""
 
 Sheets("LOGBOOK").Activate
        
    LastRow = ActiveSheet.UsedRange.Rows.Count
    CID = TextBox66.Value

    For n = 1 To LastRow
        If (Trim(Range("A" & Trim(Str(n))).Text) = Trim(CID)) Then
            CRowNo = n
    End If
    Next n
End Sub

[snasui]

Error ที่บรรทัดใดและ Error ว่าอย่างไรครับ

สำหรับตัวแปร rowno กำหนดค่าไว้ที่ Procedure ใดครับ