DBaker7777
Board Regular
- Joined
- Feb 3, 2009
- Messages
- 53
- Office Version
- 365
- 2016
I am trying to combine the following different intersects. Any help is appreciated :
VBA Code:
private sub worksheet_change(byval target as range)
Dim Fnd As Range
If target.countlarge > 1 then exit sub
If intersect (target, range (“b3:b23”) is nothing then exit sub
Application.enableevents=false
Set fnd = Sheets(“sheet2”).range (“a2:a25”).find(target.value, , , xlwhole, , , false, , false)
If not fnd is nothing then
Target.offset (, 2).value = “Yes”
End if
Dim Bnd as Range
If target.countlarge > 1 the. Exit sub
If intersect (target.range. (“C3:c23”) is nothing the. Exit sub
Application.enableevents=false
Set bnd =Sheets(“sheet2”).range (“A2:A25”).find(target.value , , , xlwhole , , , false , , false)
If not bnd is nothing the
Target.offset),1).value = “No”
End if
Application.EnableEvents = True
End sub