F
fgwiii
Can someone please assist me - several people have assisted me with this but
as I am not a programmer, I have not been able to figure out where to place
the code to turn off the autofilter. Thank you for your help!
<.AutoFilterMode = False>
Sub RDB_Copy_Sheet()
Dim myFiles As Variant
Dim myCountOfFiles As Long
myCountOfFiles = Get_File_Names( _
MyPath:="\\RADNTSHARE\Old_Share\share\4553AB7 (Xience
V)\Data Management\Reports\ClinDart Reports", _
Subfolders:=True, _
ExtStr:="*20090727_Reviewed*", _
myReturnedFiles:=myFiles)
If myCountOfFiles = 0 Then
MsgBox "No files that match the ExtStr in this folder"
Exit Sub
End If
Get_Sheet _
PasteAsValues:=True, _
SourceShName:="", _
SourceShIndex:=1, _
myReturnedFiles:=myFiles
End Sub
as I am not a programmer, I have not been able to figure out where to place
the code to turn off the autofilter. Thank you for your help!
<.AutoFilterMode = False>
Sub RDB_Copy_Sheet()
Dim myFiles As Variant
Dim myCountOfFiles As Long
myCountOfFiles = Get_File_Names( _
MyPath:="\\RADNTSHARE\Old_Share\share\4553AB7 (Xience
V)\Data Management\Reports\ClinDart Reports", _
Subfolders:=True, _
ExtStr:="*20090727_Reviewed*", _
myReturnedFiles:=myFiles)
If myCountOfFiles = 0 Then
MsgBox "No files that match the ExtStr in this folder"
Exit Sub
End If
Get_Sheet _
PasteAsValues:=True, _
SourceShName:="", _
SourceShIndex:=1, _
myReturnedFiles:=myFiles
End Sub