walkerke2
03-10-2009, 03:40 PM
Hi All,
Having problems as my filter is missing out on data on different sheets.
I always search for Blanks= 0 within my sheets to process the sheet. I find that some of my sheets have rows which have been missed by this filter??
Any help with a update on the code much appreciated.
Kenny
My Sheets have this type of data within
Mtrs = 56 Read=49 Skip= 7 Blanks= 0 Import=56 Mtrs = 58 Read=46 Skip= 8 Blanks= 4 Import=57
Sub WORKFLOW_COMPLETED_BOOKS()
Dim rng As Range
Dim sh As Worksheet
Dim target As Worksheet
Set sh = ActiveSheet
Set target = Worksheets.Add
With sh
'Please Check code is searching required column
Set rng = Range(.Range("R1"), .Range("R1").End(xlDown))
.Columns("R:R").AutoFilter Field:=1, Criteria1:="=** Blanks= 0**"
rng.EntireRow.Copy target.Range("A1")
.Columns("R:R").AutoFilter
ActiveSheet.Name = "WORKFLOW"
'To advise sheet created
MsgBox "WORKFLOW Sheet Created Click OK to Continue"
End With
End Sub
Having problems as my filter is missing out on data on different sheets.
I always search for Blanks= 0 within my sheets to process the sheet. I find that some of my sheets have rows which have been missed by this filter??
Any help with a update on the code much appreciated.
Kenny
My Sheets have this type of data within
Mtrs = 56 Read=49 Skip= 7 Blanks= 0 Import=56 Mtrs = 58 Read=46 Skip= 8 Blanks= 4 Import=57
Sub WORKFLOW_COMPLETED_BOOKS()
Dim rng As Range
Dim sh As Worksheet
Dim target As Worksheet
Set sh = ActiveSheet
Set target = Worksheets.Add
With sh
'Please Check code is searching required column
Set rng = Range(.Range("R1"), .Range("R1").End(xlDown))
.Columns("R:R").AutoFilter Field:=1, Criteria1:="=** Blanks= 0**"
rng.EntireRow.Copy target.Range("A1")
.Columns("R:R").AutoFilter
ActiveSheet.Name = "WORKFLOW"
'To advise sheet created
MsgBox "WORKFLOW Sheet Created Click OK to Continue"
End With
End Sub