Sub LocNgay()'Gan bien loc ngay Dim TuNgay As Long Dim DenNgay As Long TuNgay = CLng(Sheet4Range("G1")Value)

Sub LocNgay()

'Gan bien loc ngay

Dim TuNgay As Long

Dim DenNgay As Long

TuNgay = CLng(Sheet4.Range("G1").Value)

DenNgay = CLng(Sheet4.Range("G2").Value)

'Thao tac loc ngay

ActiveSheet.Range("A1:C" & lastrow).AutoFilter Field:=1, Criteria1:= _

">" & TuNgay, Operator:=xlAnd, Criteria2:="<" & DenNgay

End Sub

Chạy code cứ báo chỗ lastrow là sai các thầy ạ

3 câu trả lời

73 lượt xem

vỗ tay

Nguyễn Hải Bắc 10:10 - Oct 01, 2021

Bạn chưa khai báo biến lastrow nên chưa được sử dụng biến này. Bạn đưa thêm biến vào trước đoạn 'Thao tac loc ngay nhé

vỗ tay

Nguyễn Hải Bắc 14:10 - Oct 01, 2021

Vậy thay tên biến lastrow thành tên DongCuoi cũng đc hả thầy giáo?

DongCuoi = Sheet4.Range("A" & Rows.Count).End(xlUp).Row

vỗ tay

Nguyễn Hải Bắc 15:10 - Oct 01, 2021

Chào bạn phần lastrow thêm vào nữa nhé

lastrow = Sheet4.Range("A" & Rows.Count).End(xlUp).Row

vỗ tay