luôn bị báo lỗi lệnh If... End If

[cavoi]

Các anh chị cho hỏi:

For i = 0 To HHList.ListCount - 1
If HHList.Selected(i) = True Then
LastRow1 = Cells(1, 1).End(xlDown).Row + 1
For c = 1 To 3
Cells(LastRow1, c) = Cells(i + 1, c)
End If

luôn bị báo lỗi:

"Compile Error:
End If without block If"

nghĩa là gì vậy ?
và cách chữa

xin cám ơn

 

[Po_Pikachu]

Bạn viết code mà không có dòng lệnh kết thúc thì sao mà nó không báo lỗi chứ! Đây là các bộ không thể thiếu: IF: IF ... then .... End IF For: For ... to.... .... Next Thân.

 

[cavoi]

cám ơn,
tại viết lệnh đêm khuya mệt quá nhìn lé con mắt luôn

cám ơn nhiều nhé
CV

 

[tigertiger]

Bạn viết code mà không có dòng lệnh kết thúc thì sao mà nó không báo lỗi chứ!
Đây là các bộ không thể thiếu:
IF:
IF ... then
....
End IF
For:
For ... to....
....
Next
Thân.

Đôi khi cũng không cần END IF
Popicachu ah

 

[Po_Pikachu]

Nhưng tùy theo tình huống, bác ạ! Với bạn Cavoi thì tổng quát cho dễ hiểu. Còn bác-em thì rút gọn công thức quen rồi nên sẽ khác, ạ! Thân.

 

[congdatfr]

viết if và then trên cùng một dòng rồi lại thêm end if hỏi tại sao cứ lỗi hoài

 

[giaiphap]

If j = 0 Then j = 5
End If
vẫn báo lỗi mà không biết tại sao

Tại vì dư lệnh End if. Bây giờ bạn bỏ lệnh End if là được ngay.