N
NoodNutt
G'day everyone
For the life of me, I have no idea why this doesn't work properly.
All I get returning is the first record
I know this workes when I specify the Criteria1="081001", but when I use the
same value via SIDLook Name Range
Sub Search_Copy_Student()
Dim SourceSheet As Worksheet
Dim DestinationSheet As Worksheet
Dim rng As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Sheets("Exam Results").Select
Set SourceSheet = Sheets("Exam Results")
Set rng = SourceSheet.Range("A2:H" & Rows.Count)
Set DestinationSheet = Sheets("Student Select")
SourceSheet.AutoFilterMode = False
rng.AutoFilter Field:=1, Criteria1:="SIDLook"
SourceSheet.AutoFilter.Range.Copy
DestinationSheet.Select
Range("C2").Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
TIA
Mark.
For the life of me, I have no idea why this doesn't work properly.
All I get returning is the first record
I know this workes when I specify the Criteria1="081001", but when I use the
same value via SIDLook Name Range
Sub Search_Copy_Student()
Dim SourceSheet As Worksheet
Dim DestinationSheet As Worksheet
Dim rng As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Sheets("Exam Results").Select
Set SourceSheet = Sheets("Exam Results")
Set rng = SourceSheet.Range("A2:H" & Rows.Count)
Set DestinationSheet = Sheets("Student Select")
SourceSheet.AutoFilterMode = False
rng.AutoFilter Field:=1, Criteria1:="SIDLook"
SourceSheet.AutoFilter.Range.Copy
DestinationSheet.Select
Range("C2").Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
TIA
Mark.