Hi can someone help with the following code?
I want to filter the "HR Advice & admin" sheets to display all rows which have no data in collumn ("N") then paste all rows displayed into "Sheet1". I want to exclude the top row to be copied and pasted into the second row on "Sheet1".
What I have so far..
Thanks,
Eve
I want to filter the "HR Advice & admin" sheets to display all rows which have no data in collumn ("N") then paste all rows displayed into "Sheet1". I want to exclude the top row to be copied and pasted into the second row on "Sheet1".
What I have so far..
Code:
Sub Button6_Click()
'
' Macro7 Macro
'
'
ActiveSheet.Range("N17").Value = ("")
With Sheets("HR Advice & Admin")
FilterString = Sheets("Menu").Range("N17").Value
.Range("$N$1:$NS$286").AutoFilter Field:=1, Criteria1:=FilterString
ActiveSheet.Range.SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues
End With
Sheets("HR Advice & Admin").AutoFilterMode = False
End Sub
Thanks,
Eve