Giúp Lỗi Run-time error '424' - Object required

[nhieumarket2]

ACE xem hộ sao lại bị lỗi như này với ạ?

 

[snow25]

ACE xem hộ sao lại bị lỗi như này với ạ?

View attachment 208784View attachment 208784

View attachment 208782

Bạn sửa vào chỗ đó như sau.
Sheets("Tên sheets ").cells(rows.count,1).end(xlup).row
Và những chỗ dưới nữa.Đều sửa hết đi.
Hoặc bạn khai báo
Dim Total_Farm as Worksheet
set Total_Farm=Sheets("Total_Farm")

 

[HeSanbi]

ACE xem hộ sao lại bị lỗi như này với ạ?

Bạn bật VBA lên nhìn vào cái (Document Module- VBProject) WorkSheet Total_Farm, có thể là sheet1(Total_Farm) / Trang_Tính1(Total_Farm)
Thì đổi sheet1 / Trang_Tính1 thành Total_Farm luôn sẽ là Total_Farm(Total_Farm). Lúc này thì tính lười viết Sheets("Total_Farm") / Worksheets("Total_Farm") của chúng ta sẽ được giải quyết triệt để. Nhớ đặt sao cho đừng đụng hàng với Class / Member Class của Excel.
Nhở mà đặt Format / Replace ... là mệt.
Hoặc: rename_CodeName ActiveSheet.Name bỏ vào Event Workbook SheetActive
Thế là trước là vui nay còn vui hơn

    Function rename_CodeName(ByVal nameNew As String)
        If nameNew = vbNullString Then Exit Function
        With Sheets(nameNew)
            .Parent.VBProject.VBComponents(.codeName) _
            .Properties("_CodeName") = nameNew
        End With
    End Function

 

[khactien111]

@snow25 phiền bác xem giúp em xem code này của em lỗi ở đâu ạ. em cảm ơn!
Sub themKH_click()
Dim lg, b, i As Long
Dim a As Integer
i = txtsdtdat
a = Sheet1.Range("C:C").Find(i).Row
b = Sheet1.Range("C" & a)
If i <> b Then
lg = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
Sheet1.Range("B" & lg + 1) = txtdathang
Else
MsgBox " khach hang da co trong data - hay tim kiem theo sdt và chinh sua"
'End If
End If

End Sub

 

[SA_DQ]

Sub themKH_click()
 Dim lg, b, i As Long
 Dim a As Integer
 i = txtsdtdat
1 a = Sheet1.Range("C:C").Find(i).Row
 b = Sheet1.Range("C" & a)
 If i <> b Then
 lg = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
 Sheet1.Range("B" & lg + 1) = txtdathang
Else
MsgBox " khach hang da co trong data - hay tim kiem theo sdt và chinh sua"
'End If
End If

End Sub

Trong dòng lệnh (mình vừa tương vô số '1') bạn có áp dụng phương thức FIND(. .)
Mà trước dòng lệnh đó, có dòng xác lập/định tham biến i (nên khai báo là I)
Nếu phương thức này không tìm thấy (tri đó trong cột dữ liệu thì sẽ báo lỗi;
Tạm thời là vậy & mình khuyên bạn nên khai báo tường minh & rành rẽ hơn