Proceeding to the next line

[rholdren]

First, Happy Valentines day everyone. May this be the best one ever

I've been looking around and trying to find a small bit of code that I can use with If Fnd Is Nothing Then

Have bee using If Fnd Is Nothing Then Exit Sub this was helpful while building and testing the worksheet but now that it is being utilized I want to change it so if Fnd is Nothing then move to a certain line. Here is small portion of the code

Sheets("Call Times All Teams").Select
Range("a2.a75").Select
Set Fnd = Columns(1).Find(What:="Jacqueline Bishop", After:=ActiveCell, LookIn:=xlFormulas, _
Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Fnd Is Nothing Then Exit Sub
Sheets("Lost Times Juliya").Range("I14").Value = Fnd.Offset(0, 15).Value
Sheets("Lost Times Juliya").Range("K14").Value = Fnd.Offset(0, 7).Value
Sheets("Call Times All Teams").Select
Range("a2.a75").Select
Set Fnd = Columns(1).Find(What:="Debra Caldwell", After:=ActiveCell, LookIn:=xlFormulas, _
Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Fnd Is Nothing Then Exit Sub
Sheets("Lost Times Juliya").Range("I15").Value = Fnd.Offset(0, 15).Value
Sheets("Lost Times Juliya").Range("K15").Value = Fnd.Offset(0, 7).Value


What I would like to do is if it can't find Jacqueline Bishop then it just moves to the line with Debra Caldwell and looks for her. The list of names are all located on the Call Times All Teams worksheet. So if it can't find Jacqueline then it would move to Debra and if it can't find Debra it moves to the next person on the list and so on.

Any help would be greatly appreciated. Thanks

 

[Rick Rothstein]

Sheets("Call Times All Teams").Select
Range("a2.a75").Select
Set Fnd = Columns(1).Find(What:="Jacqueline Bishop", After:=ActiveCell, LookIn:=xlFormulas, _
Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Fnd Is Nothing Then Exit Sub
Sheets("Lost Times Juliya").Range("I14").Value = Fnd.Offset(0, 15).Value
Sheets("Lost Times Juliya").Range("K14").Value = Fnd.Offset(0, 7).Value
Sheets("Call Times All Teams").Select
Range("a2.a75").Select
Set Fnd = Columns(1).Find(What:="Debra Caldwell", After:=ActiveCell, LookIn:=xlFormulas, _
Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Fnd Is Nothing Then Exit Sub
Sheets("Lost Times Juliya").Range("I15").Value = Fnd.Offset(0, 15).Value
Sheets("Lost Times Juliya").Range("K15").Value = Fnd.Offset(0, 7).Value

What I would like to do is if it can't find Jacqueline Bishop then it just moves to the line with Debra Caldwell and looks for her.

Try replacing what I highlighted in red above with this...

[table="width: 500"]
[tr]
	[td]If Not Fnd Is Nothing Then
  Sheets("Lost Times Juliya").Range("I14").Value = Fnd.Offset(0, 15).Value
  Sheets("Lost Times Juliya").Range("K14").Value = Fnd.Offset(0, 7).Value
  Sheets("Call Times All Teams").Select
  Range("a2.a75").Select
End If[/td]
[/tr]
[/table]

 

[Fluff]

Try it like this

If Not Fnd Is Nothing Then
   Sheets("Lost Times Juliya").Range("I14").Value = Fnd.Offset(0, 15).Value
   Sheets("Lost Times Juliya").Range("K14").Value = Fnd.Offset(0, 7).Value
   Sheets("Call Times All Teams").Select
   Range("a2.a75").Select
End If

 

[Fluff]

@Rick Rothstein
Think you forgot to remove the exit sub

 

[Rick Rothstein]

@Rick Rothstein
Think you forgot to remove the exit sub

Thanks... I edited my message to remove it.

 

[rholdren]

You guys are the best. Thanks

 

[Fluff]

Glad we could help & thanks for the feedback