Giúp em Phát hiện lỗi sai Code (1 người xem)

[lightd]

Sub ActiveC()
Application.ScreenUpdating = False
Dim Dk As String, C As Range
Dk = Application.InputBox(" BAN MUON TOI TAM PANEL NAO")
With Worksheets("S-C").Range("A1:z65000")
Set C = .Find(What:=Dk)
If Not C Is Nothing Then
.C.Select
Else
MsgBox "khong tim thay"
End If
End With
End Sub

nó luôn báo break dòng đó, mọi người chỉ em sửa như thế nào,em cảmownaj

 

[SA_DQ]

Bạn đã tuyên bố sẽ làm việc với cái mà bạn chưa có;

Vầy được nè:

Sub ActiveE()
 Application.ScreenUpdating = False
 Dim Dk As String, C As Range

 Dk = Application.InputBox(" BAN MUON TOI TAM PANEL NAO")
 Set C = Cells.Find(What:=Dk)
 If C Is Nothing Then
    MsgBox "khong tim thay"
 Else
    MsgBox C.Address
    C.Select
 End If
 End Sub

 

[befaint]

Sub ActiveC()
Application.ScreenUpdating = False
...

nó luôn báo break dòng đó, mọi người chỉ em sửa như thế nào,em cảmownaj

Ở đây có được không?
http://www.giaiphapexcel.com/forum/...ive-dữ-liệu-vùng-mới-copy&p=757086#post757086

 

[VetMini]

With Worksheets("S-C").Range("A1:z65000")
Set C = .Find(What:=Dk)
If Not C Is Nothing Then
.C.Select
Else
MsgBox "khong tim thay"
End If
End With

nó luôn báo break dòng đó, mọi người chỉ em sửa như thế nào,em cảmownaj

Range không có thuộc tính nào tên là C cả.