Chào,
Tôi đang làm việc Excel 2013,
Tôi cần Bộ lọc tự động "# N / A" trong cột "F", nếu bộ lọc "# N / A" không có dữ liệu với tiêu đề, mã "Goto 0:" không ...
nhưng, mã của tôi không hoạt động, chuyển đến 0:
Sub testsss ()
'Chèn bộ lọc và # N / A Sao chép và Dán
'VBA - Tắt bộ lọc tự động từ mã
Nếu ActiveSheet.AutoFilterMode Thì
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). AutoFilter ---> Bật Autofilter
Cuối Nếu
'Bộ lọc ô trống cột thứ 2 tự động lọc
Dim LastRow As Long
LastRow = Range ("B" & Rows.Count) .End (xlUp) .Row
Trên Lỗi Tiếp tục Tiếp theo 'nếu bộ lọc thì không có dữ liệu nào tiếp theo
ActiveSheet.Range ("$ A $ 1: $ F" & LastRow) .AutoFilter Field: = 6, Criteria1: = "# N / A" 'Bộ lọc ô không thể áp dụng sau đó chọn ô hiển thị
Phạm vi ("$ A $ 2: $ F" & LastRow) .SpecialCells (xlCellTypeVosystem) .Select
'Dừng dán sao chép nếu phạm vi đã lọc không có dữ liệu
If Range ("A1: F" & LastRow) .SpecialCells (xlCellTypeVosystem) .ount> 1 Then
Phạm vi ("$ B $ 2: $ D" & LastRow) .SpecialCells (xlCellTypeVosystem) .Select
Lựa chọn. Sao chép
'Làm một cái gì đó mã .........
Application.CutCopyMode = Sai
Khác
ActiveSheet.AutoFilterMode = Sai
Tới 0:
Cuối Nếu
'Làm một cái gì đó mã .........
0:
End Sub
Vui lòng giúp tôi, cảm ơn vì đã ứng trước
Dừng sao chép dán nếu phạm vi đã lọc không có data.zip
Dừng sao chép dán nếu phạm vi đã lọc không có data.zip
Tôi đang làm việc Excel 2013,
Tôi cần Bộ lọc tự động "# N / A" trong cột "F", nếu bộ lọc "# N / A" không có dữ liệu với tiêu đề, mã "Goto 0:" không ...
nhưng, mã của tôi không hoạt động, chuyển đến 0:
Sub testsss ()
'Chèn bộ lọc và # N / A Sao chép và Dán
'VBA - Tắt bộ lọc tự động từ mã
Nếu ActiveSheet.AutoFilterMode Thì
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). AutoFilter ---> Bật Autofilter
Cuối Nếu
'Bộ lọc ô trống cột thứ 2 tự động lọc
Dim LastRow As Long
LastRow = Range ("B" & Rows.Count) .End (xlUp) .Row
Trên Lỗi Tiếp tục Tiếp theo 'nếu bộ lọc thì không có dữ liệu nào tiếp theo
ActiveSheet.Range ("$ A $ 1: $ F" & LastRow) .AutoFilter Field: = 6, Criteria1: = "# N / A" 'Bộ lọc ô không thể áp dụng sau đó chọn ô hiển thị
Phạm vi ("$ A $ 2: $ F" & LastRow) .SpecialCells (xlCellTypeVosystem) .Select
'Dừng dán sao chép nếu phạm vi đã lọc không có dữ liệu
If Range ("A1: F" & LastRow) .SpecialCells (xlCellTypeVosystem) .ount> 1 Then
Phạm vi ("$ B $ 2: $ D" & LastRow) .SpecialCells (xlCellTypeVosystem) .Select
Lựa chọn. Sao chép
'Làm một cái gì đó mã .........
Application.CutCopyMode = Sai
Khác
ActiveSheet.AutoFilterMode = Sai
Tới 0:
Cuối Nếu
'Làm một cái gì đó mã .........
0:
End Sub
Vui lòng giúp tôi, cảm ơn vì đã ứng trước
Dừng sao chép dán nếu phạm vi đã lọc không có data.zip
Dừng sao chép dán nếu phạm vi đã lọc không có data.zip