Excel không nhận diện được sheet, báo lỗi

[Duong gia]

Mong các bạn chỉ giúp liệu code có lỗi gì không sao khi nhập mã vào dòng 5 cột 6 thì nó báo lỗi và bôi vàng dòng chữ "Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value" Private Sub Worksheet_Change(ByVal Target As Range) If Target.row = 5 And Target.Column = 6 Then Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value Call TP_PXH Application.EnableEvents = True End If End Sub Bực mình quá mình chuyển sang CommandButton, khi click vào nó vẫn báo lỗi và bôi vàng dòng chữ "Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value" Private Sub CommandButton1_Click() Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value Call TP_PXH Application.EnableEvents = True End Sub Mong các bạn chỉ giúp, sao excel không nhận diện được sheet chỉ định? Thanks

 

[huuthang_bd]

Mong các bạn chỉ giúp liệu code có lỗi gì không sao khi nhập mã vào dòng 5 cột 6 thì nó báo lỗi và bôi vàng dòng chữ "Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.row = 5 And Target.Column = 6 Then
Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value
Call TP_PXH
Application.EnableEvents = True
End If
End Sub

Bực mình quá mình chuyển sang CommandButton, khi click vào nó vẫn báo lỗi và bôi vàng dòng chữ "Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value"

Private Sub CommandButton1_Click()
Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value
Call TP_PXH
Application.EnableEvents = True
End Sub
Mong các bạn chỉ giúp, sao excel không nhận diện được sheet chỉ định? Thanks

Phải có file mới biết được chứ bạn. Biết đâu bạn gõ sai tên sheet?

 

[Duong gia]

Phải có file mới biết được chứ bạn. Biết đâu bạn gõ sai tên sheet?

Chắc chắn là mình không gõ sai. Lỗi này không phải là luôn luôn, mà thỉnh thoảng mới xuất hiện. Thanks

 

[huuthang_bd]

Chắc chắn là mình không gõ sai. Lỗi này không phải là luôn luôn, mà thỉnh thoảng mới xuất hiện. Thanks

Èo. Không gõ sai thì cũng phải có file mới tìm được lỗi chứ. Hay là bạn đang đánh đố mọi người?

 

[nghiaphuc]

Mong các bạn chỉ giúp liệu code có lỗi gì không sao khi nhập mã vào dòng 5 cột 6 thì nó báo lỗi và bôi vàng dòng chữ "Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.row = 5 And Target.Column = 6 Then
Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value
Call TP_PXH
Application.EnableEvents = True
End If
End Sub

Bực mình quá mình chuyển sang CommandButton, khi click vào nó vẫn báo lỗi và bôi vàng dòng chữ "Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value"

Private Sub CommandButton1_Click()
Sheets("TP-NHAPLIEU").Range("B4").Value = Range("F5").Value
Call TP_PXH
Application.EnableEvents = True
End Sub
Mong các bạn chỉ giúp, sao excel không nhận diện được sheet chỉ định? Thanks

Bạn để ý trong hộp Properties xem Sheet TP-NHAPLIEU có code name là gì. Giả sử code name là Sheet2, bạn thử thay câu lệnh trên bởi câu lệnh Sheet2.[B4].Value=[B5].Value xem có được không.