Excel 2007 VBA Autofiltr：选择Case IsEmpty与复制

Question

I am struggling with my macro.

GOAL & MAIN IDEA: It opens different xls files, based on Autofilter it checks 10th column to choose the rows with four "last-friday-days" (so if we have 18/02 it returns 13/02, 06/02, 30/01, 23/01.)

PROBLEM: Problem is only when in my file there are no dates like aboves.Even though the file should be closed automatically it try to copying empty range!! I use Select Case (code below)

CODE:

 Rows("4:4").Select '*Autofilter - this part is ok*
 Selection.AutoFilter *' four last-Fridays from the Column - ok*
 ActiveSheet.Range("J5", Range("J5").End(xlDown)).AutoFilter Field:=10, Criteria1:=Array( _
    LastFridayDate, Friday2weeksagoDate, Friday3weeksagoDate, Friday4weeksagoDate), Operator:= _
       xlFilterValues

Range("A4").Offset(1, 0).Activate
  Select Case IsEmpty(ActiveCell) ' *MISTAKE!!* 
    Case True MISTAKE!! *no data in file, file should be closed!*
        Workbooks("prima UKACZEE.xls").Close SaveChanges:=False
    Case Else ' *this part always works*
        Range("A5", Range("A5").End(xlDown).End(xlToRight)).Select
        Selection.Copy
        Workbooks("Makro XXX Claim Hours v.01.xls").Sheets("TRN Claim Report - Labour").Activate
        Range("A5").End(xlDown).Offset(1, 0).Activate
        ActiveSheet.Paste

    Application.DisplayAlerts = False *' closing file - ok*
    Workbooks("prima UKACZEE.xls").Close SaveChanges:=False
    Application.DisplayAlerts = True
End Select

If you could help. Appreciate

Answer 1

The issue here is that AutoFilter doesn't make rows non-existent, it simply hides them. Regardless of whether a filter has been applied Range("A4").Offset(1,0) will always refer to cell A5 so if there's a value in A5 then IsEmpty(ActiveCell) will always return false.

To solve this problem you're going to have to use the SpecialCells method of the Range object. The below code will activate the 1st visible cell in column A that's below cell A4, in your case the first row of results after filtering.

Range("A5:A" & ActiveSheet.Rows.Count).SpecialCells(xlCellTypeVisible).Cells(1, 1).Activate