Hi
I have this code that works fine and I type in a forename or Surname in Cells D8/E8
I have then attached this macro to a shape to search to display results in column C which works fine.
One thing I would like to try and do instead is to type in details into Cells D8 or E8 and then be able to simulate pressing enter with carriage return and then displaying results automatically in Column C instead of user having to separately click on search button.
Can this be done?
Many thanks in advance
Ian
Sub Search()
ActiveSheet.Unprotect Password:=PWD
Application.CutCopyMode = False
Range("d8:e8").Select
Selection.Interior.Color = RGB(244, 176, 132)
Range("data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C7:E8"), CopyToRange:=Range("C12"), Unique:=False
Range("e8").Select
ActiveSheet.Protect Password:=PWD
I have this code that works fine and I type in a forename or Surname in Cells D8/E8
I have then attached this macro to a shape to search to display results in column C which works fine.
One thing I would like to try and do instead is to type in details into Cells D8 or E8 and then be able to simulate pressing enter with carriage return and then displaying results automatically in Column C instead of user having to separately click on search button.
Can this be done?
Many thanks in advance
Ian
Sub Search()
ActiveSheet.Unprotect Password:=PWD
Application.CutCopyMode = False
Range("d8:e8").Select
Selection.Interior.Color = RGB(244, 176, 132)
Range("data").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C7:E8"), CopyToRange:=Range("C12"), Unique:=False
Range("e8").Select
ActiveSheet.Protect Password:=PWD