Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sub RepStats()
I have this macro that I am trying to run:
Sub RepStats() On Error Resume Next Dim rng As range Set myrng = Worksheets("Rep Page").range("A:A") For Each c In myrng If c < "" Then Sheets("Rep Page").Select Sheets("Sheet1").Select Selection.AutoFilter Field:=2, Criteria1:=c.Value With ActiveSheet.AutoFilter.range On Error Resume Next Set rng11 = .Offset(1, 0).Resize(.Rows.Count - 1, _ 1).SpecialCells(xlCellTypeVisible) On Error GoTo 0 End With If rng11 Is Nothing Then MsgBox em + " **No Data Found For This Rep**" Else range("B:B").EntireColumn.Hidden = True Set rng = ActiveSheet.AutoFilter.range rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _ Destination:=Worksheets("Rep Page").range(c.Address).Offset(0, 1) End If ActiveSheet.ShowAllData Sheets("Rep Page").Select End If Next End Sub The thing is that it does everything except: With ActiveSheet.AutoFilter.range On Error Resume Next Set rng11 = .Offset(1, 0).Resize(.Rows.Count - 1, _ 1).SpecialCells(xlCellTypeVisible) On Error GoTo 0 End With If rng11 Is Nothing Then MsgBox em + " **No Data Found For This Rep**" Jt just goes to: Else range("B:B").EntireColumn.Hidden = True Set rng = ActiveSheet.AutoFilter.range rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _ Destination:=Worksheets("Rep Page").range(c.Address).Offset(0, 1) End If And copies the entire sheet, not the filtered data. HElp. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|