kottbulle86
New Member
- Joined
- Dec 5, 2013
- Messages
- 2
Hello,
I'm a beginner at VBA and I'm trying to create a function that will perform a filter/copy/paste sequence that is repeated several times in my macro.
my function looks like this:
Function filtercopypaste(copysheet As String, pastesheet As String, copyrange As Range, pasterange As Range, filterrange As Range, filterinput As Variant, fieldinput As Integer)
'Filter on End_Week for Nov. and copy/paste
Sheets(copysheet).Select
ActiveSheet.Range(filterrange).AutoFilter field:=fieldinput, Criteria1:=filterinput, Operator:=xlFilterValues
Range(copyrange).Select
Selection.Copy
Sheets(pastesheet).Select
Range(pasterange).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Reset filter in sheet Servers
Sheets(copysheet).Select
Application.CutCopyMode = False
ActiveSheet.Range(filterrange).AutoFilter field:=fieldinput
End Function
My code (the relevant part) looks like this:
Sub DoStuff()
Dim csheet As String
Dim psheet As String
Dim crange As Range
Dim prange As Range
Dim frange As Range
Dim farray() As Variant
Dim finput As Integer
csheet = "Servers"
psheet = "Monthly_Report"
crange = "F4:F100"
prange = "A2"
frange = "$A$4:$AT$100"
farray = Array("2013_W.44", "2013_W.45", "2013_W.46", "2013_W.47", "2013_W.48")
finput = 15
filtercopypaste (csheet, psheet, crange, prange, frange, farray, finput)
End Sub
The "function call" turns red and the error msg "Compile error: Expected: =" pops up. Anyone knows what the problem might be?
Thank you in advance!
I'm a beginner at VBA and I'm trying to create a function that will perform a filter/copy/paste sequence that is repeated several times in my macro.
my function looks like this:
Function filtercopypaste(copysheet As String, pastesheet As String, copyrange As Range, pasterange As Range, filterrange As Range, filterinput As Variant, fieldinput As Integer)
'Filter on End_Week for Nov. and copy/paste
Sheets(copysheet).Select
ActiveSheet.Range(filterrange).AutoFilter field:=fieldinput, Criteria1:=filterinput, Operator:=xlFilterValues
Range(copyrange).Select
Selection.Copy
Sheets(pastesheet).Select
Range(pasterange).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Reset filter in sheet Servers
Sheets(copysheet).Select
Application.CutCopyMode = False
ActiveSheet.Range(filterrange).AutoFilter field:=fieldinput
End Function
My code (the relevant part) looks like this:
Sub DoStuff()
Dim csheet As String
Dim psheet As String
Dim crange As Range
Dim prange As Range
Dim frange As Range
Dim farray() As Variant
Dim finput As Integer
csheet = "Servers"
psheet = "Monthly_Report"
crange = "F4:F100"
prange = "A2"
frange = "$A$4:$AT$100"
farray = Array("2013_W.44", "2013_W.45", "2013_W.46", "2013_W.47", "2013_W.48")
finput = 15
filtercopypaste (csheet, psheet, crange, prange, frange, farray, finput)
End Sub
The "function call" turns red and the error msg "Compile error: Expected: =" pops up. Anyone knows what the problem might be?
Thank you in advance!
Last edited: