Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub cmdSearch_Click() Dim rw As Long 'row the search value was found on Dim myVal As Long 'converted search value On Error Resume Next 'validate user input If txtSearch.Value = "" Or _ Not IsNumeric(CLng(txtSearch.Value)) Then MsgBox "Enter valid SIR number!" txtSearch.SetFocus Exit Sub End If 'convert the TexBox value to data type long and get row number myVal = CLng(txtSearch.Value) On Error Resume Next With Sheets("SIRs").Range("C:C") Set cell = .Find(myVal, LookIn:=xlValues) rw = cell.Row End With On Error GoTo 0 On Error GoTo 0 If rw = 0 Then MsgBox "SIR Not Found" Else Call PopulateTextBoxes(rw) End If End Sub
Or _ Not IsNumeric(CLng(txtSearch.Value))
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.