dòng lệnh range bị lỗi nhờ các pro giúp giùm

[duykhai82]

Mình có đoạn code sau.

Private Sub xoadulieu()
i_kho = 14
Do While sheets(kho).Cells(i_kho, 1) <> isblank
i_kho = i_kho + 1
Loop
sheets(kho).Select
range(Cells(14, 1), Cells(i_kho + 2, 8)).Select
Selection.ClearContents
End Sub
Private Sub updatekho_click()
kho = "TBD"
xoadulieu
End Sub
Không biết bị sai chổ nào mà dòng lệnh range bị lỗi (select method of range class failed9. Các pro giúp giùm với.
Thanks and brs!
HHDK

 

[ChanhTQ@]

Mình chưa thể chỉ ra chổ sai để giúp bạn, nhưng cho fép

mình khuyên bạn 1 câu ngắn: Nên khai báo tường minh, nhứt là khi gặp vấn nạn mà tự ên chưa thể vượt qua!

 

[duykhai82]

mình chưa hiểu lắm, xin bro chỉ giáo thêm.
Thanks!
HHDK

 

[nghiaphuc]

Mình có đoạn code sau.

Private Sub xoadulieu()
i_kho = 14
Do While sheets(kho).Cells(i_kho, 1) <> isblank
i_kho = i_kho + 1
Loop
sheets(kho).Select
range(Cells(14, 1), Cells(i_kho + 2, 8)).Select
Selection.ClearContents
End Sub
Private Sub updatekho_click()
kho = "TBD"
xoadulieu
End Sub
Không biết bị sai chổ nào mà dòng lệnh range bị lỗi (select method of range class failed9. Các pro giúp giùm với.
Thanks and brs!
HHDK

Bạn đưa file lên đi, vấn đề của bạn sẽ được giải quyết cái rẹt. Có thể sẽ còn đơn giản hơn code hiện có của bạn đấy.
Chẳng hạn như vầy: 3 câu lệnh

sheets(kho).Select
range(Cells(14, 1), Cells(i_kho + 2, 8)).Select
Selection.ClearContents

có thể chỉ cần như vầy là đủ:

Sheets(kho).Range(Sheets(kho).Cells(14, 1), Sheets(kho).Cells(i_kho + 2, 8)).ClearContents

Hoặc đưa vào câu lệnh With nếu có nhiều câu lệnh liên quan đến Sheets(kho)
Thêm nữa, với code trên thì biến kho phải là biến Public đấy nhé (khai báo trên cùng, trước Sub/Function đầu tiên).