Question : Was There this custom among jews that should release someone arrested at the passover?

According to New Testament John 18:39

39: But ye have a custom, that I should release unto you one at the passover: will ye therefore that I release unto you the King of the Jews?

Thanks

Answer : Was There this custom among jews that should release someone arrested at the passover?

Give this a whirl.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Sub x()
  
Dim rFind As Range, sFind, s As String

line1:
sFind = Application.InputBox("Enter bar code", , , , , , , 2)
If sFind = False Then Exit Sub

With Sheet1.Range("E2", Sheet1.Range("E2").End(xlDown))
    Set rFind = .Find(What:=sFind, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If rFind Is Nothing Then
        s = MsgBox("ID does not exist- try again?", vbYesNo)
        If s = vbNo Then Exit Sub
    Else
        If UCase(rFind.Offset(, 1)) = "YES" Then
            MsgBox "Used previously"
            Beep
        Else
            rFind.Offset(, 1) = "YES"
            MsgBox "OK"
        End If
    End If
End With

GoTo line1

End Sub
Random Solutions  
 
programming4us programming4us