Kiểm tra kết quả filter

[hadoan-pap]

Kính gửi mọi ng.

Làm thế nào để kiểm tra đc kết quả filter k có dữ lieu ạ ?

Có nghĩa là khi filter mà không có dữ lieu thì sẽ có thông báo. E gửi ví dụ về đoạn code nhỏ filter bên dưới ạ.

Sheet8.Range("A1:J15").AutoFilter Field:=5, Criteria1:="Apr", Operator:=xlFilterValues

 

[vanthinh3101]

Kính gửi mọi ng.

Làm thế nào để kiểm tra đc kết quả filter k có dữ lieu ạ ?

Có nghĩa là khi filter mà không có dữ lieu thì sẽ có thông báo. E gửi ví dụ về đoạn code nhỏ filter bên dưới ạ.

Sheet8.Range("A1:J15").AutoFilter Field:=5, Criteria1:="Apr", Operator:=xlFilterValues

Bạn chạy thử

Set rngVisible = Sheet8.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If rngVisible.Rows.Count > 1 Or rngVisible.Areas.Count > 1 Then
   'Code
Else
      MsgBox "Khong co ket qua filter", vbCritical, "GPE"
End If

 

[hadoan-pap]

Bạn chạy thử

Set rngVisible = Sheet8.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If rngVisible.Rows.Count > 1 Or rngVisible.Areas.Count > 1 Then
   'Code
Else
      MsgBox "Khong co ket qua filter", vbCritical, "GPE"
End If

Cam on ban nhe

Nếu muốn copy data vào dòng trống đầu tiên chạy từ dòng A2 xuống thì code ntn bạn nhỉ ?

 

[vanthinh3101]

Cam on ban nhe

Nếu muốn copy data vào dòng trống đầu tiên chạy từ dòng A2 xuống thì code ntn bạn nhỉ ?

Code thế nào thì bạn phải đưa file cụ thể lên đây mới viết được.
Nếu bạn tự viết thì làm theo hướng dẫn sau:
1. Xác định dòng cuối cùng có dữ liệu ở cột A

lR=Sheets("Ten Sheet").Range("A"&Rows.count).end(xlup).row

2. Dòng trống đầu tiên sẽ là

sR=lR+1

3. Copy data (giả sử Rng là vùng data cần copy)

Rng.copy Sheets("tên sheet").Range("A"&sR)